Skjul rækker

Du kunne bruge filter, hvor kun viser de rækker, som er forskellig fra 0.

Du kunne også lave en makro, som gennemløber et område og så skjuler 0-rækker.

Har du et eksempel på hvordan en makro som vil kunne løse problemet?

En makro kunne se således ud:

Sub SkjulNulLinier()
Dim rCell As Range

    \'Gennemløber kolonne B række 2-500 og checker
    \'kolonne C og D i samme rækker.
    \'Hvis alle 3 er = 0 så skjules rækken
    For Each rCell In Worksheets(\"Budget\").Range(\"B2:B500\")
        If rCell.Value = 0 And rCell.Offset(0, 1).Value = 0 _
            And rCell.Offset(0, 2).Value = 0 Then
            rCell.EntireRow.Hidden = True
        Else
            rCell.EntireRow.Hidden = False
        End If
    Next rCell
End Sub

www.win-consult.com

Sub SkjulNulRækker()
\'marker dataområde f.eks. A5:A100 og kør denne makro
\'makroen undersøger så om kolonnen til højre for også er nul
Set r = Selection.Rows()

    For i = r.Rows.Count To 1 Step -1
        If r.Cells(i, 1) = 0 And r.Cells(i, 1).Offset(0, 1) = 0 Then
            r.Cells(i, 1).EntireRow.Hidden = True
        End If
    Next i
   
End Sub

Flemming, jeg tror jeg fik afvist dit svar. Men det virker helt perfekt - tak.

Sådan går det jo :-)