Buenas tardes; estimada comunidad, agradezco me ayuden con este caso.

Tengo una serie de textbox que cargan un listbox; los tengo condicionados para que, al dar clic en el boton de carga, me muestre un error si hay algo vacío; el problema es que la informacion se cargue al listbos solo cuando los 5 datos esten completos, pero lo que escribi sigue derecho y graba sin importar si todos estan completos.

 

Private Sub CommandButton14_Click()
'cargar informacion ref bancaria a listbox

    'validar que los campos esten completos
    If TextBox34 = Empty Then
        MsgBox "FALTA NOMBRE DE BENEFICIARIO", vbCritical
        TextBox34.SetFocus
    ElseIf TextBox35 = Empty Then
        MsgBox "FALTA NIT DE BENEFICIARIO", vbCritical
        TextBox35.SetFocus
    ElseIf ComboBox1.Value = Empty Then
        MsgBox "FALTA ENTIDAD BANCARIA", vbCritical
        ComboBox1.SetFocus
    ElseIf ComboBox2.Value = Empty Then
        MsgBox "FALTA TIPO DE CUENTA", vbCritical
        ComboBox2.SetFocus
    ElseIf TextBox33.Value = Empty Then
        MsgBox "NÚMERO DE CUENTA", vbCritical
        TextBox33.SetFocus
    End If

    'llenar listbox
        ListBox3.AddItem TextBox34.Value
        ListBox3.List(ListBox3.ListCount - 1, 1) = TextBox35.Value
        ListBox3.List(ListBox3.ListCount - 1, 2) = ComboBox1.Value
        ListBox3.List(ListBox3.ListCount - 1, 3) = ComboBox2.Value
        ListBox3.List(ListBox3.ListCount - 1, 4) = TextBox33.Value
        
End Sub

Sube tu archivo

Buenas tardes

La ruta donde esta la novedad es:

- Userform2

- Pagina 5

- Boton 14

 

FORMATO CREACION DE PROVEEDORES 1.0.xlsm

Buenas, Una forma de tantas es poner un : exit sub

If TextBox34 = Empty Then
        MsgBox "FALTA NOMBRE DE BENEFICIARIO", vbCritical
        TextBox34.SetFocus
        Exit Sub
.......

saludos

 

excelente solucion! Solo habia probado con la primera variable, pero al ponerselo a las demás funcionó perfecto.

Mil gracias

Tema cerrado

Te paso una mejor opcion : meter el el condicional el llenado de la lista

Private Sub CommandButton14_Click()
    'validar que los campos esten completos
    If TextBox34 = Empty Then
        MsgBox "FALTA NOMBRE DE BENEFICIARIO", vbCritical
        TextBox34.SetFocus
    ElseIf TextBox35 = Empty Then
        MsgBox "FALTA NIT DE BENEFICIARIO", vbCritical
        TextBox35.SetFocus
    ElseIf ComboBox1.Value = Empty Then
        MsgBox "FALTA ENTIDAD BANCARIA", vbCritical
        ComboBox1.SetFocus
    ElseIf ComboBox2.Value = Empty Then
        MsgBox "FALTA TIPO DE CUENTA", vbCritical
        ComboBox2.SetFocus
    ElseIf TextBox33.Value = Empty Then
        MsgBox "NÚMERO DE CUENTA", vbCritical
        TextBox33.SetFocus
    Else
  'llenar listbox
        ListBox3.AddItem TextBox34.Value
        ListBox3.List(ListBox3.ListCount - 1, 1) = TextBox35.Value
        ListBox3.List(ListBox3.ListCount - 1, 2) = ComboBox1.Value
        ListBox3.List(ListBox3.ListCount - 1, 3) = ComboBox2.Value
        ListBox3.List(ListBox3.ListCount - 1, 4) = TextBox33.Value
    End If
'cargar informacion ref bancaria a listbox
        
End Sub