Delete rows in each workbook based on keyword match specific column

[satish78]

Hi Friends,

I looked in to forum posts where I am looking to delete rows with keyword match in specific column(like ColumnI) in multiple workbooks in a folder.
I want use VBA to delete entire row of each workbook in folder (there are 100+ workbooks in a folder) based on keyword match(keyword is "incomplete") in ColumnI.
Vba should loop through list of workbooks in a folder.

Thanks

 

[mumps]

Try:

Sub DeleteRows()
    Application.ScreenUpdating = False
    Dim srcWB As Workbook
    Const strPath As String = "F:\Records\"
    ChDir strPath
    strExtension = Dir(strPath & "*.csv")
    Do While strExtension <> ""
        Set srcWB = Workbooks.Open(strPath & strExtension)
        With Sheets("Sheet1")
            .Range("A1").CurrentRegion.AutoFilter 9, "incomplete"
            .AutoFilter.Range.Offset(1).EntireRow.Delete
            .Range("A1").AutoFilter
        End With
        Application.DisplayAlerts = False
        srcWB.SaveAs Filename:="F:\Uniquerecords\" & srcWB.Name, FileFormat:=xlCSV, CreateBackup:=False
        Application.DisplayAlerts = True
        srcWB.Close False
    Loop
    Application.ScreenUpdating = True
End Sub

Change the sheet name (in red) to suit your needs.

 

[satish78]

In every workbook only one sheet available. That is name is not same as Sheet1 in every workbook. They are dynamic.

 

[mumps]

Replace:

With Sheets("Sheet1")

with

With Sheets(1)