MS Excel

Prilozte soubor!!!

jak se ma ten, kdo vam bude chtit pomoci, jinak dozvedet, jak ma reseni vypadat, nebo dokonce, jake dalsi skryte problemy, ktere jste nezminil (a ze jich byva hodne), mohou vzniknout...???

Protoze jinak vam odpovim takto:
1) Pouzijte metodu .Find
2) kde naleznete, pouzijte rows(i).Hidden = Truecitovat

co takto?citovat

Kód od Pokiho samozřejmě funguje, ale nemůžu si odpustit malý komentář

Vždy mě totiž překvapí, když u pokročilejších uživatelů vidím zbytečné využití OnError nebo GoTo. I Find je tady zbytečné, protože kontrolovaná hodnota je v konkrétním sloupci (i tak bych volil CountIf místo Find)
Mno a taky je žádoucí minimalizovat přístupy na list - tady v tomto případě není poznat rozdíl, ale při 1000 řádků už ano - pak byste se museli zbytečně uchylovat k ScreenUpdating=False.
Toto se řeší proměnnou typu Range a na list tak přisoupím pouze jedinkrát
A nejsem fanouškem ani Exit Sub

Řádek 2 používáte asi jako detekci - tady bych asi použil Caption ovládacího prvku a toto pak není potřeba. Ale pokud použijete řádek 2 jako detekční, mělo by to vypadat nějak takhle
Sub Skryt()
If Rows(2).Hidden Then
Rows.Hidden = False
Worksheets("Hárok1").cmbSKRYT.Caption = "skryť"
Else
Dim rRowsToHide As Range
Set rRowsToHide = Rows(2)

Dim rRow As Range
For Each rRow In ActiveSheet.UsedRange.Rows
If Intersect(rRow, Range("G:G")).Value = "SKRYŤ!!!" Then
Set rRowsToHide = Union(rRowsToHide, rRow)
End If
Next rRow
Set rRow = Nothing

rRowsToHide.EntireRow.Hidden = True
Set rRowsToHide = Nothing

Worksheets("Hárok1").cmbSKRYT.Caption = "zobraziť"
End If
End Sub

Není to kritika - jen komentář.citovat

1
Moje chyba - nesroloval jsem dolů a přehlédl jsem
V tom případě platí CountIf

Proč CountIf a ne Find?
Nemám podloženo co je rychlejší, ale zastávám názor, že po opuštění kódu by měl být Excel ve stejném stavu jako při spuštění
Proto Nikdy nepoužiju např
ScreenUpdating=False
ScreenUpdating=True
ale
bScreen=ScreenUpdating
ScreenUpdating=False
...
ScreenUpdating=bScreen
Toto oceníte při velkých projektech, když už pak nevíte, která procedura vlastně tu vlastnost přepla nebo vám ji jiná zapne, když má být ještě vypnutá. Takže jsem se to naučil dělat vždy a problém mi odpadl.
Mno a Find při použití
r = Rows(i).Find(what:="SKRYŤ!!!", lookat:=xlWhole, LookIn:=xlValues).Row
nechá zaškrtnutou volbu Pouze celé buňky v dialogu Ctrl+H a při použití této zkratky pak nemusíte ani vědět, že tomu tak je a divíte se - jááák tóó!! (já se takhle divím ;)) )
CountIf nic nemění a jako kontrola stačí
If CountIf>0 then

2
Souhlasím - UsedRange může být zrádné, nicméně to i
Cells(Rows.Count, 2).End(xlUp)
protože ve 2. sloupci nemusí být hodnota a ve 3. ano
Případ od případu

3
Pokud použijete For I = místo mého For Each rRow
tak musíte použít např Cells(I) a když to řeknu laicky,(nejsem programátor, ale amatér a samouk), kompilátor musí vždy hledat, co za buňku to je a zjistit si její vlastnosti (dá se ale obejít pomocí With)
kdežto rRow už je načtená
S pamětí máte pravdu, rychlost posoudit neumím, ani jedno už dnes asi řešit nemusíme ;) - takže beru to, co je mi přijde praktičtější

Souhlasím, že kód nemá být co nejkratší, ale co nejpřehlednější a nejjednodušší - ostatně můj je delší než ten váš, ale použití GoTo ten váš hodně znepřehledňuje.
Pokud se někdo zrovna učí - nejhorší jsou špatné návyky. Proto by se měl hned naučit použití With, ForEach, Select apod.

A teď pár odpovědí
1 - viz výše
2 - naprosto nemá, prostě mi to přijde méně přehledné, než If - End IF
3 - Naopak - OnError je báječná věc - a proto láká ke zneužití. Legrace je, že se jí dá někdy krásně vyhnout, jenže se musí přemýšlet
Včera jsem např řešil název s neplatným odkazem (=#REF!)
Tady to přímo láká, že?
A přitom stačí InStr a místo tří řádků máte jeden.

Bože - tolik písmen ;)))
Tolik ke komentáři komentáře ;))citovat

Ještě oprava výše uvedeného kódu
Sub Skryt()
If Rows(2).Hidden Then
Rows.Hidden = False
Worksheets("Hárok1").cmbSKRYT.Caption = "skryť"
Else
Dim rRowsToHide As Range
Set rRowsToHide = Rows(2)

Dim rRow As Range
For Each rRow In ActiveSheet.UsedRange.Rows
If Application.WorksheetFunction.CountIf(rRow, "SKRYŤ!!!") > 0 Then
Set rRowsToHide = Union(rRowsToHide, rRow)
End If
Next rRow
Set rRow = Nothing

rRowsToHide.EntireRow.Hidden = True
Set rRowsToHide = Nothing

Worksheets("Hárok1").cmbSKRYT.Caption = "zobraziť"
End If
End Subcitovat