Este fórum está sendo desativado

[Adrian]

Parceiros tenho na Coluna "A" os meses abaixo:
e na "B" Ano e na "C" também exemplo:
MÊS | 2015 | 2016
JAN 2000 200
FEV
MAR
ABR
MAI
JUN
JUL
AGO
SET
OUT
NOV
DEZ
Preciso de uma macro que filtre sempre o Mês atual, nesse caso JAN. Assim que clicar no botão que eu atribui a macro ele me filtre aquele mês que estamos. Tem como?

Grato

Adrian

[Reinaldo]

Na falta de maiores informações, tente adaptar a sua realidade

Código: Selecionar todos

Private Sub ComboBox1_Change()
Dim Dtini As Date, DtFim As Date, Mes As Integer

If ComboBox1.Text <> "" And ComboBox1.Text <> "Pesquisar !!!!" Then
    Dtini = CDate(1 & "/" & ComboBox1.Text & "/" & Year(Date))
    DtFim = Application.WorksheetFunction.EoMonth(Dtini, 0)
Else
    'ActiveSheet.ShowAllData
    Exit Sub
End If

  If IsDate(Dtini) And IsDate(DtFim) Then
    Selection.AutoFilter Field:=1, _
    Criteria1:=">=" & Format(Dtini, "mm/dd/yyyy"), Operator:=xlAnd, _
    Criteria2:="<=" & Format(DtFim, "mm/dd/yyyy")
  Else
    ActiveSheet.ShowAllData
  End If
End Sub

[Adrian]

Reinaldo, obrigado mas deu certo porque estou usando Combobox. Estou atribuindo macro a um botão normal.