Hvis tekst er "INGEN" så slet den række og de næste 2 efter

Kan du ikke luse den af i importen, det komme selvfølgelig an på hvordan du importerer, om det er linie for linie, eller excels automatiske.

Hvordan i importen ??

On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler

    Range("I14").Select
    With Selection.QueryTable
        .Connection = _
        "TEXT;C:\cg\excel\*.txt"
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = True
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = True
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
        .Refresh BackgroundQuery:=False
    End With
   
handleCancel:
If Err = 18 Then
    MsgBox "Du afbrød"
End If


End Sub

Nej du kan ikke fange den der, det er en af de automatiske.

Hvilken kolonne skal tjekkes for "INGEN", jeg kan se at du vælger "I14", er I den første kolonne, eller der det bare en celle i QueryTable området. ??

makroen kan se sådan ud, bare sig til, hvis den skal tilrettes.


Sub Slet3Rækker()
    Dim RW, I
    RW = Range("I65536").End(xlUp).Row
    For I = RW To 14 Step -1 ' tjekker kolonne I fra sidste udfyldte celle til række 14
        If Cells(I, "i") = "INGEN" Then
            Range(Cells(I, "i"), Cells(I + 2, "I")).EntireRow.Delete ' sletter de 3 rækker
        End If
    Next
End Sub

Hej igen kabak,
jo den virker, men nu opstod et lille problem mere..
sletter hele rækken,,, kan nu se det kun skulle kun være til og med "M".
Altså fra kolonne I til kolonne M..
Kan du hjælpe endnu engang ?

Sub Slet3Rækker()
    Dim RW, I
    RW = Range("I65536").End(xlUp).Row
    For I = RW To 14 Step -1 ' tjekker kolonne I fra sidste udfyldte celle til række 14
        If Cells(I, "i") = "INGEN" Then
            Range(Cells(I, "i"), Cells(I + 2, "M")).Delete Shift:=xlUp ' sletter de 3 rækker
        End If
    Next
End Sub

Tusinde tak kabak
Nu skal jeg lige prøve den, men den ser rigtig ud..
Godnat