Copy cell to another worksheet (destination is mentioned in a cell)

[Sumithdbm]

Hi, I am new to excel VBA. for a project i need to do something similar to below using a button click.

I have data on sheet1 and I need to copy data on sheet1 cell A1 to sheet2 Cell A3 (destination cell range "A3"mentioned in the Sheet1 cell D1). If i change cell address in D1 to A4, Data should copy to sheet2 Cell A4.

Thank You.

 

[mohadin]

Hi
try

Sub test()
    Sheets("sheet1").Range("a1").Copy Sheets("sheet2").Range(Sheets("sheet1").Range("d1"))
End Sub

 

[Sumithdbm]

Hi
try

Sub test()
    Sheets("sheet1").Range("a1").Copy Sheets("sheet2").Range(Sheets("sheet1").Range("d1"))
End Sub

Hi mohadin,

this works perfect. Thank You.

 

[mohadin]

You are welcome
And thank you for the feedback
Be happy & safe

 

[Sumithdbm]

Hi mohadin,

this works perfect. Thank You.

Is it possible to paste data as value?

 

[Sumithdbm]

And how to paste data in selected cell as value

 

[mohadin]

Sub test()
    Sheets("sheet1").Range("a1").Copy
    Sheets("sheet2").Range(Sheets("sheet1").Range("d1")).PasteSpecial Paste:=xlPasteValues
End Sub

And how to paste data in selected cell as value

Selection.PasteSpecial Paste:=xlPasteValues

 

[Sumithdbm]

Sub test()
    Sheets("sheet1").Range("a1").Copy
    Sheets("sheet2").Range(Sheets("sheet1").Range("d1")).PasteSpecial Paste:=xlPasteValues
End Sub

Selection.PasteSpecial Paste:=xlPasteValues

Thanks again. Perfectly match with my project.

 

[mohadin]

You are welcome
And thank you for the feedback
Be happy & safe