vba delete rows with cells not in a list

[katekoz]

Hello,
I've seen some variations of this on the forum, but not really what I'm looking for. I have a list of users that's created through a Pivot Table, which I named "UserPivot." I also have a set of data on a worksheet. I want to check through that list of data and, if the username in column D doesn't appear in UserPivot, I want to delete the row of data. Here is what I have so far. I know my "If Not UserPivot..." line is not right, but I'm just not sure how to reference that little pivot table!

Dim r As Integer
Dim UserPivot As Object

For r = ThisWorkbook.Sheets("New Data Add").UsedRange.Rows.Count To 1 Step -1

If Not UserPivot.Exists(.Cells(r, "D").Value) Then
ThisWorkbook.Sheets("New Data Add").Rows(r).EntireRow.Delete

End If
Next

 

[katekoz]

It looks like it worked! It takes some time to run, but that's not a big deal. I know you mentioned searching from the bottom of the list up to the top, rather than top down. Does this macro do that?

 

[CSmith]

This starts at bottom and works to top yes
And sorry for the typos also should have only been 1 period in front of Cells(

 

[katekoz]

I fixed the one period - no biggie! I have other code in this macro that I think are searching a deleting top-down. Since that's technically a new topic, I'm going to post a new thread to see if someone can "reverse" them for me.

Thanks so much for your help with this! You've been a lifesaver!

 

[CSmith]

Most welcome! Glad to help and we thank you for the follow up!