Move cell content into another cell

[projectile]

Hi

Looking for VB code that will move the content from column H based current row selected by user.

e.g.

if user selects any cell , the VB code needs grab the content of column "H" of that row, and move it to the column "A" of the same row.

I have tried ActiveCell.Offset(0, 5).Copy , but it is picking up reletive column and but i need the fixed column reference.

thanks

 

[taurean]

What kind of code are you looking for
-- Worksheet events (like changing Selection or Changing Cell content etc.) which will be triggered if you do the specified action.
Or
--Typical macro which you can call by Macro Dialog box!

 

[njimack]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count = 1 Then
    Cells(Target.Row, 8).Cut Cells(Target.Row, 1)
End If
Application.EnableEvents = True
End Sub

 

[projectile]

I'm trying to create a button, so when the user selects a cell, and clicks the button it performs the actions.

When I use this code above it throws an error

Sub Back2Back()

Application.EnableEvents = False
If Target.Count = 1 Then
Cells(Target.Row, 4).Cut Cells(Target.Row, 22)
End If
Application.EnableEvents = True


End Sub

 

[projectile]

this code works

Sub nameofRoutine()

Dim myRange As Variant

Set myRange = ActiveCell

Application.EnableEvents = False
If myRange.Count = 1 Then
    Cells(myRange.Row, 4).Cut Cells(myRange.Row, 22)
End If
Application.EnableEvents = True


End Sub

Thanks guys