Zdravim,

potřebuju udělat jednoduchej prográmek, kterej bude konat následující:

vybere X náhodnejch buněk a v dalších Y nahodnejch buňkách na ně vypíše odkazy. počet X se rovná počtu Y. A ty buňky nebudou v jednom sloupci, ale budou vybírány náhodně z celýho listu a to nevim jak udělat (

Kód:
Sub Odkazy()

horni_mez = 10
For i = 1 To horni_mez
    nahodne_cislo1 = Int((horni_mez - 1 + 1) * Rnd + 1)
    nahodna_bunka = Range("A" & nahodne_cislo1)
    nahodne_cislo2 = Int((horni_mez - 1 + 1) * Rnd + 1)
    With ActiveSheet
        .Hyperlinks.Add .Range("C" & nahodne_cislo1), Address:="", SubAddress:=("List1!A" & nahodne_cislo2)
    End With
Next i

End Sub
Toto udělá to, že to vybere v náhodném pořadí buňky ze sloupce "A" a posadí je v náhodnym pořadí do sloupce "C". Jenže chtěj po mě to ještě doladit, aby to vybíralo z náhodnýho sloupce a vypsalo to ty odkazy taky do náhodnýho a aby se žádný odkaz neopakoval.

Bohužel, VBA neni mou silnou stránkou, tak prosím o pomoc

Kdyby vám to nebylo jasný a připadalo jako totální debilita, tak se nepletete