Boa tarde, gostaria de que uma caixa de combinação pudesse realizar um filtro simples no mês
Observem que do jeito que está, só retorna fevereiro.
Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(janeiro).Activate
ActiveSheet.Range("$D$13:$K$45").AutoFilter Field:=3, Criteria1:="janeiro"
Sheets(fevereiro).Activate
ActiveSheet.Range("$D$13:$K$45").AutoFilter Field:=3, Criteria1:="fevereiro"
End Sub
Postado : 28/12/2016 1:54 pm