Skjul række

Sub hide()
Const FirstCol As String = "K"
Const LastCol As String = "O"
Dim rrow As Long
For rrow = 2 To ActiveSheet.UsedRange.Rows.Count
    If Application.WorksheetFunction.CountIf(Range(FirstCol & rrow, LastCol & rrow), "0") = _
        Range(FirstCol & rrow, LastCol & rrow).Columns.Count Then Rows(rrow).Hidden = True
Next
End Sub

Jeg forstår ikke helt problemet.

I dit interval, ligger alle værdiernei  samme række, så hvis du vil skjule rækken, er der kun en at skjule.

bak-> Efter at have set din løsning, forstod jeg pludseligt spørgsmålet :-)

*LOL* jeg er heller ikke sikker....

Regnearket er opbygget som et afd. regnskab.
Jeg har kopieret vores kontoplan ind i arket. i kolonne A. (kontonr.)
Kolonne b til d er anvendt til angive realiseret tal d.å., budget tal d.å. samt realiseret tal sidste år. Dataene henter jeg ved lopslag i et dataark. Såfremt at lopslaget returnere værdien 0 udfor samme konto i celle b2 og c2 og d2 ønsker jeg at at række 2 skjules. Dette for at den regnskabsansvarlige for afdelingen ikke skal miste overblikket over de mange kontonr. som indeholder 0 poster.
                  Real D.å.        Budget D.Å.        Real S.Å.
DVS Konto 71001          0                  0                0        Skjules
    Konto 71002          0                  5                0        Vises
etc.

Fint, så skulle makroen gerne virke, hvis du ændrer FirstCol til B og LastCol til D

Det virker i det aktive ark. Jeg ville meget gerne have det til at virke på alle markeret ark på en gang - kan det lade sige gøre?

Bak - jeg vil gerne tildele 100 points ekstra for et hurtig svar med en brugbar løsning.
hilsen

SDH

Bak - dit forslag var løsningen på min stillede opgave - derfor skal du naturligvis have de 60 points for dette - så du må meget gerne smide et svar.
Som jeg tidl. har skrevet vil jeg meget gerne have tilpasset makroen så den virker på flere ark ad gangen - markeret ark (gruppe). Jeg opretter ny opgave på dette.
Tak for hjælpen.
SDH

ok :')