Ir ao conteúdo
  • Cadastre-se

Identificando posição da célula através de uma macro


dindon

Posts recomendados

Olá, pessoal...

Preciso de uma configuração de macro que identifique a posição da célula ativa, ou seja, clicando em uma célula qualquer na planilha, após isto aciono a macro, esta macro identifique a posição da célula que eu cliquei.

O passo seguinte é que esta macro copie o conteúdo da célula e cole em outra célula.

Não posso já deixar pré-determinada a posição ou as supostas posições da célula selecionada, por isso, preciso que a macro faça isso por mim, que ela identifique em qual célula eu cliquei.

Tomara que não tenha ficado muito confuso.

Desde já Agradeço.

Obrigado á todos que puderem me ajudar.

Link para o comentário
Compartilhar em outros sites

Bom dia,

Veja se a macro abaixo se aproxima do que você pretende:

Sub CopiarInterv2()
Dim oPlanAtiva As Object
Dim oOrigem As Object
Dim oDestino As Object
Dim sCelDestino as String


'Define a Planilha ativa e depois a seleção de origem
oPlanAtiva = ThisComponent.getCurrentController.getActiveSheet()
oOrigem = ThisComponent.getCurrentSelection()

'Define a célula destino
sCelDestino = "D10"
oDestino = oPlanAtiva.getCellRangeByName( sCelDestino )

'Cola
oPlanAtiva.copyRange( oDestino.getCellAddress, oOrigem.getRangeAddress() )

'Retorna a seleção a origem
ThisComponent.getCurrentController.select( oOrigem )

End Sub

[]s

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...