Este fórum está sendo desativado

[vilc]

Boa noite, estou com uma planilha e quando tento filtrar só por números ela não filtra, mas se eu colocar uma letra ela filtra, segue em anexo a planilha, desde já agradeço.

[Foxtri]

Boa tarde.
Use o seguinte código:


'filtra pelo nº de serie

Private Sub TextBox1_Change()
Dim Rng As Range, Xval, XRng, Xlin
Application.ScreenUpdating = False
XRng = CStr(TextBox1.Value)
For Each Rng In ActiveSheet.ListObjects("Tabela3").ListColumns(1).DataBodyRange
Xval = CStr(Rng.Value)
If Not CBool(InStr(1, Xval, XRng, vbBinaryCompare)) Then
If Xval <> "" Then
Xlin = Rng.Row
Rows(Xlin).Hidden = True
End If
Else
Xlin = Rng.Row
Rows(Xlin).Hidden = False
End If
Next Rng
Application.ScreenUpdating = True
End Sub

Até
Foxtri

[vilc]

@Foxtri , muito obrigado, me ajudou muito, funcionou perfeito.