Dobrý den,
prosím o pomoc či radu při tvorbě makra, které by skrývalo řádky a sloupce ve 4. listu na základě hodnot buněk "D1" a "B2" (Buňka D1 obsahuje vzorec, který nabývá hodnot 1 nebo 2. Buňka B2 je buďto PRAVDA nebo NEPRAVDA.) ve 2. listu následujícím způsobem:
Pokud je hodnota D1 = 1, skryje se ve 4. listu řádek 1 a řádek 2 zůstává a všechny sloupce zůstávají. Pokud je D1 = 2 skryje se ve 4. listu řádek 2 a řádek 1 zůstává a zároveň pokud je B2 = PRAVDA, skryje se ve 4. listu ještě sloupec B.
Potřebuji, aby se to chovalo "dynamicky", tedy pokud je hodnota D1 nejprve 1 - řádky jsou skryty a poté se hodnota změní na 2 - řádky (sloupce) se odkryjí a opačně.
Děkuji za pomoc.
...zatím se mi podařilo sepsat toto, ale to první makro nějak nevolá to druhé automaticky, musím ho spouštět ručně...
Private Sub Worksheet_Calculate1()
If Range("D1") <> "" Then
Application.EnableEvents = False
Call Skrývání_sloupců_a_řádků
Application.EnableEvents = True
End If
End Sub
Private Sub Skrývání_sloupců_a_řádků()
If Range("D1").Value = 1 Then
Sheets(4).Rows("1").Hidden = True
Sheets(4).Rows("2").Hidden = False
End If
If Range("D1").Value = 2 Then
Sheets(4).Rows("1").Hidden = False
Sheets(4).Rows("2").Hidden = True
If Range("B2").Text = "PRAVDA" Then
Sheets(4).Range("B:B").Columns.Hidden = False
Else
Sheets(4).Range("B:B").Columns.Hidden = True
End If
End If
End Sub
Excel makro - skrývání buněk na základě hodnot v buňkách
Re: Excel makro - skrývání buněk na základě hodnot v buňkách
Můžeš to nějak zkonkretizovat srozumitelně? Když se spustí makro, tak nikdy nemůže vědět co bylo v D1 nejprve (pokud někde nebudeš ukládat historii hodnot).lurban píše:Potřebuji, aby se to chovalo "dynamicky", tedy pokud je hodnota D1 nejprve 1 - řádky jsou skryty a poté se hodnota změní na 2 - řádky (sloupce) se odkryjí a opačně.
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel makro - skrývání buněk na základě hodnot v buňkách
Již má vyřešeno na jiném fóru.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 0
- 1668
-
od luko02420
Zobrazit poslední příspěvek
02 srp 2023 14:12
-
-
Součet hodnot s prázdnou vedlejší buňkou Příloha(y)
od Karrex » 22 kvě 2023 17:00 » v Kancelářské balíky - 7
- 2107
-
od elninoslov
Zobrazit poslední příspěvek
23 kvě 2023 22:38
-
-
- 1
- 1815
-
od atari
Zobrazit poslední příspěvek
28 dub 2023 12:08
-
- 9
- 1126
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 16
- 6329
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
Kdo je online
Uživatelé prohlížející si toto fórum: Seznam[Bot] a 5 hostů