Cordial saludo, a continuación les mostraré el paso a paso de como hacer una macro para alimentar una base de datos con un clic:
1. Debemos designar una hoja donde se cargará la información de la base de datos, en el ejemplo que les voy a dejar llame a mi hoja BD, y posteriormente debemos diseñar una plantilla a través de la cual digitaremos la información que cargará la base de datos. Ejemplo: Informacion de ventas de celulares por fecha, plantilla ubicada en la hoja "Formulario" en las celdas C4:D10.
2. lo primero que debemos hacer para poder comenzar a grabar la macro es ordenar la información de forma lineal en una tabla sencilla de 2 filas, como queremos que se alimente en nuestra base de datos, Ejemplo: yo la ubique en (C50:I51) de esta manera
3. Posteriormente relacionamos en la tabla, a través de la que alimentaremos la base de datos, cada celda que contiene la información. (Con la función IGUAL “=”) ejemplo: la celda C51 colocamos : “=D4” y C52: “=D5” y asi sucesivamente.
4. Iniciamos grabación de macro sobre la hoja donde esta la informacion, yo por ejemplo llamare mi hoja "Formulario" con este paso a paso:
4.1 seleccionar las celdas C51:T51, presiona la tecla control+C
4.2 seleccionar la hoja BD (que es la hoja donde se guardara mi base de datos), luego seleccionar la celda donde debe ir la información, presionar control+V
4.3 devolvernos a la hoja donde esta la plantilla. Ejemplo: “formulario”
5. Esa sería la macro que copia y pega la información desde el "formulario" hasta la hoja BD, ahora bien, la macro no sabe la celda donde debe pegar la información por ende usaremos el comando:
proximafila = Range("B65536").End(xlUp).Row + 1
Range("B" & proximafila).Select
Este comando busca la próxima celda vacia y posiciona el cursor en dicha celda, debemos colocarlo antes del comando de pegar, de esta manera el busca la línea siguiente donde debe cargar la información.
6. Para Finalizar asignemos la macro a una imagen de su preferencia, de modo que cuando se presione la imagen con un clic la macor se ejecutara automáticamente.
7. por ultimo y como adicional, use sobre la hoja de formulario el comando
Range("d4:d10").Select
Selection.ClearContents
Este Comando borra la informacion que se colocó inicialmente en la plantilla, esto con la finalidad de la macro no alimente datos duplicados de informacion.
Espero les parezca clara la informacion y les sirva de ayuda, cualquier duda o asesoria no duden en contactarme.
Aquí les dejo la macro como me quedo al final:
Ing. Johanna Pérez