Hola gente me podrian ayudar con esta macro de busqueda inteligente
publicado
Hola estoy en un proyecto personal y me trabe en una macro. Esta trata de Busqueda Padron, me tira el error " Se ha producido el error '1004' entiempo de ejecucion : Error definido por la aplicacion del objeto".
Hola estoy en un proyecto personal y me trabe en una macro. Esta trata de Busqueda Padron, me tira el error " Se ha producido el error '1004' entiempo de ejecucion : Error definido por la aplicacion del objeto".
Private Sub TEXTO_Change()
'MsgBox "Hola"
NumeroDatos = Sheets("PLANILLA").Range("Q" & Rows.Count).End(xlUp).Row
'MsgBox NumeroDatos
Sheets("PLANILLA").AutoFilterMode = False
Me.LISTA = Clear
Me.LISTA.RowSource = Clear
Y = 0
For File = 12 To NumeroDato
If UCase(Description) Like "*" & UCase(Me.TEXTO.Value) & "*" Then
Me.LISTA.AddItem
Me.LISTA.List(Y, 0) = Sheets("PLANILLA").Cells(Fila, 1).Value
Me.LISTA.List(Y, 1) = Sheets("PLANILLA").Cells(Fila, 2).Value
Me.LISTA.List(Y, 2) = Sheets("PLANILLA").Cells(Fila, 3).Value
Y = Y + 1
End If
Next
End Sub
Alguien me podra ayudar. Gracias!!