skjul rækker hvis

Det kan for eksempel gøres med disse 2 makroer.

Sub SkjulRækker()
LastRow = ActiveSheet.UsedRange.Rows.Count
For x = 2 To LastRow
If Cells(x, 1) > 0 And Cells(x, 4) + Cells(x, 5) + Cells(x, 7) + Cells(x, 8) + Cells(x, 11) = 0 Then
Cells(x, 1).EntireRow.Hidden = True
End If
Next
End Sub

Sub VisRækker()
    Cells.Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
End Sub

enkelt og nemt når man ved hvordan :-)

Mange tak.

Læg et svar og der er point.

Du får et svar