Delete Row with Certain Value in Specific Column

**lsteinbach** · 01-09-2013, 01:04 PM

I have a database where entries are placed in the next available row. I tried to write a code that would delete the rows where the value in column A of that row is "EXAMPLE". I get the error that rw after Then is an "invalid qualifer". Here is my code:

Sub deleteExample()
Dim rw As Long
With Sheets("Data")
rw = .Range("A" & .Rows.Count).End(xlUp).Row + 1 ''next available row
If .Range("A" & rw).Value = "EXAMPLE" Then rw.EntireRow.Delete Shift:=xlUp
End With

End Sub

I suspect this is a simple fix, but I appreciate any help. Thank you!

Luke

**lsteinbach** · 01-09-2013, 01:18 PM

Let me ammend this by saying it is on a protected sheet in a shared workbook. Considering this, I'm not sure it is possible. But any input is appreciated.
Thank you.

Luke

**oeldere** · 01-09-2013, 01:19 PM

if you want to do it in an protected sheet, you have to unprotect the sheet first, before running the code, and after that protect the sheet.

**rcm** · 01-09-2013, 01:22 PM

try this macro

**lsteinbach** · 01-09-2013, 01:50 PM

I did some research and found the code I needed:

Please Login or Register  to view this content.

For this to work in a protected workbook, you need to make sure the protection option "delete rows" is selected. Then I assigned the macro to a button and it runs great. Thanks all.

Luke