| | Post: 88 | Registrato il: 10/06/2008
| Città: BRESCIA | Età: 47 | Utente Junior | Excel 2019 | | OFFLINE | |
|
  24/11/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 _________________
Excel 2019 |
|
| | Post: 1.910 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
| 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
Ciao da locate
excel 2007 / 13 |
| | Post: 88 | Registrato il: 10/06/2008
| Città: BRESCIA | Età: 47 | Utente Junior | Excel 2019 | | OFFLINE | |
|
| 25/11/2016 02:10 | |
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?
_________________
Excel 2019 |
| | Post: 3.473 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
| 25/11/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[Modificato da patel45 26/11/2016 08:22]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 89 | Registrato il: 10/06/2008
| Città: BRESCIA | Età: 47 | Utente Junior | Excel 2019 | | OFFLINE | |
|
| 26/11/2016 00:47 | |
Grazie!
Così imparo un po' di cose nuove...
_________________
Excel 2019 |
|
|
|
|