| | Post: 2 | Registrato il: 02/11/2019
| Età: 31 | Utente Junior | excel 2010 | | OFFLINE | |
|
02/11/2019 19:12 | |
IL CODICE CHE HO SCRITTO PER QUESTO COMANDO è QUESTO, MA PURTROPPO NON MI FUNZIONA.
Sub macro1()
Dim i As Integer
For i = 12 To Sheets.Count
Sheets(i).Range("C9:C12,C16:C18,C35:C41,C54:C57,C72:C73,C75:C76,C78:C79,D9:D12,D16:D18,D35:D41,D54:D57,D72:D73,D75:D76,D78:D79,J9:J14,J20:J23,J26:J29,J35:J42,J56:J58,J72:J80,L9:L10,L16:L23,L35:L42,L54:L59,L72:L80").ClearContents
Next i
For i = 15 To Sheets.Count
Sheets(i).Range("G3:G17,H3:H17,I3:I17,J3:J17,K3:K17,L3:L17,M3:M17,N3:N17,O3:O17,P3:P17").ClearContents 'QUI C'è LA TABELLA PVOT
Next i
For i = 14 To Sheets.Count
Sheets(i).Range("B2:B40,C2:C40").ClearContents
Next i
For i = 13 To Sheets.Count
Sheets(i).Range("D8:D100,E8:E100,F8:F100,G8:G100").ClearContents
Next i
For i = 16 To Sheets.Count
Sheets(i).Range("C8:C22,C28:C30,D8:D22,D28:D30,E8:E22,F8:F21,G8:G22,H8:H22").ClearContents
Next i
For i = 18 To Sheets.Count
Sheets(i).Range("C6:C9,C11,D6:D9,D11,D17:D20,E6:E12,F6:F12,F17:F20").ClearContents
Next i
For i = 19 To Sheets.Count
Sheets(i).Range("C8:C11,C20:C22,D8:D11,D20:D21,D29:D32,D35:D36,E8:E11,F8:F11,F29:F30,F33:F35,G8:G11,I8:I11").ClearContents
Next i
End Sub
|