jammer6_9
07-13-2009, 06:54 AM
I was trying to Copy a range and delete the duplicates BUT below code do not delete all duplicates :help
Private Sub Worksheet_Change(ByVal Target As Range)
Range("o3:o20").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"o3:o20"), CopyToRange:=Range("o23:o40"), Unique:=True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Range("o3:o20").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"o3:o20"), CopyToRange:=Range("o23:o40"), Unique:=True
End Sub