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
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
0