Hello Everyone,
Good day.
I am new to the group.
I need to know how to create a macro that will delete an entire row if a cell does not match the keyword/data.
I have attached a sample report that needs the macro. in the file under column R, the USI - GSC - L1 should be left, and delete other rows.
Thank you,
Jomarie
Re: Delete entire row if a cell does not match the keyword/data
Hi Jomz07
Welcome to the Forum!!!
Try this Code in a General Module...
Option Explicit
Sub Delete_Me()
Dim ws As Worksheet
Dim LR As Long
Set ws = Sheet1
With ws
LR = .Cells.Find("*", .Cells(.Rows.Count, .Columns.Count), SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
If Not .AutoFilterMode Then
.Rows("2:2").AutoFilter
End If
.Range("$A$2:$JH" & LR).AutoFilter Field:=6, Criteria1:= _
"<>USI - GSC - L1", Operator:=xlAnd
Application.DisplayAlerts = False
.UsedRange.Offset(2, 0).SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True
.AutoFilterMode = False
End With
End SubRe: Delete entire row if a cell does not match the keyword/data
Hello jaslake,
Thank you for the above code. Tested and working. It leaves the USI - GSC - L1.
Just to clarify, does the code filters only in column F of my workbook?
Apologies, I have little background in codes.
Thank you,
Jomz07
Re: Delete entire row if a cell does not match the keyword/data
jaslake,
in that case, if I change Field:=6 to, let's say 3, would that be filtering column 3?
Thank you,
Jomz07
Re: Delete entire row if a cell does not match the keyword/data
Hi Jomz07
Yes, this is correct...
Quoteif I change Field:=6 to, let's say 3, would that be filtering column 3?
However, if your Filter Range reads like this Column C would be 2...
Further, if it reads like this Column C would be 1...
Don’t have an account yet? Register yourself now and be a part of our community!