HOLA, RESULTA QUE NO SOY MUY APLICADO A LAS MACROS. PERO TENGO ESTA QUE ME ESTABA FUNCIONANDO BASTANTE BIEN. EL PROBLEMA ES QUE AL MOMENTO DE INGRESAR UNA CADENA DE TEXTO CON UN NUMERO COMO PRIMER CARACTER NO FUNCIONA.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyReturn Then

memo = TextBox1

ActiveSheet.Range("A1:F5000").AutoFilter Field:=2, Criteria1:="=*" & [memo] & "*" _

, Operator:=xlAnd

End If

ActiveWindow.SmallScroll Down:=-63

End Sub

ESTE ES EL LINK DE LA PLANILLA EN CUESTION

Dropbox - PRUEBA1.xlsm

AGRADECERIA CUALQUIER APORTE!!

Hola Juan Antonio, tengo dos problemas con tu pregunta:

Primero: No puedo abrir tu documento debido a un grave error según Excel

Segundo: no se que quieres conseguir con este Excel

Podrías explicar un poco tu proyecto?