Generate A List of Unique Values / Unique Array

[PcMax]

Hi,
I would like to get a unique list and if you ordered the following code to obtain the individual columns in a multiple selection
What should I make changes to the code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim tArr() As Variant
    ReDim tArr(0)
    For Each celle In Target
        i = i + 1
        tArr(UBound(tArr)) = celle.Column
        ReDim Preserve tArr(UBound(tArr) + 1)
    Next
    ReDim Preserve tArr(UBound(tArr) - 1)   '???
    For Each COLONNA In tArr()
        MsgBox COLONNA
    Next
End Sub

[Admin]

Hi

Have a look at this http://www.excelfox.com/forum/f12/ge...que-values-69/

[PcMax]

Hi,

I solved using only the form: mod_SortAndUnique
Now in a spreadsheet use

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim tArr() As Variant
    ReDim tArr(0)
    For Each celle In Target
        i = i + 1
        tArr(UBound(tArr)) = celle.Column
        ReDim Preserve tArr(UBound(tArr) + 1)
    Next
    Product = SORTSDARRAY(tArr, Ascending)
    Product = UNIQUEVALUES(Product)
    For Each COLONNA In Product
        MsgBox COLONNA
    Next
End Sub