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!