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