Como copiar una columna automáticamente en otra
Hola saludos, mi duda es la siguiente:
Me gustaría saber como copiar los datos que genero en una columna automáticamente a otra, y despeus generar datos nuevamente en esta columna y copiarlos en la columna siguiente a la anterior usada. Por ejemplo
Copiar los datos generados en la columna A en una columna B automáticamente y después volver a usar la columna A para generar datos y copiarlos en la columna C, no se como hacerlo tengo una idea de como pero no se como llevarla a cabo, no se si me puedes ayudar, te lo agradecería mucho ojala sea clara mi pregunta de cualquier forma no me rendiré hasta lograr una respuesta que me ayude, gracias por tu tiempo y suerte
Me gustaría saber como copiar los datos que genero en una columna automáticamente a otra, y despeus generar datos nuevamente en esta columna y copiarlos en la columna siguiente a la anterior usada. Por ejemplo
Copiar los datos generados en la columna A en una columna B automáticamente y después volver a usar la columna A para generar datos y copiarlos en la columna C, no se como hacerlo tengo una idea de como pero no se como llevarla a cabo, no se si me puedes ayudar, te lo agradecería mucho ojala sea clara mi pregunta de cualquier forma no me rendiré hasta lograr una respuesta que me ayude, gracias por tu tiempo y suerte
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
a), puedes utilizar el siguiente código para ayudarte:
Sub CopiaCelda()
Application.ScreenUpdating = False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("IV1").End(xlToLeft).Offset(0, 1).Select
ActiveSheet.Paste
ActiveCell.ColumnWidth = Range("A:A").ColumnWidth
Range("A1").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Con esto copias los datos y el formtato de los mismos. Espero te sirva.
Sub CopiaCelda()
Application.ScreenUpdating = False
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("IV1").End(xlToLeft).Offset(0, 1).Select
ActiveSheet.Paste
ActiveCell.ColumnWidth = Range("A:A").ColumnWidth
Range("A1").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Con esto copias los datos y el formtato de los mismos. Espero te sirva.
a), se me olvidaba decirte que este código puedes asignarlo a una Autoforma la cual al presionarla ejecuta las instrucciones automáticamente.
