Příspěvky uživatele


< návrat zpět

Skrývání řádků pomocí makra na základě podmínky (20.2.2017 13:59)

Á, tak tady byla chyba. Díky moc, vše funguje jak má ;-)

Skrývání řádků pomocí makra na základě podmínky (20.2.2017 11:42)

Dobrý den,

prosím o radu - zlobí mi jedno makro a netuším, kde je chyba. Makro po spuštění vyhledá ve sloupci (mezi řádky 50 a 400) hledanou hodnotu (např. "254.420") a řádek s touto hodnotou poté skryje. To funguje v pořádku. Problém nastává, že se mi nedaří přinutit makro, aby prohledalo celý sešit, ne jen jeden list. Takhle je to neefektivní, protože na každém listu musím makro spustit znovu. Celý proces hledání se tváří, jakoby makro procházelo celý sešit, ovšem kromě prvního listu v těch dalších už řádky neskryje. Co je špatně?

Makro vypadá následovně:

Sub SkrytRadkyPodminkou_nove5()

Dim wSheet As Worksheet

For Each wSheet In ActiveWorkbook.Worksheets

For i = 400 To 50 Step -1
If StrComp("254.420", Cells(i, "A").Value) = 0 Then
Rows(i).Hidden = True
End If
Next i

For i = 400 To 50 Step -1
If StrComp("254.423", Cells(i, "A").Value) = 0 Then
Rows(i).Hidden = True
End If
Next i

For i = 400 To 50 Step -1
If StrComp("254.424", Cells(i, "A").Value) = 0 Then
Rows(i).Hidden = True
End If
Next i

Next wSheet

End Sub

Děkuji za rady.


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje