Olá Conrado, muito obrigado meu amigo pela atenção, mas não funcionou. Talvez ou passo tela declaro de forma errada. Veja a minha declaração:
Sub LimparCelulas
Worksheets("Orcamento").Range("B14:J33").ClearContents
End Sub
Mensagem de erro: "Erro em tempo de execução do BASIC. Procedimento Sub ou procedimento de Function não definido."
Vou tentar te passar o que eu estou buscando fazer. Já consegui fazer um filtro com macros, conforme segue abaixo.
Sub AplicarFiltroAvancado
Dim oDoc As Object, oPlanAtiva As Object, oPlan1 As Object, oPlan2 As Object, oPlan3 As Object
Dim oIntervalo As Object, oCriterios As Object
Dim oDestino As Object, oFiltro As Object, oFiltroVazio As Object
oDoc = ThisComponent
oPlanAtiva = oDoc.CurrentController.ActiveSheet
oPlan1 = oDoc.Sheets.getByName("Orcamento")
oPlan2 = oDoc.Sheets.getByName( "Consulta" )
oPlan3 = oDoc.Sheets.getByName("Acessorios")
oFiltroVazio = oPlan3.createFilterDescriptor( True )
oPlan3.Filter( oFiltroVazio )
oIntervalo = oPlan3.getCellRangeByName( "B5:F1048576" )
oCriterios = oPlan3.getCellRangeByName( "E2:E3" )
oDestino = oPlan2.getCellRangeByName( "A1" )
oFiltro = oCriterios.createFilterDescriptorByObject( oIntervalo )
oFiltro.CopyOutputData = True
oFiltro.OutputPosition = oDestino.CellAddress
oFiltro.ContainsHeader = True
'Filtrar'
oIntervalo.Filter( oFiltro )
End Sub
O filtro está funcionando corretamente. Agora eu preciso que, ao acionar o filtro as células (B14:J33) da planilha ("Orcamento") sejam limpas.
Grato pela ajuda!