Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Bom dia,

Veja se é isso:

Sub FiltroAvancado
Dim oDoc As Object, oPlanAtiva As Object, oPlan2 As Object
Dim oIntervalo As Object, oCriterios As Object
Dim oDestino As Object, oFiltro As Object

   oDoc = ThisComponent
   oPlanAtiva = oDoc.CurrentController.ActiveSheet
   oPlan2 = oDoc.Sheets.getByName( "Planilha2" )

   oIntervalo = oPlan2.getCellRangeByName( "A1:F1000000" )
   oCriterios = oPlanAtiva.getCellRangeByName( "B1:G2" )
   oDestino = oPlanAtiva.getCellRangeByName( "B7" )

   oFiltro = oCriterios.createFilterDescriptorByObject( oIntervalo )
   oFiltro.CopyOutputData = True
   oFiltro.OutputPosition = oDestino.CellAddress
   oFiltro.ContainsHeader = True

   'Filtrar'
   oIntervalo.Filter( oFiltro )
End Sub

Atte,