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...
