Delete Rows that contain matching cell contents in column to the contents in cell B1

[sspatriots]

Hi,

I've been struggling with this for a few days now and still can not come up with the fix. I have the code below that is supposed to look at the contents of cell B1 and then delete all rows in column B whose cell content matches the entry in cell B1. I'm sure this may be a simple fix for most, but I'm still a bit of a novice with working with this stuff.

Basically, I have another macro that goes to the applicable worksheet and activates cell B1 first. The problem with this code is that it deletes the first row because it is also a match.

Sub DeleteMatchingRows()
Dim LR As Long, i As Long
With Sheets("Tracker")
LR = .Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
If .Range("B" & i).Value = ActiveCell.Value Then .Rows(i).Delete
Next i
End With
End Sub


Any help would be greatly appreciated.

Thanks,

Steve

[YasserKhalil]

Try this little change

Please Login or Register  to view this content.

[sspatriots]

I just tried it, but it still deletes my first row where the match is identified.

[YasserKhalil]

So you can attach your wb to see it and decide what's wrong..
I just edited the the loop to row 2 only away from row 1
you may don't have enough data in column B so you can add this line before the loop

Please Login or Register  to view this content.

[sspatriots]

Yasser,

I tried your last suggestion and it worked perfectly. You make it look so easy. Thank you so much.

What did you mean by "So you can attach your wb to see it and decide what's wrong.."? Are you saying I need to attach my workbook to the forum somewhere? Not sure how to do that.



Thanks again,

Steve

[YasserKhalil]

You're welcom Steve ..
Yes, WB is abbreviate to Workbook.
As for attachment, When you post a reply click "Go Advanced" and you will find an icon of attachment then a window will be opened click Add Files and Browse for your file you want to attach and finally upload then OK

[sspatriots]

Excellent. Thanks. How do I mark this one "Solved"?

[YasserKhalil]

Hi
From Thread Tools at the top of the thread .. you will find (Mark as solved)
And if you found that someone helped you and you want to appreciate him you can click the star (Add Reputation ) to add some points to his reputation