İsimlerin rastgele dağılımı

[Mx@Raid]

Arkadaşlar ekte dosya sunuyorum bu konuda yardımcı olabilirseniz sevirim.
Teşekkürler.

 

[Mx@Raid]

Arkadaşlar acil bir durum yardım ederseniz sevinirim.

 

[Mx@Raid]

Arkadaşlar bu kombinasyonu belirlediğim alanda yapmasını istiyorum

Sub random()
For i = 1 To 5
For y = 1 To 5
10 bul = Int(Rnd * 12) + 1
If WorksheetFunction.CountIf(Columns, bul) > 0 Then GoTo 10
If WorksheetFunction.CountIf(Rows(i), bul) > 0 Then GoTo 10
Cells(i, y) = bul
Next: Next
End Sub

 

[Mx@Raid]

Arkadaşlar kısmen çözdüm ancak rastgele çıkan sayının aynı satırda 1 defa olması lazım ben herbir sütun için ayrı yapmıştım. makroyu tek bir işlev haline getirebilirsek belki aynı rakam tekrar etmeyecektir. yardımlarınızı bekliyorum.
Teşekkürler.

 

[Mx@Raid]

Arkadaşlar sorunu çözdüm. 4 mesajdaki dosyadan bakabilirsiniz.