• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse