Spuštění makra pod podmínkou Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

junis
nováček
Příspěvky: 30
Registrován: březen 22
Pohlaví: Muž

Spuštění makra pod podmínkou

Příspěvekod junis » 20 dub 2022 21:44

Zdravím.
Jak zajistit, aby makro šlo spustit jen pokud je v sešitu List1. (Pokud List1 chybí napíše hlášku)

Reklama
Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 152
Registrován: září 17
Pohlaví: Muž

Re: Spuštění makra pod podmínkou

Příspěvekod Grimm » 21 dub 2022 00:03

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.

junis
nováček
Příspěvky: 30
Registrován: březen 22
Pohlaví: Muž

Re: Spuštění makra pod podmínkou

Příspěvekod junis » 21 dub 2022 08:00

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

Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 152
Registrován: září 17
Pohlaví: Muž

Re: Spuštění makra pod podmínkou

Příspěvekod Grimm » 21 dub 2022 11:01

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


junis
nováček
Příspěvky: 30
Registrován: březen 22
Pohlaví: Muž

Re: Spuštění makra pod podmínkou  Vyřešeno

Příspěvekod junis » 21 dub 2022 17:31

Špica, funguje bez chyb. Moc děkuju za pomoc.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Smazání dat s podmínkou
    od junis » 24 dub 2022 15:19 » v Kancelářské balíky
    8
    479
    od junis
    24 dub 2022 17:58
  • Nefunguje bat pri spuštení VDOS
    od atari » 10 srp 2021 10:12 » v Windows 10, 8, 7..
    9
    433
    od atari
    10 srp 2021 22:08
  • Help prosím :-( PC při spuštění vydává rachotivý zvuk
    od klarka77 » 22 dub 2022 18:43 » v Rady s výběrem hw a sestavením PC
    19
    1089
    od honza1701
    24 dub 2022 18:31
  • BSOD při spuštění Fortnite - nový notebook
    od Hakosuka » 04 dub 2022 20:19 » v BSOD (Blue Screen Of Death)
    0
    710
    od Hakosuka
    04 dub 2022 20:19
  • program pro automatické zmáčknutí tlačítka po spuštění
    od simon385 » 08 led 2022 07:15 » v Programy ke stažení
    1
    529
    od zeus
    08 led 2022 12:28

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 2 hosti