Notifications
Clear all

Duvida com Filtro + Caixa de texto

3 Posts
2 Usuários
2 Likes
425 Visualizações
(@gercilioferreira)
Posts: 2
New Member
Topic starter
 

Pessoal, poderiam me ajudar com esse arquivo?

Estou tentando fazer um filtro automático utilizando uma caixa de texto, peguei esse código na internet, mas não filtra.

Segue em anexo o arquivo

 
Postado : 08/01/2024 4:15 pm
(@osvaldomp)
Posts: 852
Prominent Member
 

Experimente:

Private Sub txtItem_Change()
With ActiveSheet.ListObjects("Tabela1").DataBodyRange
If txtItem = "" Then
If txtOp.Text = "" Then
.AutoFilter
Else: txtOp_Change
End If
End If
.AutoFilter Field:=4, Criteria1:=">=" & Me.txtItem.Text & Application.Rept("0", 6 - Len(Me.txtItem.Text)), _
Criteria2:="<=" & Me.txtItem.Text & Application.Rept("9", 6 - Len(Me.txtItem.Text))
End With
End Sub

Private Sub txtOp_Change()
With ActiveSheet.ListObjects("Tabela1").DataBodyRange
If txtOp = "" Then
If txtItem.Text = "" Then
.AutoFilter
Else: txtItem_Change
End If
End If
.AutoFilter Field:=3, Criteria1:=">=" & Me.txtOp.Text & Application.Rept("0", 6 - Len(Me.txtOp.Text)), _
Criteria2:="<=" & Me.txtOp.Text & Application.Rept("9", 6 - Len(Me.txtOp.Text))
End With
End Sub

 

obs. para o correto funcionamento dos códigos acima os números nas colunas C e D da Tabela1 DEVEM CONTER 6 DÍGITOS, como está na planilha que você postou.

Osvaldo

 
Postado : 08/01/2024 8:20 pm
P@tropi reacted
(@gercilioferreira)
Posts: 2
New Member
Topic starter
 

@osvaldomp, muito obrigado amigo!
Funcionou perfeitamente.

 
Postado : 09/01/2024 2:37 pm
Osvaldomp reacted