VBA der kan slette linier der opfylder et kriterium

Svaret er ja ;-)

I bunden af siden her http://www.it-fjernundervisning.dk/Kursus/Excel_VBA/VBA_programmering/Genneml%C3%B8b_af_datas%C3%A6t er der 3 forskellige metoder til sletning af linjer.

Prøv den her:

Sub Delete_with_Autofilter_Array()
    Dim Rng As Range
    Dim calcmode As Long
    Dim myArr As Variant
    Dim i As Long

    With Application
        calcmode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With

    'Udfyld med de værdier du vil slette
    myArr = Array("", "0",) 'Her slettes linjer hvor D: er blank eller "0"

    For i = LBound(myArr) To UBound(myArr)
     
        With ActiveSheet

            .AutoFilterMode = False

            'Sætter autofilter
            .Range("D1:D" & .Rows.Count).AutoFilter Field:=1, Criteria1:=myArr(i)

            Set Rng = Nothing
            With .AutoFilter.Range
                On Error Resume Next
                Set Rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
                          .SpecialCells(xlCellTypeVisible)
                On Error GoTo 0
                If Not Rng Is Nothing Then Rng.EntireRow.Delete
            End With

            'Fjerner autofilter
            .AutoFilterMode = False
        End With

    Next i

    With Application
        .ScreenUpdating = True
        .Calculation = calcmode
    End With

End Sub

Public Sub SletTomme()
    Dim Rv As Long, I As Long
    Application.ScreenUpdating = False
    rw = ActiveSheet.UsedRange.Rows.Count ' finder antal rækker som er brugt i arket
        For I = rw To 2 Step -1 ' jeg går ud fra at der er overskrifter i række 1, derfor startes i række 2
            If Application.WorksheetFunction.Sum(Range(Cells(I, "K"), Cells(I, "V"))) = 0 Then ' tjekker om summen er 0
                Cells(I, "D").EntireRow.Delete ' hvis summen er 0, slættes rækken
            End If
        Next
        Application.ScreenUpdating = True
End Sub


prøv denne makro på et kopi, husk at makrokørsel ikke kan fortrydes.

Hej Kakkak

Den virker :-)
MEN kan man istedet for en almindelig sum lave en absolut sum, så jeg ikke risikerer at slette linier hvor der i en måned er +100 og i en anden måned er -100?
Normal ville jeg beregne den absolutte sum som =sumproduct(ABS(K1:V1). Jeg prøvede om jeg kunne ændre til det i din VBA kode, men det kunne jeg ikke finde ud af...
Jeg vil nemlig aller helst være fri for at skulle tilføje en kolonne i mit datasheet der beregner den absolutte sum. Jeg vil gerne have det hele i koden istedet.

prøv denne i stedet

Public Sub SletTomme()
    Dim Rv As Long, I As Long, Tom As Boolean
    Application.ScreenUpdating = False
    rw = ActiveSheet.UsedRange.Rows.Count ' finder antal rækker som er brugt i arket
        For I = rw To 2 Step -1 ' jeg går ud fra at der er overskrifter i række 1, derfor startes i række 2
        Tom = True
        For col = 11 To 22
          If Cells(I, col) <> 0 Then
        Tom = False
            Exit For
            End If
            Next
            If Tom Then Cells(I, "D").EntireRow.Delete  ' hvis summen er 0, slættes rækken
        Next
        Application.ScreenUpdating = True
End Sub

FANTASTISK - det er helt perfekt, tusinde tak.
Og igen tak for forklaringerne på hver linie, det gør en stor forskel for mig i forhold til at kunne lave smårettelser i koden efterfølgende.