Cómo hacer una Base de Datos en Excel con Macros VBA - Parte 03 Botón Imprimir - Preguntas y Respuestas
Hola estimados seguidores de la página Excel Cuántico, continuamos desarrollando nuestro proyecto "BASE DE DATOS EN EXCEL", en la primera parte vimos como codificar los botones: "Buscar, Guardar, Modificar y Eliminar", si todavía no lo revisaste presiona aquí. En la segunda parte vimos la programación de los Botones " Siguiente, Anterior, Inicio y Final", si todavía no lo revisaste presiona aquí.
En esta oportunidad vamos a responder las consultas que nos hicieron nuestros suscriptores de canal.
Iniciamos respondiendo a una de las consultas más realizadas, que es acerca del botón buscar, muchos de nuestros suscriptores tuvieron problemas con la búsqueda de información de la base de datos, esto es porque a un inicio realizamos la búsqueda utilizando la función "BUSCARV" en VBA, pero en esta ocasión lo vamos a reemplazar por un recorrido "FOR NEXT" como mostramos a continuación.
--------------------------------------------------------------------------------------------------------------------------
Private Sub CmdBuscar_Click()
'On Error Resume Next
'
'Me.TxtDni.Text = Application.WorksheetFunction.VLookup(Me.TxtCodigo.Text, Hoja1.Range("A:F"), 2, 0)
'Me.TxtApellidos.Text = Application.WorksheetFunction.VLookup(Me.TxtCodigo.Text, Hoja1.Range("A:F"), 3, 0)
'Me.TxtNombres.Text = Application.WorksheetFunction.VLookup(Me.TxtCodigo.Text, Hoja1.Range("A:F"), 4, 0)
'Me.CmbGrado.Text = Application.WorksheetFunction.VLookup(Me.TxtCodigo.Text, Hoja1.Range("A:F"), 5, 0)
'Me.CmbSeccion.Text = Application.WorksheetFunction.VLookup(Me.TxtCodigo.Text, Hoja1.Range("A:F"), 6, 0)
'
'Me.TxtCodigo.Enabled = False
Dim X As Long, uFila As Long
uFila = nReg(Hoja1, 4, 1) - 1
For X = 4 To uFila
If Hoja1.Cells(X, 1) = Me.TxtCodigo.Text Then
Me.TxtDni.Text = Hoja1.Cells(X, 2)
Me.TxtApellidos.Text = Hoja1.Cells(X, 3)
Me.TxtNombres.Text = Hoja1.Cells(X, 4)
Me.CmbGrado.Text = Hoja1.Cells(X, 5)
Me.CmbSeccion.Text = Hoja1.Cells(X, 6)
End If
Next X
End Sub
------------------------------------------------------------------------------------------------------------------------
Como vemos pusimos la anterior codificación en modo de comentario para poder realizar la nueva búsqueda con el recorrido "FOR NEXT". Ahora responderemos a la siguiente consulta: "Como hacer para que no borre los ceros delante del DNI", para ello lo que haremos es darle formato a la celda antes de guardar la información.
------------------------------------------------------------------------------------------------------------------------
With Hoja1.Cells(uFila, 2)
.NumberFormat = "@"
End With
Hoja1.Cells(uFila, 2) = Me.TxtDni.Text
-----------------------------------------------------------------------------------------------------------------------
Con la codificación "NumberFormat" elegimos el formato de la celda, en este caso lo pusimos como formato de texto para que no elimine los ceros delante del DNI. Debemos hacer lo mismo en el botón "MODIFICAR".
Otra de las consultas es la siguiente "Como hacer para que no me permita agregar un alumno duplicado", para ello tenemos que hacer un recorrido en nuestra base de datos y validar si el alumno que queremos agregar no se encuentre ya registrado. La codificación que mostraremos a continuación la deben agregar en el botón "GUARDAR".
------------------------------------------------------------------------------------------------------------------------
For X = 4 To uFila - 1
If Hoja1.Cells(X, 2) = Me.TxtDni.Text Then
MsgBox ("El número de DNI ya fue registrado"), vbExclamation, "Excel Cuantico"
Exit Sub
End If
Next X
-----------------------------------------------------------------------------------------------------------------------
Si hasta el momento tienes dudas de como agregar la codificación que vamos mostrando no te preocupes al final del presente articulo vas a poder encontrar el video tutorial.
Otra consulta que nos hicieron fue "Que podamos imprimir el formulario", para ello tuvimos que agregar un botón y en dicho botón vamos a poner la siguiente codificación
----------------------------------------------------------------------------------------------------------------------
Private Sub BtnImprimir_Click()
On Error Resume Next
Me.CmdBuscar.Visible = False
Me.CmdGuardar.Visible = False
UserForm1.PrintForm
Me.CmdBuscar.Visible = True
Me.CmdGuardar.Visible = True
End Sub
------------------------------------------------------------------------------------------------------------------------
Con esto llegamos al final del presente artículo, espero que estemos aportando un granito en tu aprendizaje, bendiciones.
VER VÍDEO TUTORIAL
Aquí puedes ver el vídeo tutorial de "Como hacer una base de datos - Parte 03 Botón Imprimir - Preguntas y Respuestas". Si deseas encontrar más vídeos tutoriales presiona aquí.
DESCARGAR MATERIAL DE TRABAJO
Para descargar el material de trabajo PRESIONA AQUÍ o puedes encontrar en nuestra pestaña DESCARGAS
Si te gusto el presente articulo no te olvide de compartir en tus redes sociales, suscribirte al blog para que te llegue las novedades y suscribirte a nuestro canal de YouTube es completamente "GRATIS" SUSCRIBETE.
