macro cancella foglio.

[matzap]

Ciao,
perchè secondo voi mi da errore al primo if,
cioè seleziona il foglio Report presenze ma non lo cancella?

Sheets("Report Presenze").Select
If SelectedSheets.Name = "Report Presenze" Then
SelectedSheets.Delete
If SelectedSheets.Name = "Report" Then
SelectedSheets.Delete
If SelectedSheets.Name = "Analisi" Then
SelectedSheets.Delete
End If
End If
End If
End Sub

ciao

[scossa]

Ciao,
perchè secondo voi mi da errore al primo if,
cioè seleziona il foglio Report presenze ma non lo cancella?

Sheets("Report Presenze").Select
If SelectedSheets.Name = "Report Presenze" Then
SelectedSheets.Delete
If SelectedSheets.Name = "Report" Then
SelectedSheets.Delete
If SelectedSheets.Name = "Analisi" Then
SelectedSheets.Delete
End If
End If
End If
End Sub

ciao

C'è qualcosa di molto "bizzarro" in quel codice
Puoi mostrarlo tutto anziché solo il pezzo finale?
E, soprattutto puoi spiegare, con parole semplici e comprensibili, qual'è la tua esigenza?

[Flash30005]

Infatti come dice Scossa quel codice non ha molto significato
Poi dovresti chiarire se cancellare il foglio o eliminarlo
Nel tuo caso lo elimini
Quindi se devi eliminare un foglio (es. Foglio1)
puoi usare questo codice

Codice: Seleziona tutto

Application.DisplayAlerts = False
Sheets("Foglio1").Delete
Application.DisplayAlerts = True

se hai altri fogli non devi far altro che duplicare la riga Sheets("Foglio1").delete e inserire il nome del secondo foglio

Codice: Seleziona tutto

Application.DisplayAlerts = False
Sheets("Foglio1").Delete
Sheets("Foglio2").Delete
Sheets("Foglio3").Delete
'etc
Application.DisplayAlerts = True

ciao

[matzap]

In effetti quando ho scritto questo codice ero un pò stanco...! non ha molto senso.

provo a spiegarmi meglio ora che ho le ide più chiare:
ho un file con un numero variabile di fogli e con nomi variabili ad eccezione di uno chiamato gestione
dopo averli esportati, vorrei cancellare gli originali ad eccezione di Gestione.
sto provando ad usare questo codice ma mi da errore di compilazione sulla proprietà name...

Windows("crea report presenze.xls").Activate
For Each Sheet In Active.Windows
If Sheets.Name <> "Gestione" Then
Sheet.Select
selectedsheet.Delete
End If
Next Sheet
End Sub

ciao

[scossa]

Codice: Seleziona tutto

Windows("crea report presenze.xls").Activate
For Each Sheet In Active.Windows
If Sheets.Name <> "Gestione" Then
Sheet.Select
selectedsheet.Delete
End If
Next Sheet
End Sub

Innanzitutto abituati a dichiarare le variabili, evitando di usare per queste nomi ambigui che potrebbero creare confusione (Sheet).
Poi evita, se non indispensabile i vari Activate, Select .... etc

Vedi un po' questo codice

Codice: Seleziona tutto

Public Sub prova()
  Dim ws As Worksheet
 
  For Each ws In Application.Workbooks("crea report presenze.xls").Worksheets
    If ws.Name <> "Gestione" Then
      ws.Delete
    End If
  Next sheet

End Sub

[matzap]

Si hai ragione, devo avere una struttura più snella e organizzata.
comunque funziona, grazie.
ciao