Macro para Filtro Padrão

Boa tarde,

Eu tenho uma tabela com duas colunas, onde a coluna A aparecem vários nomes e a coluna B a descrição de cada elemento de A. Porém, na coluna A alguns elementos se repetem. Dessa forma eu criei um filtro padrão para excluir as duplicatas que existem em A.

Nesse caso eu clico em Dados > Filtro Padrão e nas Opções eu seleciono o item “sem duplicatas” e depois escolho para onde quero copiar a tabela final (sem as duplicatas).

Gostaria de criar uma MACRO para esse procedimento, onde eu apenas clico em um botão para o Calc realizar todos esses passos para mim. Eu não sei ABSOLUTAMENTE NADA DE MACRO, mas procurei algumas coisas na internet e tentei criar minha Macro para esse caso (óbvio que não deu certo hehehe).

Alguém poderia me ajudar?

Segue abaixo o que eu tentei fazer:

Sub FiltroAvancado

Dim oSheet As Object 'Uma planilha de um documento Calc.

Dim oDataRange 'intervalo que contém os dados a serem filtrados.

Dim oFilDesc 'Definições do filtro.

oSheet = thisComponent.getSheets().getByIndex(0)

oDataRange = oSheet.getCellRangeByName(“A2:B13”)

oFiltDesc = oSheet.createFilterDescriptor(True)

‘oFilterDesc.SkipDuplicates = True’

REM Copia o resultado para um local diferente do local original.

oFiltDesc.CopyOutputData = True

REM Cria CellAddress e configura isto para a planilha3,

REM Coluna B, linha 4 (lembre-se, começa em 0)

Dim x As New com.sun.star.table.CellAddress

x.Sheet = 0

x.Column = 3

x.Row = 1

oFiltDesc.OutputPosition = x

End Sub

Espero que alguém possa me ajudar!

Obrigada!

Complemento

Não adiantou! Esse manual tem partes que ele não comenta o que significa a linha e aí eu fico perdida. Além do que o espanhol me mata haha! Tentei fazer mas mesmo assim não deu certo! :confused:

Poste um arquivo exemplo de como esta seu arquivo…

Ola @duvanzan, seja bem vindo ao Grupo.

Segue um exemplo, encontrei no manual de Mauricio Baeza Sérvin

Segue arquivo teste


ATENÇÂO:: Caso queira dar mais detalhes a sua pergunta, use Descrição da imagem na pergunta ou Descrição da imagem abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.