Como fazer uma macro de filtro avançado ser usada como uma formula?
Continuing the discussion from Como fazer Macro de Filtro Avançado no Calc?:
Ola @Matulle creio não ser possível, para Filtro avançado.
Mas é possivel, ligar a Macro em um evento.
Por exemplo quando alterar a celuna XX executar a macro.
Ou dependendo como esta o arquivo, é possível filtragem com uso de colunas extras para trabalho.
Poste um arquivo exemplo.
Altere Macro abaixo, conforme necessidade.,
'' Filtro Avancado = Sub AdvancedFilter
Sub AdvancedFilter 'Grafeno – ask.88558
Dim oDoc, oPlanAtiva, oPlan2, oIntervalo, oCriterios, oDestino, oFiltro As Object
oIntervalo = ThisComponent.Sheets.getByName( "Plan2" ).getCellRangeByName( "A1:b9" ) ' Fonte de dados.
oCriterios = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName( "a14:b15" ) 'Local do Filtro.
oDestino = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName( "a20" ) ' Local da Resultado.
oFiltro = oCriterios.createFilterDescriptorByObject( oIntervalo )
oFiltro.CopyOutputData = True
oFiltro.OutputPosition = oDestino.CellAddress
oFiltro.ContainsHeader = True
oIntervalo.Filter( oFiltro ) 'Filtrar
End Sub
Como função creio realmente não ser possível. Não encontrei nada do tipo. De qualquer maneira, fica aqui sugestão de leitura no Livro de Andrew Pitonyak, na seção sobre filtros, para ver se consegue montar algo.