Si es que trabajamos con base de datos de clientes nuevos, los cuales debemos registrar su información diariamente es recomendable usar macros para facilitarnos el proceso.
Primero realizamos la plantilla
En esta plantilla vamos a poder registrar los datos de la persona y luego registrarlo en una pestaña de un excel. A su vez también podremos limpiar los textos para poder registrar a otros clientes.
- Para el botón "Cliente Nuevo" usamos las siguientes macros:
Private Sub commandbutton1_click()
Sheets("Hoja1").Select
CELULAR = TextBox5.text
If Len(Trim(CELULAR)) = 9 And IsNumeric(CELULAR) Then
ult = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ult + 1, 1) = TextBox1.text
Cells(ult + 1, 2) = TextBox2.text
Cells(ult + 1, 3) = ComboBox1.text
Cells(ult + 1, 4) = TextBox4.text
Cells(ult + 1, 5) = TextBox6.text
Cells(ult + 1, 6) = TextBox5.text
Else
MsgBox "Número ingresado es inválido"
End If
End Sub
La macro nos indica que en la Hoja 1 se copiaran los datos que están en las cajas de texto y en la lista. Además nos dice que en la caja de texto de "celular" tendrá que ir siempre 9 dígitos y números, de lo contrario nos enviará una caja de texto indicando que el número es inválido.
- Para el botón "Borrar lista"
Private Sub CommandButton2_Click()
TextBox1.text = ""
TextBox2.text = ""
TextBox4.text = ""
TextBox5.text = ""
TextBox6.text = ""
ComboBox1.Clear
End Sub
Esta macro nos ayuda a limpiar todas las cajas de texto y de la lista para poder ingresar nuevos datos.
- Pare tener la lista de Másculino y Femenino
Private Sub UserForm_Activate()
ComboBox1.AddItem (("Femenino"))
ComboBox1.AddItem (("Masculino"))
End Sub
Usamos la macro anterior para indicarle a la lista del combobox1 que los valores que debe tener son "Femenino" y "Masculino"
- Botónes de opción
Private Sub Extranjero_Click()
If Extranjero = True Then
TextBox6 = Extranjero.Name
End If
End Sub
Private Sub Peruano_Click()
If Peruano = True Then
TextBox6 = Peruano.Name
End If
End Sub
Usamos las 2 anteriores macros para indicar que si seleccionamos un botón, el nombre de éste irá al cuadro de texto 6. Cabe mencionar que debemos cambiar el Name de estos botones.
Y de esa manera se trabaja la macro.
Finalmente se coloca una imagen al diseño.