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)
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!!