| | Post: 37 | Registrato il: 23/01/2017
| Città: BRENDOLA | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
  12/06/2017 11:58 | |
Buon giorno a tutti.
Spero possiate darmi una mano su un quesito relativo ad una macro.
Ho eseguito una macro nel foglio 1 ( un semplice " cancella un range di celle che hanno dei numeri" )
Sub Cancella_tutto()
'
' Cancella_tutto Macro
'
'
Range("F4:F19").Select
Selection.ClearContents
Range("I2").Select
Selection.ClearContents
Range("J2").Select
Selection.ClearContents
Range("D2").Select
Selection.ClearContents
End Sub
La mia domanda è: questa identica operazione vorrei farla fino al foglio 23 ma premendo solo il pulsante nel foglio 1
In pratica: premo il pulsante nel foglio 1 e applico la macro fino al foglio 23
Come potrei fare ?
Grazie mille e buona giornata |
|
| | Post: 3.282 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
| 12/06/2017 12:11 | |
Prova con questa
vb Sub cancella()
Dim i As Integer
For i = 1 To 23
With Sheets(i)
.Range("F4:F19").ClearContents
.Range("I2").ClearContents
.Range("j2").ClearContents
.Range("D2").ClearContents
End With
Next i
End Sub[Modificato da alfrimpa 12/06/2017 12:13]
Alfredo |
| | Post: 37 | Registrato il: 23/01/2017
| Città: BRENDOLA | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
| 12/06/2017 14:38 | |
Grazie mille Alfredo ![[SM=x423028]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0008.gif)
Funziona perfettamente
Grazie ancora
Buona giornata
Roberto |
| | Post: 38 | Registrato il: 23/01/2017
| Città: BRENDOLA | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
| 12/06/2017 14:51 | |
Solo una cosa Alfredo
Prima del foglio 1, ho un foglio che si chiama riepilogo.
Mi sono accorto ora che eseguendo la macro ( e funziona benissimo ) mi cancella anche dei valori nel foglio " riepilogo "
E' possibile escludere questo foglio "riepilogo" dalla cancellazione ?
Grazie e buona giornata |
| | Post: 3.283 | Registrato il: 21/06/2013
| Città: NAPOLI | Età: 70 | Utente Master | Excel 365 | | OFFLINE |
|
| 12/06/2017 14:55 | |
Certamente
Modifica questa istruzione
così
Se poi vuoi eseguire la macro su tutti i fogli della cartella di lavoro a partire dal secondo scrivi così
vb For i = 2 To Sheets.Count Credo che le istruzioni non abbiano bisogno di spiegazioni. [Modificato da alfrimpa 12/06/2017 14:56]
Alfredo |
| | Post: 39 | Registrato il: 23/01/2017
| Città: BRENDOLA | Età: 54 | Utente Junior | Excel 2010 | | OFFLINE | |
|
| 12/06/2017 15:03 | |
PERFETTO Grazie mille
Ora non fa nulla nel foglio Riepilogo e cancella dal 2 al 23
Grazie mille
Buona giornata :)
Roberto |
|
|
|
|