Delete Non matching dates

[Trevasaurus]

Hi.

I have two columns of dates in two separate worksheets. Both sets of dates are in Column A of worksheets 1 and 2. I'm trying to compare the dates in worksheet 1 and 2, keeping the ones that exist in both sheets, and delete the ones that exist on just one sheet.
Is there an easy way to do this?

[xladept]

Hi Treva,

Here's one way:

Sub UniquA(): Dim A1 As Range, A2 As Range, w1 As Worksheet, w2 As Worksheet
Dim r As Long: Set w1 = Sheets("Sheet1"): Set w2 = Sheets("Sheet2")

For Each A1 In w1.Range("A1:A" & w1.Range("A" & Rows.Count).End(xlUp).row)

For Each A2 In w2.Range("A1:A" & w2.Range("A" & Rows.Count).End(xlUp).row)
If A2 = A1 Then GoTo GetNext
Next
A1 = ""
GetNext: Next

For Each A2 In w2.Range("A1:A" & w2.Range("A" & Rows.Count).End(xlUp).row)
For Each A1 In w1.Range("A1:A" & w1.Range("A" & Rows.Count).End(xlUp).row)
If A2 = A1 Then GoTo GetAnother
Next
A2 = ""
GetAnother: Next

For r = w1.Range("A" & Rows.Count).End(xlUp).row To 1
If w1.Range("A" & r) = "" Then w1.Range("A" & r).EntireRow.Delete Shift:=xlUp
Next

For r = w2.Range("A" & Rows.Count).End(xlUp).row To 1
If w2.Range("A" & r) = "" Then w2.Range("A" & r).EntireRow.Delete Shift:=xlUp
Next

End Sub

[Trevasaurus]

Thanks xladept. This works perfectly.

[xladept]

You're welcome - you could probably adapt this code to the other post?

[Trevasaurus]

Yes, I did. Thanks.