Excel - Macro buscar cortar y pegar

   
Vista:

Macro buscar cortar y pegar

Publicado por felipe largacha (2 intervenciones) el 24/01/2011 03:21:42
nesesito craur una macro que me busque en 3 registros determinada palabra y que me diga en que fila esta

hay una columna donde esta la informacion mas importante pero en cada celda hay un texto
lo hice por medio de burcar,buscrv,buscarh y no me funciono porque es una dentro de un texto, algunos parrafos son de 50 palabras

por eso me toco cortar toda la columna cortarla y pegarla en una nueva hoja y separar las palabras con una macro que es esta

Sub SepararPalabras()
Dim rgColA As Range, i As Long
Set rgColA = Range("A1:A264")
Dim rg As Range
For Each rg In rgColA.Cells
SplitTexto rg
Next

End Sub

Sub SplitTexto(rgCeldaTxt As Range)
Dim sString As String, sPalabra As String
Dim iPos As Long, iColDestino As Long
iColDestino = rgCeldaTxt.Column + 1
sString = rgCeldaTxt.Value

Do While Len(sString) > 0

'Separa palabra
iPos = InStr(sString, " ")
If iPos > 0 Then
sPalabra = Left(sString, iPos - 1)
sString = Mid(sString, iPos + 1)
Else
sPalabra = sString
sString = ""
End If

'Coloca en otra columna
Cells(rgCeldaTxt.Row, iColDestino).Value = sPalabra
iColDestino = iColDestino + 1

Loop

End Sub

con este codigo los pongo en las siguientes columnas divido las palabras
pero 267 es arto

¿ hay alguna forma de optimizar este codigo?

despues si quiero buscar una palabra en la hoja utilizo este codigo

Sub Facturadas()
Dim rng As Range, celda As Range, encontrado As Range
With Sheets("principal")
Set rng = .Range(.Cells(264, "A"), _
.Cells(.Rows.Count, "FG").End(xlUp))
End With
For Each celda In rng
Set encontrado = Sheets("palabra").Columns("A:FG").Find( _
What:=celda, _
After:=[A1], _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext)
If Not encontrado Is Nothing Then
celda.Interior.ColorIndex = 6
Set encontrado = Nothing
End If
Next celda
End Sub

¿hay alguna forma de mejorar este codigo?

escribo en la seguna hoja la palabra que voy a buscar la cantidad de columnas y filas nesesarias y el equipo se me bloquea

Ademas deseo cortar una de las palabras encontradas por fila y ponerla al final de esta PARA SABER EN QUE FILA ESTABA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:Macro buscar cortar y pegar

Publicado por JuanC (1053 intervenciones) el 24/01/2011 10:58:36
sería importante tener el archivo, con el código solo
es difícil optimizar...
tampoco termino de entender el problema

juanc2942@gmail.com

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar