use of morefunc funtions in excel macros

Hello all!

I'm writing a macro and I'd like to use one of the functions included in
Longre's free morefunc.xll add-in from http://xcell05.free.fr/

I'm interested in using UniqueValues but I don't manage it to work.

For example, an very simple code like this:


Sub ExtractItems()

Dim i As Integer
Dim list As Variant
Dim DataRange As Range

Set DataRange = Worksheets("Hoja1").Range("$A$1:$B$4")

list = uniquevalues(DataRange)

End Sub


doesn't work at all (plus, I get an error).

Sorry, I forgot to mention that I've already checked that the add-in is
properly loaded.

Can you help me with this?

Many thanks in advance.

This is the syntax you need:

list = Run([uniquevalues], DataRange)

It is explained in the help file.

RBS


"K7" <[email protected]> wrote in message
news:[email protected]...
> Hello all!
>
> I'm writing a macro and I'd like to use one of the functions included in
> Longre's free morefunc.xll add-in from http://xcell05.free.fr/
>
> I'm interested in using UniqueValues but I don't manage it to work.
>
> For example, an very simple code like this:
>
>
> Sub ExtractItems()
>
> Dim i As Integer
> Dim list As Variant
> Dim DataRange As Range
>
> Set DataRange = Worksheets("Hoja1").Range("$A$1:$B$4")
>
> list = uniquevalues(DataRange)
>
> End Sub
>
>
> doesn't work at all (plus, I get an error).
>
> Sorry, I forgot to mention that I've already checked that the add-in is
> properly loaded.
>
> Can you help me with this?
>
> Many thanks in advance.
>
>

Thanks RB.


"RB Smissaert" <[email protected]> escribió en el mensaje
news:[email protected]...
> This is the syntax you need:
>
> list = Run([uniquevalues], DataRange)
>
> It is explained in the help file.
>
> RBS
>
>
> "K7" <[email protected]> wrote in message
> news:[email protected]...
>> Hello all!
>>
>> I'm writing a macro and I'd like to use one of the functions included in
>> Longre's free morefunc.xll add-in from http://xcell05.free.fr/
>>
>> I'm interested in using UniqueValues but I don't manage it to work.
>>
>> For example, an very simple code like this:
>>
>>
>> Sub ExtractItems()
>>
>> Dim i As Integer
>> Dim list As Variant
>> Dim DataRange As Range
>>
>> Set DataRange = Worksheets("Hoja1").Range("$A$1:$B$4")
>>
>> list = uniquevalues(DataRange)
>>
>> End Sub
>>
>>
>> doesn't work at all (plus, I get an error).
>>
>> Sorry, I forgot to mention that I've already checked that the add-in is
>> properly loaded.
>>
>> Can you help me with this?
>>
>> Many thanks in advance.
>>
>>
>