PULSANTE CANCELLA CELLE SU PIU FOGLI

Ciao a tutti,
mi hanno passato un file excel con 7 fogli da compilare, siccome questo foglio devo riutilizzarlo ogni giorno con valori totalmente diversi ho pensato di creare un pulsante che mi permetta di cancellare i valori nelle celle, ho seguito i vostri consigli che ho letto nel forum, ma purtroppo con risultati pari a 0.
la mia idea è quella di creare un pulsante nella prima pagina che sia collegato anche alle altre, ma ogni volta che compilo la macro mi risponde che la select del foglio è errata. Avete per caso un consiglio da darmi?

ciao

non conoscendo la struttura del tuo file e' difficile dirti come operare comunque un esempio di Sub() o Macro da inserire in un modulo

---

Option Explicit
Sub Cancella()
Sheets("Foglio1").Range("A2:E10").ClearContents
Sheets("Foglio2").Range("F2:G10").ClearContents
Sheets("Foglio3").Range("I2:L10").ClearContents
End Sub

---

questa non fa altro che in foglio1 cancellare le celle da A2-E10 Foglio2 da F2-G10 Foglio3 da I2_L10

ti allego il file di prova che ho generato

ciao
metti un pulsante in foglio1
e abbinalo a questa macro (da mettere su un modulo)

---

Sub macro1()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Range("A1:I20").ClearContents
Next i
End Sub

---

cambia il range al tuo bisogno

in uno di questi fogli però ho una tabella pivot che essendo collegata a una delle celle non mi permette di effettuare la cancellazione di esse.

ciao
usa questa

---

Sub DeleteSheets1()
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "Foglio2" Then
xWs.Range("A1:I20").ClearContents
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

---

in rosso il nome del foglio da non cancellare
oppure usa il metodo di Locate
elencando i fogli

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

VI HO ALLEGATO L'IMMAGINE

Ciao
se ogni foglio ha range diversi usa la formula
di Locate
è più immediata