Zdravím.
Jak zajistit, aby makro šlo spustit jen pokud je v sešitu List1. (Pokud List1 chybí napíše hlášku)
Spuštění makra pod podmínkou Vyřešeno
Re: Spuštění makra pod podmínkou
Kód: Vybrat vše
Sub TestListu()
Dim List As Worksheet
Dim Existuje As Boolean
For Each List In ThisWorkbook.Worksheets
If List.Name Like "List1" Then
Existuje = True
Exit For
End If
Next List
If Existuje = False Then
MsgBox "List ""List1"" neexistuje!" & vbNewLine & "Makro bude ukončeno!", vbCritical, "Chyba"
Exit Sub
End If
MsgBox "KONEC MAKRA", vbInformation, "Vše maká"
End Sub
Nepíšeš o co konkrétně se pokoušíš, pokud je Tvé makro závislé na konkrétním jméně listu a hrozí, že jej uživatelé mohou změnit a tím znefunkčnit kód, je na čase se zaměřit na CodeName listu.
Které si nastavíš v editoru VBA v okně Properties (Name) a v kódu se odkazuješ na toto jméno. Toto jméno (CodeName) je nezávislé na jméně, které se objevuje na oušku listu v prostředí excelu. Uživatel si pak může jméno listu na oušku libovolně měnit bez negativních dopadů na kód makra.
Re: Spuštění makra pod podmínkou
Tohle je super. Funguje na jedničku.
Šlo by jestě prosím doplnit aby pokud bude hodnota v Listu3 bunce D2 větší než 1 makro nahlásilo hlášku a nic neprovádělo?
Děkuji
Šlo by jestě prosím doplnit aby pokud bude hodnota v Listu3 bunce D2 větší než 1 makro nahlásilo hlášku a nic neprovádělo?
Děkuji
Re: Spuštění makra pod podmínkou
Do kódu přidáš jen další podmínku
Kód: Vybrat vše
Sub TestListu()
Dim List As Worksheet
Dim Existuje As Boolean
For Each List In ThisWorkbook.Worksheets
If List.Name Like "List1" Then
Existuje = True
Exit For
End If
Next List
If Existuje = False Then
MsgBox "List ""List1"" neexistuje!" & vbNewLine & "Makro bude ukončeno!", vbCritical, "Chyba"
Exit Sub
End If
If Worksheets("List3").Range("D2").Value > 1 Then
MsgBox "Hodnota na listu ""List3"" je mimo povolený rozsah!" & vbNewLine & "Makro bude ukončeno!", vbCritical, "Chyba"
Exit Sub
End If
MsgBox "KONEC MAKRA", vbInformation, "Vše maká"
End Sub
Re: Spuštění makra pod podmínkou Vyřešeno
Špica, funguje bez chyb. Moc děkuju za pomoc.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 1524
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 4
- 2278
-
od Radoozek
Zobrazit poslední příspěvek
08 pro 2023 16:45
-
- 2
- 941
-
od Mr. Incognito
Zobrazit poslední příspěvek
30 čer 2023 19:04
-
-
Program se stále ptá na spuštění při startu OS
od Karrex » 17 pro 2023 15:09 » v Windows 11, 10, 8... - 3
- 1957
-
od zeus
Zobrazit poslední příspěvek
19 pro 2023 18:50
-
-
- 4
- 1186
-
od petr22
Zobrazit poslední příspěvek
17 kvě 2024 22:07
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 29 hostů