Anónimo
Guardar información ordenada en fila
Buenos tardes jcgonzalez31, lo que necesito es por ejemplo: Hoja1 ingreso de datos personales (o cualquier información) de por cantidad de personas, después grabar mediante un botón y quede registrado en la Hoja2, al ingresar a la segunda persona quede guardado en la siguiente fila y así sucesivamente.
Muchas gracias de antemano.
Muchas gracias de antemano.
1 respuesta
Respuesta de Juan Carlos González Chavarría
1
a), me imagino que no tienes experiencia en programación VBA y quieres que yo te haga el trabajo. Sin embargo, aquí te dejo un código de ejemplo:
Sub CopiaRango()
Dim SigFila As Long
Application.ScreenUpdating = False
Range("A2:C2").Select
Selection.Copy
Hoja2.Select
SigFila = Range("A65536").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Hoja1.Select
Application.ScreenUpdating = True
End Sub
[email protected]
Sub CopiaRango()
Dim SigFila As Long
Application.ScreenUpdating = False
Range("A2:C2").Select
Selection.Copy
Hoja2.Select
SigFila = Range("A65536").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Hoja1.Select
Application.ScreenUpdating = True
End Sub
[email protected]
Estimado jcgonzalez31, la aplicación cuando se ejecuta:
1.- En la hoja1 queda seleccionada lo que se debe copiar.
2.- Se detiene e indica que tiene un error "400".
3.- Nada pasa a la hoja 2
Disculpa las molestias que te puedo estar produciendo.
1.- En la hoja1 queda seleccionada lo que se debe copiar.
2.- Se detiene e indica que tiene un error "400".
3.- Nada pasa a la hoja 2
Disculpa las molestias que te puedo estar produciendo.
¿Tienes tu Excel en español o por alguna razón has eliminado la hoja 2?
Si es la primera tienes que cambiar de Hoja1.Select a Sheet1.Select.
Si es la segunda tienes que poner el nombre de la hoja donde quieres los datos, tienes que cambiar de Hoja1. Select a Hoja("TuHoja"). Select.
[email protected]
Si es la primera tienes que cambiar de Hoja1.Select a Sheet1.Select.
Si es la segunda tienes que poner el nombre de la hoja donde quieres los datos, tienes que cambiar de Hoja1. Select a Hoja("TuHoja"). Select.
[email protected]
Disculpa es Hoja2 en lugar de Hoja1.