Anónimo
Ayuda con esta macro
Como hacer que esta macro al darle click, los datos nuevos se anexen en la fila siguiente es para crear un histórico este es el código:
Sub Rectángulo12_AlHacerClic()
Range("C4:D4").Select
Selection.Copy
Sheets("Consolidado_Reg").Select
Range("A2:B2").Select
ActiveSheet.Paste
Sheets("ModuloReg").Select
Range("C6:E6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Consolidado_Reg").Select
Range("C2:E2").Select
ActiveSheet.Paste
Sheets("ModuloReg").Select
Range("G6:H6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Consolidado_Reg").Select
Range("F2:G2").Select
ActiveSheet.Paste
Sheets("ModuloReg").Select
Range("J6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Consolidado_Reg").Select
Range("H2").Select
ActiveSheet.Paste
Range("A3").Select
Sheets("ModuloReg").Select
Range("C4:D4").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C6:E6").Select
Selection.ClearContents
Range("G6:H6").Select
Selection.ClearContents
Range("J6").Select
Selection.ClearContents
End Sub
Les agradezco la ayuda de verdad es un poco urgente
Gracias
Sub Rectángulo12_AlHacerClic()
Range("C4:D4").Select
Selection.Copy
Sheets("Consolidado_Reg").Select
Range("A2:B2").Select
ActiveSheet.Paste
Sheets("ModuloReg").Select
Range("C6:E6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Consolidado_Reg").Select
Range("C2:E2").Select
ActiveSheet.Paste
Sheets("ModuloReg").Select
Range("G6:H6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Consolidado_Reg").Select
Range("F2:G2").Select
ActiveSheet.Paste
Sheets("ModuloReg").Select
Range("J6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Consolidado_Reg").Select
Range("H2").Select
ActiveSheet.Paste
Range("A3").Select
Sheets("ModuloReg").Select
Range("C4:D4").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C6:E6").Select
Selection.ClearContents
Range("G6:H6").Select
Selection.ClearContents
Range("J6").Select
Selection.ClearContents
End Sub
Les agradezco la ayuda de verdad es un poco urgente
Gracias
1 Respuesta
Respuesta de Elsa Matilde
1
Necesitás guardar la primer fila libre en una variable, al inicio de tu rutina:
fi= Sheets("Consolidado_Reg").Range("A65536").end(xlup).Row + 1
Y ahora hacer mención a esta fila para copiar tus datos. Por ej: para la primer línea de copiado:
Range("A" & fi).Select
ActiveSheet. Paste
No es necesario establecer todo el rango, con indicar la primer celda la copia se hará a partir de ahí. Pero si necesitas hacer mención, con la variable sería:
Range("A" & fi & ":B" & fi).Select
Saludos
Elsa
PD) ¿Necesitas ayuda con VBA? Visita este sitio:
http://es.geocities.com/lacibelesdepunilla/manual_VBA
http://galeon.com/aplicaexcel
fi= Sheets("Consolidado_Reg").Range("A65536").end(xlup).Row + 1
Y ahora hacer mención a esta fila para copiar tus datos. Por ej: para la primer línea de copiado:
Range("A" & fi).Select
ActiveSheet. Paste
No es necesario establecer todo el rango, con indicar la primer celda la copia se hará a partir de ahí. Pero si necesitas hacer mención, con la variable sería:
Range("A" & fi & ":B" & fi).Select
Saludos
Elsa
PD) ¿Necesitas ayuda con VBA? Visita este sitio:
http://es.geocities.com/lacibelesdepunilla/manual_VBA
http://galeon.com/aplicaexcel
Muchas gracias Elsa la verdad me funciono correctamente muchas gracias puesto que apenas estoy arrancando y solo me baso en lecturas y practicas que dios la bendiga