Solucionado (ver solução)
Solucionado
(ver solução)
1
resposta

Quero fazer um botao para limpar os filtros

Sub LimparFiltros()
'
' LimparFiltros Macro
'

'
    Range("A2:Q2").Select
    Selection.ClearContents

    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Sheets("Base de dados(limpa)").Range("A1:Q1117").AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=Range("A1:Q2"), CopyToRange:=Range( _
        "'DataSet(filtrado)'!Extract"), Unique:=False
End Sub

O código é VBA, mas não está limpando os filtros...

1 resposta
solução!

Faltou linkar o botão com a macro...