Copy contents of specific cell to the active cell

[Hudco]

Hi Everyone,

I am trying to set VBA to set the current cell that I have clicked on as the cell with focus and copy the contents of a specific cell to that cell.

That is, my current selection might be B5 and I want to copy the contents of G6 to B5. B5 is the cell that will change depending on what cell I "click" on.

I have tried iterations of Range() and Set Focus but this seems to be above my knowledge/learning.

Any answers?

Thanks

 

[Sanjeev1976]

You can try the below code in your worksheet module :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Value = Range("G6").Value
End Sub

 

[Hudco]

You can try the below code in your worksheet module :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.Value = Range("G6").Value
End Sub

Thanks Sanjeev,

I just worked it out now - I wanted the formula's as well and that was where my coding was wrong.