' perchè questa forma funziona
Sheets("Foglio2").Cells(4, 1).Copy
Sheets("Foglio3").Cells(4, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'questa invece no
Sheets("Foglio2").Range(Cells(1,1), Cells(4, 1)).Copy
Sheets("Foglio3").Cells(4, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' invece scrivendola così funziona
Sheets("Foglio2").Select
Range(Cells(1,1), Cells(4, 1)).Copy
Sheets("Foglio3").Select
Cells(4, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False |