Buenas espero la corrección de algún experto, tengo este código y me da este mensaje Error de Compilación Calificador no Valido ...cual es mi error?
Private Sub Buscar(TextBox As Control, Columna As Integer)...................... (esto me pinta en amarillo)
Dim RUC As String
Dim uf As String
Dim i As Integer
uf = RUC.Range("D" & Rows.Count).End(xlUp).Row .....................................(y la palabra RUC ne selecciona)
If Trim(TextBox) = "" Then
ListBox1.RowSource = "'" & RUC.Name & "'!D2:E" & uf
Exit Sub
End If
ListBox1.RowSource = ""
For i = 2 To uf
If UCase(CStr(RUC.Cells(i, Columna))) Like "*" & UCase(TextBox) & "*" Then
ListBox1.AddItem RUC.Cells(i, 4)
ListBox1.List(ListBox1.ListCount - 1, 1) = RUC.Cells(i, 5)
End If
Next i
End Sub
Buenas espero la corrección de algún experto, tengo este código y me da este mensaje Error de Compilación Calificador no Valido ...cual es mi error?
Private Sub Buscar(TextBox As Control, Columna As Integer)...................... (esto me pinta en amarillo)
Dim RUC As String
Dim uf As String
Dim i As Integer
uf = RUC.Range("D" & Rows.Count).End(xlUp).Row .....................................(y la palabra RUC ne selecciona)
If Trim(TextBox) = "" Then
ListBox1.RowSource = "'" & RUC.Name & "'!D2:E" & uf
Exit Sub
End If
ListBox1.RowSource = ""
For i = 2 To uf
If UCase(CStr(RUC.Cells(i, Columna))) Like "*" & UCase(TextBox) & "*" Then
ListBox1.AddItem RUC.Cells(i, 4)
ListBox1.List(ListBox1.ListCount - 1, 1) = RUC.Cells(i, 5)
End If
Next i
End Sub
link del archivo
https://drive.google.com/drive/folders/0B5-NlIfimBMURGRzeDh6bEJGaVU
https://onedrive.live.com/?id=E55EF42198BD63DF!3096&cid=E55EF42198BD63DF
Mil Gracias