MS Excel

No moc jsem to nepochopilcitovat

Díky za odpověď, ale nejsem odborník a v MAKRECH celkem tápu. Používám zaškrtávací políčko "formuláře", a tam je to nějak jinak. Daří se mi nahrát makro na skrytí řádků při zaškrtnutí, ale už se mi zpět řádky nezobrazí při odškrtnutí. A co se týká zaškrtávacího políčka "ActiveX", tam je to pro mě už úplná katastrofa, vložím ho, nejde mi ho vůbec vůbec zašktnout, až po určité době se samo nějak z aktivuje, no a pak nejde posunout, ani odstanit. citovat

Tak sem to zkusil a funguje to v pohodě. Vytáhni si z nabídky Vývojář z Ovládacích prvků formuláře 2 přepínače, dej je někam stranou na list. A z místní nabídky jim přiřaď makra. Ten kód od Petra rozdělíš na 2 makra a vložíš je do standartního modulu sešitu. A jak sem říkal, přiřadíš přepínačům po makru a vybereš jim z místní nabídky i vhodný popis. A můžeš klikat. Rows si v kódu dáš podle svého.citovat

Jó díky, takhle to funguje v pohodě! Ale pro mě to má jednu chybičku, protože potřebuju řešit vždy pomocí těchto přepínačů skrytí určitých řádků a pomocí dalších přepínačů skrytí jiných řádků. No a jak tam vložím více přepínačů, fungují všechny mezi sebou a né po dvojici, jak bych potřeboval!citovat

Mám tento kod
Sub Makro1()

Cells.EntireColumn.Hidden = False
Cells.EntireRow.Hidden = False

If Range("B100") = "1" Then
Cells.EntireColumn.Hidden = True
Columns("D:F").EntireColumn.Hidden = False
Cells.EntireRow.Hidden = True
Rows("1:2").EntireRow.Hidden = False
Else
MsgBox "Nic se nestalo"
End If

End Sub

Ale nefunguje mi. Prosím kde mám chybu. Skryjí se mi všechny sloupce i řádky ale už se mi nezobrazí ty, které si navolím.citovat