shadow12345
Well-known Member
- Joined
- May 10, 2004
- Messages
- 1,238
Hi,
I found this code on here which works great
It copies the unique's from one coloumn to another sheet, my question is how can i take the unique from two coloumns.
Any thoughts ?
I found this code on here which works great
Code:
Sub copyunique()
Dim Sh1 As Worksheet
Dim Rng As Range
Dim Sh2 As Worksheet
Set Sh1 = Worksheets("Sheet2")
Set Rng = Sh1.Range("i1:i" & Sh1.Range("i65536").End(xlUp).Row)
Set Sh2 = Worksheets("Sheet4")
Rng.Cells(1, 1).Copy Sh2.Cells(1, 1)
Rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sh2.Range("a1"), Unique:=True
End Sub
It copies the unique's from one coloumn to another sheet, my question is how can i take the unique from two coloumns.
Any thoughts ?