Guru do Excel e Power BI

Enviado: **23 Jan 2016 às 19:10**

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

Enviado: **24 Jan 2016 às 09:28**

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

Enviado: **25 Jan 2016 às 12:36**

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

Guru do Excel e Power BI

Filtrar mês automaticamente

Filtrar mês automaticamente

Re: FILTRAR MÊS AUTOMATICAMENTE

Re: Filtrar mês automaticamente