Hi friends
I i need two alteration in below code.
1:= CriteriaRange:=Sheets("statement").Range("b1:b3")
2:-formula should be copied in cell (a4) instead of (a1)
Thanks
I i need two alteration in below code.
1:= CriteriaRange:=Sheets("statement").Range("b1:b3")
2:-formula should be copied in cell (a4) instead of (a1)
Code:
Sub unique()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("csales")
Set s2 = Sheets("statement")
s1.Range("a:h").Copy s2.Range("[COLOR=#ff0000][B]A1[/B][/COLOR]")
s2.Range("a:h").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub
Thanks
Last edited: