Excel - Macro que busque y copie

   
Vista:

Macro que busque y copie

Publicado por Jose Luis Ramírez (1 intervención) el 02/03/2011 18:15:04
Hola a todos!
Necesito su ayuda en la siguiente macro
Necesito que una vez que localice el valor indicado seleccione y copie hasta encontrar otro valor en la misma columna
Esta es la macro que realice:

Cells.Find(What:="Aclaraciones_POS", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Range("C13:AB128").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Aclaraciones_POS").Select
ActiveSheet.Paste

Cells.Find(What:="CAU_CAJEROS", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Range("C1621:AB1737").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CAU_CAJEROS").Select
ActiveSheet.Paste

Hoy en día los rangos los estoy modificando manualmente por cada archivo que debo de trabajar
Los todos los títulos se encuentran en la columna C, por lo que busco es que los rangos sean dinámicos
Quedo en espera de su respuesta
Si requieren más información, no duden en solicitarla
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