Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Eliminare fogli
- Hai un problema con Excel?
Eliminare fogli
di Pich61 (utente non iscritto) data: 20/05/2013 12:36:25
Scusate qual è la routine per eliminare uno o più fogli di lavoro dopo un numero "n" di fogli?
Grazie
di totygno71 (utente non iscritto) data: 20/05/2013 13:08:39
ciap Pich
vorresti eliminare tutti i fogli per esempio a partire dal terzo in poi?
di Pich61 (utente non iscritto) data: 20/05/2013 14:11:21
Si con un CommandButton ho provato l'istruzione:
Sheets.Delete After:=Sheets(5)
ma non funziona.
di totygno71 data: 20/05/2013 14:18:40
Ciao
il codice dovrebbe cancellare tutti i fogli dopo il quinto...
provalo su un file di prova ovviamente.... perche una volta cancellati addio dati! ^_^
Option Explicit Sub Macro1() Dim i As Integer On Error Resume Next Application.DisplayAlerts = False i = Sheets.Count If i <= 5 Then MsgBox "Numero di fogli uguale o inferiore a " & i End If For i = Sheets.Count To 6 Step -1 Sheets(i).Delete Next i Application.DisplayAlerts = True End Sub
di Pich61 (utente non iscritto) data: 20/05/2013 14:43:47
Funziona benissimo
Grazie
di totygno71 data: 20/05/2013 14:49:23
Prego!
- Vuoi Approfondire?
