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: 3352
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: 165
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
  • Tisk sloupců vedle sebe na A4 - Excel
    od atari » 24 dub 2025 10:51 » v Kancelářské balíky
    5
    4004
    od atari Zobrazit poslední příspěvek
    26 dub 2025 09:11
  • EXCEL -jak otevřít 2 excel sobory abych je viděla současne a samostatně
    od Ketty02 » 30 srp 2024 21:19 » v Vše ostatní (sw)
    2
    4952
    od Riviera kid Zobrazit poslední příspěvek
    02 zář 2024 16:21
  • Jakou laserovou tiskárnu pro domácí tisk
    od Miranda6 » 10 dub 2025 18:52 » v Vše ostatní (hw)
    9
    4273
    od zeus Zobrazit poslední příspěvek
    10 dub 2025 23:23
  • Přechod z Excel 21 na Excel 24
    od Snekment » 29 led 2025 13:46 » v Kancelářské balíky
    2
    12365
    od Snekment Zobrazit poslední příspěvek
    29 led 2025 15:05
  • Pohoda a excel Příloha(y)
    od brownwld » 06 kvě 2025 17:28 » v Kancelářské balíky
    1
    5119
    od atari Zobrazit poslední příspěvek
    07 kvě 2025 09:41

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

Kdo je online

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