hücrelerden rastgele değer seçmek aynı olmamak şartı

[karadeniz28]

a sütununda bulunan isimlerden rastgele 4 tanesini sıra ile seçip c sütununa yazdırmak istiyorum. bir seçilen bir daha seçilmemek kaydıyla

şimdiden teşekkür ederim

 

[muygun]

Merhaba;
Bir seçilen birdaha seçilmeyecek noktasını tam anlayamadım ama yinede eki inceleyin.
İyi çalışmalar.

 

[myefsane]

Merhaba arkadaşlar; aynı bu tarz bir sorum olacak yalnız benim sıkıntım sayılarla

Örnkte verdiğim dosyadan rast gele 6 rakam seçmek istiyorum.

 

[Orion1]

Dosyanız ektedir.

Sub rastgele_59()
Dim col As Collection, hcr As Range
Randomize Timer
Range("L3:Q3").Value = ""
Set col = New Collection
For Each hcr In Range("C2:H" & Cells(65536, "B").End(xlUp).Row)
    col.Add hcr.Value
Next
For i = 1 To 6
bu_var:
    sayi = Int(Rnd() * col.Count) + 1
    If WorksheetFunction.CountIf(Range("L3:Q3"), col(sayi)) > 0 Then GoTo bu_var
    Cells(3, i + 11).Value = col(sayi)
Next
Range("L3:Q3").Sort Key1:=Range("L3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[myefsane]

Elinize sağlık çok güzel olmuş bunu formüllede yapabiliriz değil mi?