Macro para copiar check list de hoja 1 a hoja 2
Estimado:
Mi consulta es la siguiente, como puedo desarrollar una macro en la cual de un check list en la hoja 1 en forma vertical, se copien los datos en la hoja 2 en forma horizontal cada vez que apreté un botón y al mismo tiempo se borren los datos de la hoja 1. La idea es ir guardando el registro de los check list en la hoja 2 para generar una estadística. Agradecido por su ayuda y atento a los comentarios.
Cristian Gálvez
Mi consulta es la siguiente, como puedo desarrollar una macro en la cual de un check list en la hoja 1 en forma vertical, se copien los datos en la hoja 2 en forma horizontal cada vez que apreté un botón y al mismo tiempo se borren los datos de la hoja 1. La idea es ir guardando el registro de los check list en la hoja 2 para generar una estadística. Agradecido por su ayuda y atento a los comentarios.
Cristian Gálvez
1 respuesta
Respuesta de bacter582
1
Como estas amigo, disculpa la tardanza en responder,
Suponiendo que los datos están en el rango A1:A8, prueba este macro a ver si es lo que necesitas.
Saludos
Bacter
Sub Macro1()
'
Range("A1:A8").Copy
Sheets("Hoja2").Range("A1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Sheets("Hoja1").Range("A1:A8").ClearContents
End Sub
Suponiendo que los datos están en el rango A1:A8, prueba este macro a ver si es lo que necesitas.
Saludos
Bacter
Sub Macro1()
'
Range("A1:A8").Copy
Sheets("Hoja2").Range("A1").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Sheets("Hoja1").Range("A1:A8").ClearContents
End Sub
