VBA Bringing over unique rows if column O contains an N

[Stephen_IV]

What I am trying to do is to bring over all of the data in column O that contains an N if the data in column E is unique. I can bring over all of the data that has an "N" with the code below but I am having trouble bringing over the unique data theat is unique with an N.


In other words if the value in column E is unique and column O contains an N then copy over the entirerow to sheet2.

Thanks in advance Stephen.


Sub pullingdata()
Dim r As Range
Set r = Range("O2:O14204")
For Each cell In r
If cell.Value = "N" Then
cell.EntireRow.Copy Sheets("sheet2").Range("a65536").End(xlUp)(2, 1)
End If
Next
End Sub

 

[hayden]

Stephen,
While I can't do this all at once in VBA, I think you could filter the data in excel (slecting unique records only) first and then run your script to bring over all those with an "N".

Might work.

Hayden