Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Logo Excel Avanzado

Plantilla para el registro de clientes usando formularios

| Sin comentarios

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

Registro de clientes 300x189 Plantilla para el registro de clientes usando formularios

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.

PLANTILLA PARA REGISTRAR NUEVOS CLIENTES

Deja una respuesta

Los campos requeridos estan marcados con *.