macros

[JOHN]

If I have a macro that copies A1 and pastes it into b1, how can I change the
macro to paste it into any selected cell?

 

[L. Howard Kittle]

Hi HOHN,

Try one of these...

Sub S_Copy()
ActiveCell.Value = Range("A1").Value
End Sub

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

Where you will have to activate the S_Copy() macro with a button or such and
the Selection_Change macro will copy A1 th the cell you click on.

HTH
Regards,
Howard

 

[L. Howard Kittle]

And I apologize for the misspelling of your name!

Howard

 

[JOHN]

Thank you Howard for your time and imput.

 

[JOHN]

My father always said..."Call me by any name, Just never call me late for
dinner....
Thanks again for your help.

 

[JOHN]

This is a copy of the macro, where do I put in your suggested changes?
I am coping row 5, columns A:V and pasting them into cj3. I want to change
CJ3 to any selected cell.

Sub JOHN()
'
' JOHN Macro
''
Range("A5:V5").Select
Selection.Copy
Range("CJ3").Select
ActiveSheet.Paste