random nummers zonder duplicaten

[maurizzio78]

nu vond ik onderstaande code op dit forum welke ik wil gebruiken alleen gebruik ik dynamic range en ik weet niet hoe ik dit moet toepassen.
of kun je de range bepalen ook dmv variabelen?

dus op de plek waar nu [B2:B61] staat wil ik een dynamic range zetten alsook bij [B2;B61,B2;B61]

Application.ScreenUpdating = False
 [B2:B61] = "=rand()"
 [B2:B61] = [index(rank(B2:B61,B2:B61),)]
Application.ScreenUpdating = True

 

[HSV]

Op basis van welk variabele range die in het werkblad staat wil je?

Bv. op basis van E2 t/m de laatste rij in kolom E?

De getallen komen in kolom B.

range("e2", cells(rows.count, 5).end(xlup)).name = "b"
     [b].offset(,-3) = "=rand()"
     [b].offset(,-3) = [index(rank(offset(b,,-3),offset(b,,-3)),)]