pozdravljeni,
zanima me kako bi v zvezku brisal vse liste, razen tistega , ki se imenuje "prenos".
kakšna bi bila koda?
za odgovor se zahvaljujem.
lp
Brisanje listov
Re: Brisanje listov
Takole:
Koda: Izberi vse
Sub Brisi_liste()
Dim list As Worksheet
Application.DisplayAlerts = False
For Each list In Worksheets
If list.Name <> "prenos" Then list.Delete
Next
Application.DisplayAlerts = True
End Sub
lp,
cedra
cedra
Re: Brisanje listov
najlepša hvala cedra,
točno to sem želel.
lp
točno to sem želel.
lp