Copying 2/3 unique values from range of data but ramdomly - Is this a possible function in Excel VBA?

[pedie]

I am wanting to copy 2/3 unique values from range of data from B col till last row but ramdomly - Is this a possible function in Excel VBA? The data will contain > 1000 rows of datas.

Thanks for helping in advance.

 

[mikerickson]

I found two related errors. Once fixed, it works fine. (Although you may want to adjust the number of columns in the definition of dataRange.)

1) The function selectFrom is missing. Copy the code below into the module.
2) The line that errors should be

choiceArray = selectFrom(Array1to(batchCount), selectionCount)

I may have caused the confusion. The upgraded function Array1To that I posted in #12 (and you used) was supposed to replace the function Array1To in #11.
I should have made it clear that selectFrom was still needed.

Here's the function selectFrom that should be added to the module.

Function selectFrom(ByVal anArray As Variant, Optional selectCount As Long) As Variant
    Dim i As Long, Size As Long, randIndex As Long, temp As Variant
    Size = UBound(anArray)
    If selectCount < 1 Then selectCount = Size
    
    For i = 1 To selectCount
        randIndex = 1 + Int(Rnd() * Size)
        temp = anArray(i)
        anArray(i) = anArray(randIndex)
        anArray(randIndex) = temp
    Next i
    ReDim Preserve anArray(1 To selectCount)
    selectFrom = anArray
End Function

 

[pedie]

Mike, thank you soo much for helping me out. Sometime it still erros in the same line with same error.
let me get back if it still cont. to error.


Thanks again. ' appriciate your help.

 

[GlennUK]

I seem to be answering the same query:

http://www.mrexcel.com/forum/showthread.php?t=539378