Gem udvalgte rækker

Hej Tida - den er ikke testet

Public Sub Demo()
    Dim lCount As Long
   
    For lCount = 500 To 5 Step -1
        Select Case CStr(Cells(lCount, 1).Value)
            Case "1"
                Cells(lCount, 1).EntireRow.Hidden = False
            Case "2"
                Cells(lCount, 1).EntireRow.Hidden = True
            Case ""
                If Application.WorksheetFunction.Sum( _
                    Range("B" & CStr(lCount) & ":N" & CStr(lCount))) Then
                    Cells(lCount, 1).EntireRow.Hidden = True
                End If
        End Select
    Next lCount
End Sub

Der mangler vist et argument "=0"

If Application.WorksheetFunction.Sum( _
    Range("B" & CStr(lCount) & ":N" & CStr(lCount))) = 0 Then

godt set jan

Ja....lige nøjagtig...jeg prøver den igen...med 0

....ok...den virker....men den er godt nok noget sløv i betrækket.

Jeg har tidligere brugt en lignende variant der suser afsted, men jeg kan ikke finde ud af at tilpasse den til det jeg skal bruge, den ser således ud :

Sub Test()

Range("1:500").EntireRow.Hidden = False
For i = 5 To 500
If Range("a" & i & ":n" & i + 5).Text = "" Then Exit For
If application.WorksheetFunction.Sum(Range("a" & i & ":n" & i)) = "0" Then
Range(i & ":" & i).EntireRow.Hidden = True
End If
Next
Range("A1").Select
End Sub

Public Sub Demo()
    Dim lCount As Long
   
    Application.ScreenUpdating = False
    Range("A5:A500").EntireRow.Hidden = False
    For lCount = 500 To 5 Step -1
        Select Case CStr(Cells(lCount, 1).Value)
            Case "2"
                Cells(lCount, 1).EntireRow.Hidden = True
            Case ""
                If Application.WorksheetFunction.Sum( _
                    Range("B" & CStr(lCount) & ":N" & CStr(lCount))) Then
                    Cells(lCount, 1).EntireRow.Hidden = True
                End If
        End Select
    Next lCount
    Application.ScreenUpdating = True
End Sub

= 0 mangler igen :-)

Den mangler vist lige det med 0 igen

Tusind tak Flemming, den kører helt perfekt.

Det var godt - god fornøjelse

Forøvrigt Flemming....ved du hvorfor denne makro, efter aktivering af print bliver helt ekstrem tung. Man er faktisk nød til at starte filen op igen efter print. ?????

Nej, det aner jeg ikke, men jeg har før bandet over skjul og vis af rækker i Excel, som jeg synes er langsom