ttake

Obrigado Osvaldo, mas não funcionou aqui... Testei filtrando por exemplo dia:01, mês 02, só que no filtro me aparece as seguintes datas "02/02/2000", " 03/02/2001" deveria aparecer somente "01/02/XXXX" adicionado 27 minutos depois Obrigado pela atenção @osvaldomp Consegui resolver com o código abaixo: Public ultima_linha As Long '------Filtra Dia--------- Private Sub combobox1_Change() Application.ScreenUpdating = False ultima = Range("A10000").End(xlUp).Row If ComboBox1.Value <> "" Then For i = 2 To ultima If Rows(i).EntireRow.Hidden = False Then If Left(Cells(i, 2), 2) = ComboBox1.Value Then Rows(i).EntireRow.Hidden = False Else Rows(i).EntireRow.Hidden = True End If End If Next i Else Range("A1:A" & ultima_linha).EntireRow.Hidden = False End If Application.ScreenUpdating = True End Sub '----Filtra Mes----- Private Sub combobox2_Change() Application.ScreenUpdating = False ultima = Range("A10000").End(xlUp).Row If ComboBox2.Value <> "" Then For i = 2 To ultima If Rows(i).EntireRow.Hidden = False Then If Mid(Cells(i, 2), 4, 2) = ComboBox2.Value Then Rows(i).EntireRow.Hidden = False Else Rows(i).EntireRow.Hidden = True End If End If Next i Else Range("A1:A" & ultima_linha).EntireRow.Hidden = False End If Application.ScreenUpdating = True End Sub '----Filtra Ano----- Private Sub combobox3_Change() Application.ScreenUpdating = False ultima = Range("A10000").End(xlUp).Row If ComboBox3.Value <> "" Then For i = 2 To ultima If Rows(i).EntireRow.Hidden = False Then If Right(Cells(i, 2), 4) = ComboBox3.Value Then Rows(i).EntireRow.Hidden = False Else Rows(i).EntireRow.Hidden = True End If End If Next i Else Range("A1:A" & ultima_linha).EntireRow.Hidden = False End If Application.ScreenUpdating = True End Sub '---Remove Filtros---- Private Sub CommandButton1_Click() Application.ScreenUpdating = False Range("A1:A" & ultima_linha).EntireRow.Hidden = False ComboBox1.Value = "" ComboBox2.Value = "" ComboBox3.Value = "" Application.ScreenUpdating = True End Sub Private Sub UserForm_Initialize() ultima_linha = Range("A10000").End(xlUp).Row End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.ScreenUpdating = False Range("A1:A" & ultima_linha).EntireRow.Hidden = False Application.ScreenUpdating = True End Sub

Obrigado, vou testar

Boa noite, possuo uma planilha que na coluna B possui diversas datas no formato dd/mm/aaaa em meu Formulário possuo três Combobox para selecionar e filtrar, sendo um por dia, outro para mês e outro por ano. Tentei realizar o filtro pelos seguintes código: Private Sub combobox1_Change() If ComboBox1.Value <> "" Then ActiveSheet.Range("$A$1:$C$99999").AutoFilter Field:=2, Criteria1:="*" & ComboBox1.Value & "*" Else Selection.AutoFilter Field:=2 End If End Sub Private Sub combobox2_Change() If ComboBox2.Value <> "" Then ActiveSheet.Range("$A$1:$C$99999").AutoFilter Field:=2, Criteria2:="*" & ComboBox2.Text & "*" Else Selection.AutoFilter Field:=2 End If End Sub Private Sub combobox3_Change() If ComboBox3.Value <> "" Then ActiveSheet.Range("$A$1:$C$99999").AutoFilter Field:=2, Criteria3:="*" & ComboBox3.Text Else Selection.AutoFilter Field:=2 End If End Sub mas sem sucesso. Olhei diversos tópicos aqui no fórum, a maioria tem uma data inicial e outra final para filtro. eu quero por exemplo filtrar apenas 1 mês, ou apenas 1 dia especifico por exemplo ou até mesmo combinando entre um dia, mês e ano especifico. Acredito que o código teria que ter algo com a função Day() month() year() mas não consegui fazer rodar para filtrar o formulário. exemplo.rar