Extracting unique numbers

[howard]

I have a workbook called Audit Trail (source workbook). I have data in culumn F consisting of account numbers. The same number can appear several times. I would like a macro to extract only unique numbers on the destination workbook called Data extraction i.e the same number only to be extracted once

Example of data in Col F

8110
7565
7010
7435
7565
6000
6001
8110
7565


The data to be extracted is as follows i.e unique numbers

8110
7565
7010
7435
6000
6001


Your assistance is most appreciated

 

[hurgadion]

Hi,
try using the following macro:

Sub UniqVal()
Dim f&

f = Cells(Rows.Count, "F").End(xlUp).Row
Range("F1:F" & f).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("G1"), Unique:=True
End Sub

Best regards.

 

[taurean]

Try:

Public Sub GetUniques()
Dim objDic As Object
Set objDic = CreateObject("Scripting.Dictionary")
For i = 2 To Range("F" & Rows.Count).End(xlUp).Row
    If Not objDic.exists(Range("F" & i).Value) Then _
    objDic.Add Range("F" & i).Value, Range("F" & i).Value
Next i
Range("G2").Resize(objDic.Count, 1).Value = Application.Transpose(objDic.keys)
End Sub

 

[howard]

Hi Hurgadaion

Thanks for the help. When Activating the macro, nothing happens. please check code & advise

regards

Howard

 

[hurgadion]

I don't know what is Your Problem... In My WorkSheet the above macro is working. Maybe try taurean's macro or try to solve Your problem alone. The problem of Unique Values is rather conventional, best regards.

 

[howard]

Hi Shrivallabha

Thanks for the help most appreciated

Regards

Howard

 

[taurean]

Happy to help