Excel aktivní prvek pro tisk Vyřešeno

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

Moderátor: Mods_senior

myschak
nováček
Příspěvky: 2
Registrován: únor 19
Pohlaví: Muž
Stav:
Offline

Excel aktivní prvek pro tisk

Příspěvekod myschak » 18 úno 2019 16:53

Ahoj poradil by mi někdo jak propojit více maker s jedním tlačítkem? Vytvořil jsem si tlačítko (aktivní prvek) a chtěl bych aby se po kliknutí pustilo makro_1 když bude v buňce číslo 1, když bude v buňce číslo 2, tak makro_2 a když číslo 3, tak makro_3. Děkuji pokud mi někdo dokážete poradit.

Reklama
Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Re: Excel aktivní prvek pro tisk

Příspěvekod atari » 18 úno 2019 16:59

Takhle to nefunguje.
Spouštěcím tlačítkem spustíš spouštěcí makro, které podle zadané hodnoty v buňce zavolá makro_1 nebo makro_2 nebo makro_3

guest
Pohlaví: Nespecifikováno

Re: Excel aktivní prvek pro tisk

Příspěvekod guest » 18 úno 2019 20:14

Makro spojené s tlačítkem bude prostředníkem. V něm v podstatě jediné - správný parametr pro Application.Run.

myschak
nováček
Příspěvky: 2
Registrován: únor 19
Pohlaví: Muž
Stav:
Offline

Re: Excel aktivní prvek pro tisk

Příspěvekod myschak » 19 úno 2019 17:16

Aha a nějaký příklad jak to vytvořit prosím?

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

Re: Excel aktivní prvek pro tisk  Vyřešeno

Příspěvekod Grimm » 19 úno 2019 17:41

Pro buňku A1 na prvním listu.

Kód: Vybrat vše

Sub Spousteci()
Select Case List1.Range("A1").Value
    Case 1
        Call makro1
    Case 2
        Call makro2
    Case 3
        Call makro3
    Case Else
        MsgBox "neplatná hodnota buňky", vbExclamation, "Chyba"
End Select
End Sub


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Nekvalitní tisk Příloha(y)
    od Dolpi » 21 led 2024 21:09 » v Problémy s hardwarem
    3
    1009
    od Dolpi Zobrazit poslední příspěvek
    25 led 2024 18:23
  • Tisk ELD souboru
    od Jandak » 30 dub 2023 09:53 » v Problémy s hardwarem
    4
    1103
    od Grander Zobrazit poslední příspěvek
    09 čer 2023 21:31
  • tisk samolepicich etiket
    od jirino92 » 02 led 2024 10:08 » v Vše ostatní (hw)
    4
    792
    od Martab Zobrazit poslední příspěvek
    02 led 2024 13:11
  • Scan a tisk u dvou tiskáren
    od amirinda » 14 říj 2023 06:49 » v Vše ostatní (sw)
    12
    1754
    od amirinda Zobrazit poslední příspěvek
    14 říj 2023 16:39
  • Tisk z excelu mění výšky buněk
    od Moonddur » 28 dub 2023 11:50 » v Kancelářské balíky
    1
    1657
    od atari Zobrazit poslední příspěvek
    28 dub 2023 12:08

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

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 10 hostů