MS Excel

Zdravím,

Nevíte náhodou jak můžu smazat všechny listy začínající vždy na 0? Mám listy např. 01.09.2023, 02.09.2023..... a potřeboval bych vždy na konci měsíce tyto listy smazat.

Děkuji za jakékoliv nakopnutí.

Díky

Zaslat odpověď >

elninoslov(30.9.2023 14:43)#055474

Sub Zmazat_listy_0()
Dim sL As String, Pocet As Integer, WS As Worksheet

With ThisWorkbook
For Each WS In .Worksheets
If Left(WS.Name, 1) = "0" Then
Pocet = Pocet + 1
sL = sL & IIf(sL = "", "", "•?") & WS.Name
End If
Next WS

If Pocet = 0 Then
MsgBox "Listy začínajúce ""0"" neexistujú.", vbInformation
Else
If Pocet = .Worksheets.Count Then
MsgBox "Nie je možné odstrániť všetky listy v zošite.", vbCritical
Else
Application.DisplayAlerts = False
.Worksheets(Split(sL, "•?")).Delete
Application.DisplayAlerts = True
End If
End If
End With
End Sub

Příloha: zip

55474_zmazat-listy-0.zip (16kB, staženo 1x)

citovat

Fantasyk(30.9.2023 17:16)#055476

To bylo velké nakopnutí...

Díky zítra vyzkouším, ale jak Vás znám tak to bude fungovat perfektně.

Ještě jednou díkycitovat

Fantasyk(3.10.2023 0:19)#055493

Fantasyk napsal/a:

To bylo velké nakopnutí...

Díky zítra vyzkouším, ale jak Vás znám tak to bude fungovat perfektně.

Ještě jednou díky

Samozřejmě, že to fungovalo perfektně, ale já jsem trochu nemyslel.
Potřeboval bych všechny listy s 0, 1, 2 a 3
Nějak mi nedošlo, že měsíc ma více dnů než 9

citovat

elninoslov(4.10.2023 8:35)#055503

Stačí nahradiť kontrolnú podmienku
If Left(WS.Name, 1) = "0" Then
takouto kontrolou dvojčísla
If IsNumeric(Left(WS.Name, 2)) Then
alebo kontrolou dátumového názvu
If IsDate(Replace(WS.Name, ".", "/")) Then
A potom príslušne upraviť MsgBox, pretože hláška s 0 by nedávala zmysel.citovat

Fantasyk(4.10.2023 12:05)#055504

elninoslov napsal/a:

Stačí nahradiť kontrolnú podmienku
If Left(WS.Name, 1) = "0" Then
takouto kontrolou dvojčísla
If IsNumeric(Left(WS.Name, 2)) Then
alebo kontrolou dátumového názvu
If IsDate(Replace(WS.Name, ".", "/")) Then
A potom príslušne upraviť MsgBox, pretože hláška s 0 by nedávala zmysel.

elninoslov napsal/a:

Stačí nahradiť kontrolnú podmienku
If Left(WS.Name, 1) = "0" Then
takouto kontrolou dvojčísla
If IsNumeric(Left(WS.Name, 2)) Then
alebo kontrolou dátumového názvu
If IsDate(Replace(WS.Name, ".", "/")) Then
A potom príslušne upraviť MsgBox, pretože hláška s 0 by nedávala zmysel.

Díky, díky a ještě jednou díky.citovat

Téma: VBA: smazání více listů s proměnným nazvem

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

VBA - Automatické přidání a pojmenování listů

VBA - Automatické přidání a pojmenování listů

Určení kraje dle databáze PSČ na základě adresy

Určení kraje dle databáze PSČ na základě adresy

Vynásobit hodnoty kurzem - Power Query

Relativní cesta - zdroje Power Query

Vynásobit hodnoty kurzem - Power Query