Hola Solo anida mas condiciones y especificando el índice de las columnas: If Criterio1=ListBox1.List(F,1) And Criterio2=ListBox1.List(F,2) And Criterio3=ListBox1.List(F,3) Then Msgbox"Lo encontraste" End If
Código de búsqueda : Dim F As Single, C As Single Me.LblFila.Caption = "" Me.LblColumna.Caption = "" Me.ListBox1.ListIndex = -1 For C = 0 To 9 For F = 0 To Me.ListBox1.ListCount - 1
If InStr(1, Me.ListBox1.List(F, C), Me.TxtSearch.Text, vbTextCompare) Then
Me.ListBox1.ListIndex = F Me.LblFila.Caption = "Fila N° " & F + 1 Me.LblColumna.Caption = "Columna N°" & C + 1 Exit Sub End If
Muy bueno, muchas gracias. Saludos
Muchas gracias por tus animadoras palabras.
un Maestro de excel un saludo amigo Desde Colombia.
Gracias a ti por tu constante apoyo al canal y comentarios animadores.
Mis respetos desde Venezuela!
Saludos. Y como seria con 3 condiciones para este caso? y epecificando algunas columnas.
Hola
Solo anida mas condiciones y especificando el índice de las columnas:
If Criterio1=ListBox1.List(F,1) And Criterio2=ListBox1.List(F,2) And Criterio3=ListBox1.List(F,3) Then
Msgbox"Lo encontraste"
End If
Código de búsqueda :
Dim F As Single, C As Single
Me.LblFila.Caption = ""
Me.LblColumna.Caption = ""
Me.ListBox1.ListIndex = -1
For C = 0 To 9
For F = 0 To Me.ListBox1.ListCount - 1
If InStr(1, Me.ListBox1.List(F, C), Me.TxtSearch.Text, vbTextCompare) Then
Me.ListBox1.ListIndex = F
Me.LblFila.Caption = "Fila N° " & F + 1
Me.LblColumna.Caption = "Columna N°" & C + 1
Exit Sub
End If
Next F
Next C