Base de datos con Botones en Excel: Agregar, Eliminar, Modificar y buscar
🔴Aprende a Hacer una base de datos en Excel con botones Buscar, Actualizar, Eliminar y Registrar. Organiza tu negocio o empresa con una base de datos en Excel que te permita tener todas las opciones.
Base de datos con Botones en Excel
✅ En este post aprenderemos a crear una Base de Datos en Excel. Realizaremos todos los botones que se necesitan como por ejemplo Registrar un cliente, Limpiar datos para Actualizar y Eliminar un Cliente, además de un Buscador para buscar a cualquier cliente de esta base de datos.
Agregar Campos en Excel
Ingresaremos los siguientes datos en nuestro formulario para registrar a un usuario:
Identificación – 100
Nombre Completo – Miguel Vela
Dirección – Calle. 200
Teléfono – 9998888
Correo – Luis@gmail.com
Una vez que ya hemos agregado los campos correspondientes haremos clic en Registrar, veremos que este usuario nuevo se registra exitosamente, es decir veremos un cuadro de advertencia que nos indica que los datos se agregaron correctamente, de esta manera ya empieza a crecer mi Base de Datos.
Registramos 2 usuarios más como ejemplo y visualizaremos nuestra base de datos o registro.
Buscar un usuario por Código o Identificación
Para buscar un usuario con su código o identificación solo debemos agregar el número y hacer clic en la Lupita, así traerá todos los datos de la base datos y se podrá visualizar en los campos de Excel.
Limpiar los campos en el Formulario
Haremos clic en el botón Limpiar, veremos que los campos quedan vacíos, de esta forma podemos agregar nuevamente, o buscar otro usuario.
Actualizar los campos en el Formulario
Si deseamos actualizar los datos de un Usuario debemos poner el número de usuario registrado y hacer clic en el botón Actualizar, esto nos llevará a nuestro registro en el cual podremos cambiar los campos correspondientes.
Eliminar usuario de la Base de Datos
Para eliminar un usuario debemos identificar su código, buscar el usuario y luego dar clic en el botón eliminar. Nos saldrá un cuadro de advertencia en el cual nos pregunta si deseamos continuar, aceptamos y el usuario seleccionado se eliminará de nuestro registro.
Usuario que no existe
Si un usuario no existe al intentar identificarlo con los botones Buscar, Actualizar o Eliminar de nuestra base da datos nos dará la advertencia que este el dato usuario no se encuentra en nuestro registro.
Registrar un código que ya existe
Si ya existe un usuario con código de identificación al intentar registrarlo nos dará un cuadro de advertencia en el que se nos advierte que el código ya existe.
Crear nuestro Formulario
Para crear nuestro formulario lo primero que debemos hacer es guardar nuestro Libro de Excel habilitado para Macros, a nuestra Hoja 1 le pondremos el nombre Registro de Clientes de Vamos a poner nuestros campos iniciando en la Celda B5:
Identificación
Nombre Completo
Dirección
Teléfono
Correo
Creamos nuestro primer botón, para esto buscamos insertar una forma y buscamos uno que se asemeje al ejemplo. Escribimos dentro Registrar. Duplicamos el Botón y le ponemos Limpiar. Duplicamos el Botón y le ponemos Actualizar. Duplicamos el Botón y le ponemos Eliminar. Para nuestra Lupa que hará la acción de búsqueda insertamos un círculo y agrupamos a un ícono tipo Lupita.
Ahora agregamos una hoja 2 y renombramos como BD que significa base de datos.
Hola, no terminas de explicar para que sirve la columna B (ID), dicha columna se supone que se actualiza con un numero consecutivo, pero en el principio del video fantástico dijiste que lo íbamos a ver, pero no lo has explicado.
Me GUSTARIA muchísimo saber como hacerlo.
Gran video
Saludos
Buen dia estimado, espero poder ayudar. Para que puedas hacer que tu Columna B estire de forma automatica el ID tenes que usar la formula en la primera linea de la Culumna B. =FILA()-FILA(Tabla1[[#Encabezados];[ID]])
Buenas tardes
estoy siguiendoel curso y ya el capitulo 6 pero me que de en el boton
Sub Buscar_en_BD()
Range(«BD_Clientes [#All]»).AdvancedFilter Action:=xlFilterinPlace, CriteriaRange:= Range(«C2:D3»), Unique:=False
End Sub
me bota herror le ebuscado y esta como lo esta explixndo en el video hay otra forma de ejecutarlo
muchas gracias
Tambien tengo error, con el Boton Buscar en BD, no filtra la información segiendo el mismo codigo, quizá algun tema de regionalizacion en el uso los codigos, ejemplo las «, = :»
Buen día, espero poder ayudar, tb me daba erro, y probé usar de la siguiente manera y me funciono:
Range(«BD_Clientes[#All]»).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range(«C2:D3»), unique:=False
Use la formula toda junta sin agregar el _ para seguir abajo, vale resaltar que para que te funcione bien, la descripción que están en las Columnas C3 y D3 deben ser exactamente igual a las de la Columna C5 y D5. Con tildes y todo.;
TENGO UN ERROR EN EL BOTON ELIMINAR
Hola. Sigo el curso y, al igual que mis compañeros, me quedé pegada en el botón ( buscar_en_BD). He intentado haciendo cambios pero nada me resulta. Me puedes ayudar, porque si no completo eso no me deja seguir la actividad y me interesa mucho terminarla. Me sale error método «Range» de objeto _Global
Veo que todos estamos con la misma duda, el boton Buscar_en_BD no me filtra como en el video.
Gracias
Buenos días, mi problema es el calendario incorporado al formulario.
Indica los meses
Indica los años..pero
No indica los días, aparecen del 1 al 9 y luego 1; 2; 3 por lo que tienes que adivinar, según el mes, pinchar y acertar la fecha en algunos de los números que aparecen. ?Existe alguna solución?. Gracias.
Soy seguidor de sus tutoriales y son de mucha utilidad y excelente calidad. Solo que paso mucho trabajo para descargar los códigos porque no me dan acceso a los mismos.
HOLA EXELENTE EXPLICACION DE LOS VIDEOS SALUDOS GRACIAS POR CONPARTIR LOS CONOCIMIENTOS
Sub Boton_Registrar()
Identificacion = Range(«C5»)
Nombre = Range(«C6»)
Direccion = Range(«C7»)
Telefono = Range(«C8»)
Correo = Range(«C9»)
Worksheet(«BD»).Rows(6).Insert
Worksheet(«BD»).Range(«C6») = Identificacion
Worksheet(«BD»).Range(«D6») = Nombre
Worksheet(«BD»).Range(«E6») = Direccion
Worksheet(«BD»).Range(«F6») = Telefono
Worksheet(«BD»).Range(«G6») = Correo
End Sub
ME SALE ERROR DE CONPILACION QUE NO SE DEFINIO LA VARIABLE
me podrias brindar el codigo por favor quiero para compararlo por que me sale puro error no se por que esta asi mi pc sera o estare haciendo mal mi wasap es 974068112