Buscar texto en celda

hola, !

estoy intentando hacer una macro para que me busque en una celda parte de un texto
"TOTAL DETALLE DE CARGOS" si lo encuentra entonces me copie la celda completa y me la pegue en otra hoja del mismo libro
la celda conpleta es:"TOTAL DETALLE DE CARGOS $ 110,012.00 19,744.60 129,756.60"
la parte que varia es los valores ...

prueba con algo +/- como lo siguiente (dentro de algun procedimiento/macro/...)

Worksheets("hoja1").Cells.Find("total detalle de cargos", , xlValues).Copy _
Destination:=Worksheets("hoja2").Range("a5")

saludos,
hector.

Hola Hectos gracias por tu ayuda

tengo el siguiente codigo

Sub recorrer_fila()
Dim lngResultado As Long
Dim strObjetoBuscar As String
Dim num_cel As String
strObjetoBuscar = "TOTAL DETALLE DE CARGOS"
'Nos situamos en la celda con el primer dato
Range("A1").Select
'Hasta que no encuentre una fila vacía...
num_cel = InputBox("Numero de Celular")
Do While ActiveCell <> "Número Celular " & num_cel
'Pues eso, hasta que no encuentre una fila
'vacía que baje una fila para abajo
ActiveCell.Offset(1, 0).Select

Loop
Selection.Copy
Sheets("Hoja1").Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select
Sheets("lista_cel").Select

End Sub

con este codigo me muevo celda por celda buscando el numero de
celular

luego debo seguir pero debo buscar la celda que contenga :"TOTAL
DETALLE DE CARGOS "
y luego copiarla a la hoja1 luego tomar otro numero y volver a empesar
desde la ultima celda que copie en este caso :"TOTAL DETALLE DE CARGOS
"
y asi sucesivamente

gracias por tu ayuda

hoa, !

- cual es el objetivo de las variables que declaras al inicio ?
- cuantas veces podria encontrarse en la hoja (y en cual columna) el "strObjetoBuscar" ?
- cuantas veces podria encontrarse en la hoja (y en cual columna) el "num_cel" ?
- cual es la relacion entre una variable y la otra (buscar y cel) ?
- que sucede si se encuentra "num_cel" pero no se combina con "strObjetoBuscar" ?
- por que haces que el bucle avance celdas "en escalera" para copiar los registros siguientes ?

(creo que) dejaste varios "detalles en el tintero" (?)
saludos,
hector.

__ OP __

tengo el siguiente codigo

Sub recorrer_fila()
Dim lngResultado As Long
Dim strObjetoBuscar As String
Dim num_cel As String
strObjetoBuscar = "TOTAL DETALLE DE CARGOS"
'Nos situamos en la celda con el primer dato
Range("A1").Select
'Hasta que no encuentre una fila vacia...
num_cel = InputBox("Numero de Celular")
Do While ActiveCell <> "Número Celular " & num_cel
'Pues eso, hasta que no encuentre una fila vacia que baje una fila para abajo
ActiveCell.Offset(1, 0).Select
Loop
Selection.Copy
Sheets("Hoja1").Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select
Sheets("lista_cel").Select
End Sub

con este codigo me muevo celda por celda buscando el numero de celular
luego debo seguir pero debo buscar la celda que contenga :"TOTAL DETALLE DE CARGOS "
y luego copiarla a la hoja1 luego tomar otro numero y volver a empesar desde la ultima celda que copie
en este caso :"TOTAL DETALLE DE CARGOS " y asi sucesivamente

ok

mira tengo un archivo de pdf que son las facturas electronicas de
celular lo que necesito es poder sacar el numero de celular valor de
la factura de ese celular ya que vinen 460 hojas que comprenden todas
las facturas de 80 celulares aveces son mas aveces son menos
entonces lo que pretendo hacer es guardo el archivo pdf en txt lo abro
en excel y luego corro el macro buscando el numero de celular y luego
el valor y pegandolo en otra hoja y listo :) no se si es lo mas
optimo

Gracias Hector


si me puedes ayudar te lo agradeceria

hola, !

... tengo un archivo de pdf que son las facturas electronicas de celular
lo que necesito es poder sacar el numero de celular valor de la factura de ese celular
ya que vinen 460 hojas que comprenden todas las facturas de 80 celulares aveces son mas aveces son menos
entonces lo que pretendo hacer es guardo el archivo pdf en txt lo abro en excel
y luego corro el macro buscando el numero de celular y luego el valor y pegandolo en otra hoja y listo :)
no se si es lo mas optimo

de tu consulta original y la primera propuesta (creo que) no tiene aplicacion ni sentido de seguir sobre eso (?)
de tu segunda consulta (tratando de imaginar el arreglo de tus datos) no das respuesta a mis (re)preguntas (?)
con lo que expones ahora, ya no tengo ni idea "de que estamos hablando" ? (de donde, a donde, como, ... ?)

si el *.pdf convertido a *.txt lo abres en excel, te sirve probar con las opciones de tablas dinamicas ?
o provee informacion clara y suficiente para poder (RE)construir un modelo y entorno de trabajo (exactamente) "igual al tuyo" (?)

saludos,
hector.