Macro para OpenOffice que encontre a posição da célula ativa

[dindon]

Olá pessoal.

Em outra oportunidade, um amigo conseguiu sanar uma dúvida com macro no OpenOffice.

Para que uma macro encontrasse a posição da célula ativa pelo cursor na planilha e copiasse o texto desta célula ativa pelo cursor em uma determinada célula, me foi enviada esta macro que resolveu esta questão.

Sub CopiarInterv2()

Dim PlanAtiva As Object

Dim Origem As Object

Dim Destino As Object

Dim CelDestino as String

'Define a Planilha ativa e depois a seleção de origem

PlanAtiva = ThisComponent.getCurrentController.getActiveSheet()

Origem = ThisComponent.getCurrentSelection()

'Define a célula destino

CelDestino = "AP10"

Destino = PlanAtiva.getCellRangeByName(CelDestino)

'Cola

PlanAtiva.copyRange( Destino.getCellAddress, Origem.getRangeAddress() )

'Retorna a seleção a origem

ThisComponent.getCurrentController.select( Origem )

End Sub

A questão agora é a seguinte:

Esta macro copia o texto da célula ativa e cola em um único endereço, ou seja, em uma única célula pré determinada na macro.

A ajuda que preciso agora é para que esta macro pesquise dentro de um intervalo de células a posição do cursor e responda em um outro intervalo o texto contido no 1º intervalo selecionado pelo cursor.

Por exemplo:

Definidos dois intervalos "D1:D100" e "A1:A100".

O intervalo "D1:D100" refere-se ao intervalo com a posição do cursor e o intervalo "A1:A100" refere-se ao intervalo que receberá o texto da célula selecionada pela posição do cursor.

Se o cursor estiver posicionado na célula "D10", a macro deverá copiar o texto para a célula "A10", se o cursor estiver posicionado na célula "D75", a macro deverá copiar o texto para a célula "A75" e assim, sucessivamente.

A definição do intervalo "D1:D100" é para que a macro fique restrita a copiar o texto da célula com a posição do cursor apenas para este intervalo, ignorando outras células ativas fora deste intervalo.

Em outras palavras, a macro teria que definir o endereço de coluna e linha da posição do cursor, e respondesse em outra coluna, porém, na mesma linha.

Desde já agradeço.