Validación contra campos vacíos vba

Tengo la siguiente función para que me valide que hay campos vacíos

If Me.cbo_not.Text = Empty Or _
Me.txt_fecha.Text = Empty Or _
Me.eje1.Text = Empty Or _
Me.eje2.Text = Empty Or _
Me.ListBox1 = Empty Or _
Me.ListBox2 = Empty Then

MsgBox "Hay cambios vacios en el PARTE"""
Exit Sub
End If

El asunto es que siempre me indica que tengo campos vacíos. Creo que es debido a que los listbox se cargan de forma automática sin tener que escribir en ellos.

En el caso del listbox1 se cargan mediante un boton y en el caso del listbox2 se cargan mediante la siguiente orden

Private Sub PermisosAsociados()

Dim Fila, Final As Integer

Fila = 2
For Fila = 2 To Final
If Me.cbo_not = Hoja4.Cells(Fila, 1) Then
Exit For
End If
Next
If Me.cbo_not.Value = Empty Then
Me.ListBox2.Clear
End If
Me.ListBox2.Clear

items = Hoja4.Range("permisos").CurrentRegion.Rows.Count
For i = 2 To items
If Hoja4.Cells(i, 1).Value Like Me.cbo_not.Value Then _
Me.ListBox2.AddItem Hoja4.Cells(i, 2)
Me.ListBox2.List(Me.ListBox2.ListCount - 1, 1) = Hoja4.Cells(i, 3)
End If
Next i
Exit Sub

End Sub

1 Respuesta

Respuesta
2

Prueba así:

  If Me.cbo_not.Text = Empty Or _
    Me.txt_fecha.Text = Empty Or _
    Me.eje1.Text = Empty Or _
    Me.eje2.Text = Empty Or _
    Me.ListBox1.ListCount = 0 Or _
    Me.ListBox2.ListCount = 0 Then
    MsgBox "Hay cambios vacios en el PARTE"""
    Exit Sub
  End If

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas