Validación en listbox valores repetidos varias condiciones - Excel VBA


27 de Octubre del 2016

Hola,

 

Tengo una duda con respecto a como validar dentro de un listbox varias condiciones. Es decir, encuentro el valor de textbox1 pero existen mas registros cone se nombre, entonces deseo validar contra las demas columnas del listbox para encontrar ese regsitro

//Código

Private Sub ListBox1_Click()

fila = 1
While Sheets("Hoja1").Cells(fila, 6) <> Empty
dato6 = TextBox5
TextBox1 = ListBox1.column(0)
TextBox2 = ListBox1.column(1)
TextBox3.Value = Format(Now, "HH:mm:ss")
ComboBox6 = ListBox1.column(3)
TextBox4 = ListBox1.column(4)
If TextBox1 = Sheets("Hoja1").Cells(fila, 1) Then
If TextBox2 = Sheets("Hoja1").Cells(fila, 2) Then
If dato6 = Sheets("Hoja1").Cells(fila, 3) Then
TextBox2.Locked = False
TextBox3.Locked = False
ComboBox4.Locked = False
TextBox4.Locked = False
ComboBox6.Locked = False
Cells.Find(What:=ListBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole).Activate
End If
End If
End If
fila = fila + 1
Wend

 

TextBox2.Locked = False
TextBox3.Locked = False
ComboBox4.Locked = False
TextBox4.Locked = False
ComboBox6.Locked = False
End Sub