B sütunundaki hücredeki sayı kadar aynı hizada D:I random sayı gelmesi

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Örnekte de görüleceği üzere, B sütununda 1 - 6 arası rastgele sayılar geliyor. hizalarındaki D:I hücrelerine ise, yine 1 - 6 arası ve fakat birbirinden farklı, B hücresindeki adet kadar, sayılar gelsin isteniyor. (sıralı olma şartı yok) Yardımcı olursanız sevinirim.
Saygılarımla

 

[Muzaffer Ali]

Merhaba.

Dim RS As New Collection

Sub Rastgele()
    Dim Bak As Integer
    Dim R As Integer
    Dim Sayi As Integer
    Range("D:I").ClearContents
    For Bak = 4 To Cells(Rows.Count, "B").End(xlUp).Row
        rs_ Cells(Bak, "B")
        For R = 1 To Cells(Bak, "B")
            Sayi = Int(1 + Rnd * (RS.Count))
            Cells(Bak, R + 4) = RS.Item(Sayi)
            RS.Remove Sayi
        Next
    Next
End Sub

Sub rs_(Maks As Integer)
    Dim Bak As Integer
    Set RS = Nothing
    For Bak = 1 To Maks
        RS.Add Bak
    Next
End Sub

 

[Tevfik_Kursun]

İlgine teşekkür ederim Muzaffer Ali,
İyi çalışmalar

 

[Muzaffer Ali]

Teşekkürler. İyi çalışmalar.