copy/paste cell in vba

[lezawang]

Hi
I want to learn how to copy and paste a cell in vba. First, I thought it is as easy as

Cells(1,1).copy
cells(2,2).paste

That would copy cells(1,1) and paste it into cells(2,2) but that did not work. It leads me to a question on why I have cell.paste function?
So I went to watch a video and in that video the author did this

Range("A1").copy Range("C1)

That would copy A1 to C1

So I tried almost the same thing but did not work, please see the code below

Sub copypaste()
Dim x As Integer
    Dim y As Integer
    Dim n As Integer
    Dim m As Integer
        x = InputBox("first cell row")
        y = InputBox("first cell col")
        n = InputBox("second cell row")
        m = InputBox("second cell col")
    ThisWorkbook.ActiveSheet.Cells(x, y).Copy ThisWorkbook.ActiveSheet.Cells(n, m)
End Sub

 

[Joe4]

Your code works just fine for me.
Did you put it in a Generic/General module, or a Sheet or Workbook module?

By the way, I would simply this:

ThisWorkbook.ActiveSheet.Cells(x, y).Copy ThisWorkbook.ActiveSheet.Cells(n, m)

to this:

Cells(x, y).Copy Cells(n, m)

as if you leave that stuff off, it will default to the ActiveSheet in the Active Workbook.

 

[lezawang]

Thanks for your reply. I got same error message

Run-time error 1004
copy method of range class failed

 

[lezawang]

Just wanted to add. It did work if I use range instead of Cells!

 

[MARK858]

What are the values of your variables when you get the errors?

 

[Joe4]

You didn't answer my question:

Did you put it in a Generic/General module, or a Sheet or Workbook module?

 

[lezawang]

Thank you all for the help. It is working now. My fault. I had like 6 cells merged as one and I was trying to copy to one of them. I used different range and it works fine. thanks a lot.