Este fórum está sendo desativado

[cristianso]

Antes de mais nada, anexei a planilha aqui neste tópico. Ficará mais fácil de entender o que quero ao baixar a planilha (ela tá bem simples, só tem um exemplo lá dentro).

Criei um código que ele pega a célula que eu cliquei e me dá o valor da coluna do lado.
Vamos supor que cliquei na A2, então a Macro vai me dar o valor da B2.
Preciso de uma forma prática pois pretendo fazer com MUITOS DADOS.

O problema é que usar um botão não funciona, pois quando você clica em um botão o excel não sabe em qual célula ele está. Então teria que ser ativado quando você clicasse na célula.

Código que estou usando:

Código: Selecionar todos

Sub Testando()
   Sheets("Planilha1").Select
   Linha = ActiveCell.Row
   Coluna = ActiveCell.Column
   
   Cells(Linha, Coluna + 1).Select
   Cells(Linha, Coluna + 1).Copy
   Range("E1").Select
   ActiveSheet.Paste
   
End Sub

[JulioMangilli]

Boa tarde,

Olá amigo, tente isso...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range


Set KeyCells = Range("A1:A100")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

Testando

End If
End Sub

Abraço.

[osvaldomp]

Solução sem botões, basta selecionar a célula desejada.
Instale uma cópia do código abaixo no módulo da planilha de interesse.

Código: Selecionar todos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, [A2:A16]) Is Nothing Then [E1] = Target.Offset(, 1).Value
End Sub