Como faço para obter uma macro do Excel para copiar dados de uma coluna específica e a mesma linha selecionada na ativação da macro?

Question

Exemplo: Eu selecionei qualquer linha e qualquer coluna, digamos D6. Os dados que estou procurando estão na coluna H. Portanto, quero que a macro copie os dados na linha 6 e a coluna H, ou seja, H6.

Se eu tiver selecionado G14, a macro deverá copiar os dados na célula H14, etc.

    

Answer 1

 Range("H" & ActiveCell.Row).Copy
 ActiveCell.PasteSpecial

chamá-lo em Worksheet_SelectionChange

se você quiser apenas usar o valor, basta atribuir

Range("H" & ActiveCell.Row).Value 

para uma variável e use-a em seus cálculos e retorne onde você quiser

    

Answer 2

Eu escrevi uma macro para isso. Ele sempre copia a célula selecionada e cola os dados na coluna H na mesma linha.

Sub NewMacro()
    Selection.Copy
    Cells(ActiveCell.Row, 8).Select
    ActiveSheet.Paste
End Sub

    

Answer 3

Você teve alguns dias, então pode ter chegado a uma resposta já, mas estendendo a resposta já sugerida, acho que o abaixo fará o que você perguntar:

Sub CopyFromColH()
    'Save the current location
    Dim TargetCell As Range
    Set TargetCell = ActiveCell.Range("A1")

    'Copy from same row in H
    Cells(ActiveCell.Row, 8).Select
    Selection.Copy

    'Paste to original location, as saved above
    TargetCell.Select
    ActiveSheet.Paste
End Sub

    

Answer 4

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  If Not Intersect(Target, Range("U:U")) Is Nothing Then
    Cancel = True

    If Application.CountIf(Sheets("AA").Range("L:L"), Target.Value) = 0 Then
      Cells(Target.Row, 12).Value = Target.Value
    End If
  End If

End Sub