En muchas ocasiones Excel es utilizado como base de
datos, hoy les traigo una macro que nos permitirá administrar la información de
un libro de Excel que usaremos como base de datos desde otro libro de Excel en el cual ingresaremos
y/o buscaremos información.
Este es nuestro libro de datos, como dije anteriormente
lo usaremos como base de datos:
Como pueden ver en este momento se encuentra sin datos.
Este es el libro desde el cual ingresaremos la
información:
Este libro contiene las macros que nos permitirán acceder
al libro de datos, hemos definido tres rutinas: para abrir el libro de datos,
para ingresar información y para buscar información.
Hemos definido las siguientes variables como globales:
Rutina para abrir libro de datos:
Lo que hacemos en esta rutina es abrir el libro de datos,
puedes encontrar más información sobre como abrir un libro de Excel desde otro
en una entrada anterior de este mismo blog.
Aquí también asignamos valor a la variable WS que hará
referencia a la hoja principal del libro desde el cual ingresaremos la
información.
La variable WS_FORMATOS hará referencia a una hoja del
libro principal que como su nombre lo indica contendrá los formatos en los
cuales introduciremos los datos.
Rutina para ingresar Datos:
En esta rutina se invoca a la rutina que abre el libro de
datos. Cuando el libro de datos se encuentra abierto validamos si tiene o no
datos y cual es la última fila con datos, para esto usamos la instrucción: fila
= WS_DATOS.Range("A1").Rows.End(xlDown).Row.
Cuando sabemos en que fila de la hoja activa en el libro de datos
pondremos la información, empezamos a copiarla desde el libro en el que se
ejecutan las macros.
Finalmente grabamos la información en el libro de datos y
cerramos el mismo.
Rutina Para Buscar Datos:
Invocamos la rutina que abre el libro de datos y
validamos si existe información, si el libro de datos no tiene información
mostramos un mensaje informando esto.
Utilizando un ciclo for recorremos el libro de datos
buscando por número de documento y cuando lo encontramos copiamos la
información desde el libro de datos al libro en el cual ejecutamos las macros.
Si no se encuentra la información en el libro de datos
mostramos un mensaje indicando esto.
Finalmente cerramos el libro de datos.
Mira la macro en funcionamiento en el siguiente vídeo .
Si quieres automatizar tus procesos en Excel escríbeme a macrosymacros1@gmail.com.
Para aprender más sobre macros visita nuestro curso online de excel.
Espero que esta macro te sea de utilidad, en este link encontraras una colección de mas de 20 macros , por favor deja tus comentarios.
