Help with syntaxis

[Ephira]

Hi!, I´m new here
I have a little macro. The problem is that i´m trying to copy a range of another sheet on the same sheet but i think that i have a error syntaxis cuz the macro don´t runs. These are the bad guys:

Worksheets("plan").Range("G4:K7").Copy: Worksheets("plan").Range(Cells(j, 7), Cells(j + 3, 11)).PasteSpecial xlPasteFormulas
Worksheets("plan").Range("G4:K7").Copy: Worksheets("plan").Range(Cells(j, 7), Cells(j + 3, 11)).PasteSpecial xlPasteFormats
Worksheets("plan").Range("G4:K7").Copy: Worksheets("plan").Range(Cells(j, 7), Cells(j + 3, 11)).PasteSpecial xlPasteValidation

I hope somebody can help me. (Sorry, my english is kind of clumsy)

 

[Fluff]

Hi & welcome to MrExcel.
You need to qualify the cells with the sheet, not just the range.
Try it like

With Worksheets("plan")
   .Range("G4:K7").Copy: .Range(.Cells(j, 7), .Cells(j + 3, 11)).PasteSpecial xlPasteFormulas
   .Range("G4:K7").Copy: .Range(.Cells(j, 7), .Cells(j + 3, 11)).PasteSpecial xlPasteFormats
   .Range("G4:K7").Copy: .Range(.Cells(j, 7), .Cells(j + 3, 11)).PasteSpecial xlPasteValidation
End With

 

[Ephira]

Hi & welcome to MrExcel.
You need to qualify the cells with the sheet, not just the range.
Try it like

With Worksheets("plan")
   .Range("G4:K7").Copy: .Range(.Cells(j, 7), .Cells(j + 3, 11)).PasteSpecial xlPasteFormulas
   .Range("G4:K7").Copy: .Range(.Cells(j, 7), .Cells(j + 3, 11)).PasteSpecial xlPasteFormats
   .Range("G4:K7").Copy: .Range(.Cells(j, 7), .Cells(j + 3, 11)).PasteSpecial xlPasteValidation
End With

Oh, you are right!!!! Thank u! Now the macro works.

 

[Fluff]

You're welcome & thanks for the feedback.