Importar anotações para células

[sammarrques]

Olá, colegas.

Gostaria de saber se é possível importar as anotações de uma célula e transpor seu texto para uma outra célula.

Tenho um arquivo cheio de anotações e gostaria de listar essas anotações referenciando cada célula.

Segue o que estou tentando fazer aqui para controle da empresa: SETEMBRO_SEMANA_3.ods

A planilha “RESUMO - Exemplo” é o que quero desenvolver. A partir da planilha “Quadro de vendas”, desejo gerar um relatório automático da situação dos pontos de venda. Gostaria de que as anotações fossem incorporadas no exemplo que fiz, utilizando apenas os pontos de venda do “BAIRRO 1”.

Alguém poderia me ajudar a organizar o RESUMO?
Não sei como referenciar de modo que liste o número da venda em cada bairro associada a cada vendedor.

[ohallot]

Segue uma macro para resolver o problema.

A função ANOTACAO pode ser chamada na célula com a fórmula =ANOTACAO(“Quadro de vendas”;“F5”), etc…

Function ANOTACAO(Planilha as String, Celula as String) As String
GlobalScope.BasicLibraries.LoadLibrary("Tools")
oSheet = ThisComponent.Sheets.getByName(Planilha)
oCell = GetCellByName(oSheet, Celula)
ANOTACAO = oCell.Annotation.String
End Function