Últimos pasos para finalizar el UserForm
Quisiera que me puedas ayudara terminar el UserForm que he estado construyendo contigo pues no se de que manera registrar los productos o servicios en el formulario.
¿Alguna idea?
1 Respuesta
Respuesta de Dante Amor
1
Revisa la siguiente propuesta:
En el textbox del producto, capturas el producto y presionas un botón para agregar el producto a un listbox:
Este es el código para agregar el Producto al listbox y el código para guardar todos los datos en la hoja:
Private Sub CommandButton1_Click()
If TextBox4 = "" Then
MsgBox "Escribe el producto"
TextBox4.SetFocus
Exit Sub
End If
'
ListBox1.AddItem TextBox4
TextBox4 = ""
End Sub
'
Private Sub CommandButton2_Click()
Dim i As Long, lr As Long
'
'VALIDACIONES
If TextBox1 = "" Then
MsgBox "Captura tipo de ID"
Exit Sub
End If
If TextBox2 = "" Then
MsgBox "Captura Nombre"
Exit Sub
End If
If ListBox1.ListCount = 0 Then
MsgBox "Captura Producto"
Exit Sub
End If
'
For i = 0 To ListBox1.ListCount - 1
lr = Range("A" & Rows.Count).End(3).Row + 1
Range("A" & lr) = ComboBox1
Range("B" & lr) = TextBox1
Range("C" & lr) = TextBox2
Range("D" & lr) = TextBox3
Range("E" & lr) = TextBox4
Range("F" & lr) = ListBox1.List(i)
Next
End Sub
