Vpre
00giovedì 24 novembre 2016 22:08
Ciao a tutti!
Mi potete dare una mano con questa macro perché mi dà Debug?
-----------------
Sub aaaaaaa()
vv = Cells(1, 1)
uu = Cells(2, 1)
Range("C4:F13").Copy
Range(Cells(vv, 8), Cells(uu, 11)).Paste
End Sub
----------------
Allego anche un file di esempio
Grazie
locatevaresino
00giovedì 24 novembre 2016 23:16
ciao
Sub aaaaaaa()
vv = Cells(1, 1)
uu = Cells(2, 1)
Range("C4:F13").Copy
Range(Cells(vv, 8), Cells(uu, 11)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Vpre
00venerdì 25 novembre 2016 02:10
Re:
locatevaresino, 24/11/2016 23.16:
ciao
Sub aaaaaaa()
vv = Cells(1, 1)
uu = Cells(2, 1)
Range("C4:F13").Copy
Range(Cells(vv, 8), Cells(uu, 11)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Adesso funziona!
Ma perché non funziona se non si fa Select?
patel45
00venerdì 25 novembre 2016 08:09
Sub aaaaaaa()
vv = Cells(1, 1)
uu = Cells(2, 1)
Range("C4:F13").Copy
Range(Cells(vv, 8), Cells(uu, 11)).PasteSpecial
End Sub oppure
Sub aaaaaaa()
vv = Cells(1, 1)
uu = Cells(2, 1)
Range("C4:F13").Copy Range(Cells(vv, 8), Cells(uu, 11))
End Sub
Vpre
00sabato 26 novembre 2016 00:47
Grazie!
Così imparo un po' di cose nuove...