Filtro Avançado da a resposta com Formulas

[schiavinatto]

Tenho esta Macro ( derivada desta: Como fazer Macro de Filtro Avançado no Calc? desenvolvida por @Grafeno )

Sub AdvancedFilter   'Grafeno – ask.88558
Dim oIntervalo, oCriterios, oDestino, oFiltro As Object
oIntervalo = ThisComponent.Sheets.getByName( "Planilha1" ).getCellRangeByName( "C5:F500" )  ' Fonte de dados.
oCriterios = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName( "H3:K4" )  'Local do Filtro.
oDestino = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName( "H5" )  ' Local da Resultado.
oFiltro = oCriterios.createFilterDescriptorByObject( oIntervalo )
oFiltro.CopyOutputData = True
oFiltro.OutputPosition = oDestino.CellAddress
oFiltro.ContainsHeader = True
oIntervalo.Filter( oFiltro ) 'Filtrar
End Sub

Porem a fonte uma das colunas são formulas e na resposta do Filtro esta devolvendo as formulas e Geram valores errados.

Tem como Resultar sem formula ( só Texto, Números, Datas e Horas ).

OBS. Mesmo fazendo manual a resposta é a mesma.

[WBastos]

Fiz um filtro com fórmulas e funcionou normalmente.
Só tem que atentar para a formatação da célula que recebe a fórmula.

Segue Planilha

[schiavinatto]

Ola @WBastos, tem um arquivo modelo, para disponibilizar ?

[WBastos]

Opa!
Claro que tem.
Segue arquivo abaixo da figura acima.

[schiavinatto]

Ok @WBastos, achei o problema, a minha pesquisa e saída não são todas as colunas da base de dados.

Mas poderia funcionar igual o PROCV(H) trazendo o resultado que esta na célula.