Bir Listeye Belirli Sayıda Rastgele İsim Atamak

[Rizelli3]

Merhabalar,

Elimde bir liste var içerisinde bin adet stün bulunmakta ve 6 adet isim bulunmakta. Stünlara "A" adlı kişi 20 tane "B" adlı kişi 50 tane toplamda şekilde random dağıtmasını istiyorum yardımcı olabilir misiniz.

 

[HücrelereFısıldayanAdam]

1000 Sütun mu, 1000 satır mı? 6 kişi istiyorsunuz ama sadece A ve B dağıtılacak, Soru net değil, anlaşılmıyor, örnek liste paylaşabilirsiniz.

 

[Rizelli3]

Merhabalar hocam, biraz eksik anlatmışım sorduğunuz soruları görünce fark ettim bin adet iş var elimizde 6 personel var personellerin yapacağı iş sayısı belli ancak işlere random dağıtılması gerekiyor. Örnek dosyayı ekledim. Şimdiden teşekkürler.

Ornek Dosya

 

[HücrelereFısıldayanAdam]

Merhabalar hocam, biraz eksik anlatmışım sorduğunuz soruları görünce fark ettim bin adet iş var elimizde 6 personel var personellerin yapacağı iş sayısı belli ancak işlere random dağıtılması gerekiyor. Örnek dosyayı ekledim. Şimdiden teşekkürler.

Ornek Dosya

Yine eksik bilgi var hocam, 6 kişiye eşit mi dağılacak, tabloda verildiği gibi mi dağıtılacak, hiç bişey net değil.

 

[Rizelli3]

Yine eksik bilgi var hocam, 6 kişiye eşit mi dağılacak, tabloda verildiği gibi mi dağıtılacak, hiç bişey net değil.

öncelikle destekleriniz için teşekkür ederim hocam. yapılacak iş sayısında kaç yazıyorsa o kişiye o kadar iş verilecek.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub kod()
Dim a As Integer, b As Integer, s As Integer, x As Integer, tplm As Integer
Dim t As String
s = Cells(Rows.Count, "G").End(3).Row
tplm = WorksheetFunction.Sum(Range("G2:G" & s))
ReDim dz(1 To tplm, 1 To 1)
For a = 2 To s
    For b = 1 To Cells(a, "G")
        dz(x + b, 1) = Cells(a, "F")
    Next
    x = x + b - 1
Next
For a = LBound(dz) To UBound(dz)
    s = Int(Rnd * UBound(dz) + 1)
    t = dz(a, 1)
    dz(a, 1) = dz(s, 1)
    dz(s, 1) = t
Next
Range("B2").Resize(UBound(dz), 1).Value = dz
End Sub