Stránka 1 z 1
Spuštění makra pod podmínkou
Napsal: 20 dub 2022 21:44
od junis
Zdravím.
Jak zajistit, aby makro šlo spustit jen pokud je v sešitu List1. (Pokud List1 chybí napíše hlášku)
Re: Spuštění makra pod podmínkou
Napsal: 21 dub 2022 00:03
od Grimm
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
Napsal: 21 dub 2022 08:00
od junis
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
Re: Spuštění makra pod podmínkou
Napsal: 21 dub 2022 11:01
od Grimm
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
Napsal: 21 dub 2022 17:31
od junis
Špica, funguje bez chyb. Moc děkuju za pomoc.