automatické spuštění makra/změnou buňky Vyřešeno

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

Moderátor: Mods_senior

Lůjík
nováček
Příspěvky: 19
Registrován: listopad 13
Pohlaví: Žena
Stav:
Offline

automatické spuštění makra/změnou buňky

Příspěvekod Lůjík » 09 lis 2013 17:42

Ahoj lidi :)
Ráda bych Vás požádala o radu. Snažím se o naprogramování makra tak, aby při zápisu do buňky (např. A1) písmene "a" se skryl list3, při napsání "b" se list objevil. Toto makro jsem si již sama naprogramovala, setkala jsem se ale s problémem. Potřebuji, aby se makro spustilo při jakékoli změně v buňce A1, nechci makro napárovat na žádné tlačítko, ani aby se spustilo při otevření sešitu.
Mohl byste mi, prosím, nějak pomoci?
Budu Vám nadosmrti vděčná :)
Děkuji, Lucka
Přílohy
skryt list.xlsm
(14.24 KiB) Staženo 26 x

Reklama
cmuch
Level 4.5
Level 4.5
Příspěvky: 1547
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: automatické spuštění makra/změnou buňky

Příspěvekod cmuch » 09 lis 2013 17:53

Vítej na PC-Help

Do modulu listu1 vlož

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

  If Range("B4").Value = "a" Then
   
    Sheets("List3").Visible = 1
  ElseIf Range("B4").Value = "a" Then
   
    Sheets("List3").Visible = 0
  End If
End Sub

Lůjík
nováček
Příspěvky: 19
Registrován: listopad 13
Pohlaví: Žena
Stav:
Offline

Re: automatické spuštění makra/změnou buňky  Vyřešeno

Příspěvekod Lůjík » 09 lis 2013 17:58

to cmuch - na čtvrtém řádku má být asi "b", ale i tak jste mi strašně moc pomohl!!! Jste nejlepší, bože, já tomu snad ani nemůžu uvěřit!!! Sedím nad tím už asi 3 hodiny a snažím se to najít na internetu a vy to máte takhle strašně rychle... nemám slov!! Děkuju!!! :*


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • automaticke nastaveni velikosti komentare v Excelu
    od Mikik Block » 04 zář 2024 15:17 » v Kancelářské balíky
    0
    3198
    od Mikik Block Zobrazit poslední příspěvek
    04 zář 2024 15:17
  • Spuštění PC Příloha(y)
    od Elbeckho » 21 úno 2025 14:27 » v Problémy s hardwarem
    11
    4529
    od Kminek Zobrazit poslední příspěvek
    23 úno 2025 02:14
  • Nedetekován signál (černá obrazovka) při spuštění PC
    od zerbngr » 01 črc 2024 17:37 » v Problémy s hardwarem
    13
    4661
    od petr22 Zobrazit poslední příspěvek
    03 črc 2024 10:36

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

Kdo je online

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