Como puedo hacer un macro para que guarde los datos de una hoja en una base consecutivamente?
Tengo la primer hoja que se llamada datos donde se van a capturar todos los campos que solicita, lo que requiero es que en la hoja de base pueda ir guardando los datos hacia abajo. De antemano gracias por la atención y apoyo. En la celda donde dice Formatos tiene una validación de datos dependiendo cual se seleccione arroga diferentes resultados abajo, esto están con vlookup.
1 Respuesta
Te anexo un ejemplo con 3 datos: Operador, Usuarios y Teléfono.
Según tu imagen en la hoja "Base" tienes 2 encabezados, no puedo ver el número de fila, pero el segundo encabezado, supongo está en la fila 5, deberás cambiar en la macro esta fila, el 5 por el número de fila donde tienes ese encabezado.
U2 = 5 'fila con encabezados en la hoja "Base"
También deberás cambiar en la macro las celdas B3, B4, B5 por la correspondiente celda de la hoja "Datos".
Después debes agregar en la macro una línea por cada celda de la hoja "Datos" que desees pasar a la hoja "Base", solamente sigue los ejemplos.
Sub Pasar_Datos()
'Por Dante Amor
'Pasa los datos de la hoja "Datos" a la hoja "Base"
'
Set h1 = Sheets("Datos")
Set h2 = Sheets("Base")
u2 = 5 'fila con encabezados en la hoja "Base"
Do While h2.Cells(u2, "A").Value <> ""
u2 = u2 + 1
Loop
h2.Cells(u2, "A").Value = h1.Range("B3").Value 'Operador
h2.Cells(u2, "B").Value = h1.Range("B4").Value 'Usuario
h2.Cells(u2, "C").Value = h1.Range("B5").Value 'Teléfono
'
MsgBox "Registro enviado a la hoja Base"
End SubSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Pasar_Datos
- Aceptar.
- Para ejecutarla dale click a la imagen.
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
