vba Unique value with criteria

chunu

Board Regular
Joined
Jul 5, 2012
Messages
74
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)

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:

Some videos you may like

Excel Facts

How to find 2nd largest value in a column?
MAX finds the largest value. =LARGE(A:A,2) will find the second largest. =SMALL(A:A,3) will find the third smallest

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,264
Messages
5,510,221
Members
408,780
Latest member
lxondecks

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top