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