Belirli sayıda rastgele isim atama

[esdel]

Herkese iyi akşamlar yaklaşık 3 saattir benzer konuları deneyerek baktım ancak hiç birinde istediğime ulaşamadım diğerleri rastgele atamalar yapabilmekte olup ancak atamayı istenilen sayı kadar yapamamaktadır.

istediğim ise şudur yaklaşık 10 000 adet belirli olan numarayı isimlere istenilen sayıda ataması

diğer bir deyişle 30 adet numaram var bu numaranın aliye 20 tanesi veliye 5 tanesi ayşe ise kalan 5 taneyi rastegele atamasını istemekteyim.

Konu hakkında yardım ve desteğinizi rica ederim.

İyi akşamlar.

 

[Muhammet Okumuş]

Merhaba,
F ve G sütunu yardımcı sütun olarak kullanılıyor.

Sub Dağıt()
Application.ScreenUpdating = False
x = Range("E100").End(3).Row
For i = 2 To x
Top = WorksheetFunction.Sum(Range("E2:E" & i)) + 1
son1 = Range("F1000").End(3).Row + 1
Range("F" & son1 & ":F" & Top) = Cells(i, 4).Value
Next
son1 = Range("F1000").End(3).Row
Range("G2:G" & son1) = "=RAND()"
Range("F2:G" & son1).Sort Range("G2"), xlAscending
Range("B2:B" & son1) = Range("F2:F" & son1).Value
Range("F:G") = ""
End Sub

 

[esdel]

Tam olarak buydu

Elinize sağlık, Çok teşekkür ederim.

Her şey gönlünüzce olsun...