vba Unique value with criteria


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

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
Last edited:

Some videos you may like

Excel Facts

Control Word Wrap
Press Alt+Enter to move to a new row in a cell. Lets you control where the words wrap.

Watch MrExcel Video

Forum statistics

Latest member

This Week's Hot Topics

  • Timer in VBA - Stop, Start, Pause and Reset
    [CODE=vba][/CODE] Option Explicit Dim CmdStop As Boolean Dim Paused As Boolean Dim Start Dim TimerValue As Date Dim pausedTime As Date Sub...
  • how to updates multiple rows in muliselect listbox
    Hello everyone. I need help with below code. code is only chaning 1st row in mulitiselect list box. i know issue with code...
  • Delete Row from Table
    I am trying to delete a row from a table using VBA using a named range to find what I need to delete. My Range is finding the right cell. In the...
  • Assigning to a variable
    I have a for each block where I want to assign the value in column 5 of the found row to the variable Serv. [CODE=vba] For Each ws In...
  • Way to verify information
    Hi All, I don't know what to call this formula, and therefore can't search. I have a spreadsheet with information I want to reference...
  • Active Cell Address – Inactive Sheet
    How to use VBA to get the cell address of the active cell in an inactive worksheet and then place that cell address in a location on the current...