sayıları dağıtmada sütünlara yerleştirme

[Muhammet Okumuş]

arkadaşlar merhaba.Forumda daha önce sorduğum bir soruda makroları inceledim ve kendimce birşeyler yapmaya çalıştım.Ancak bir yerde takıldım ve sizlerden yardım bekliyorum.

Sub Düğme1987Tıklat()
For x = 2 To 252
10
Randomize Timer
a = Int(Rnd * [c1] + 1)
If WorksheetFunction.CountIf([e1:e500], a) = 1 Then GoTo 10
Cells(x, 5) = a
Next x
For j = 2 To 13
t = 0
Do
Cells([f500].End(3).Row + 1, 6) = Cells(j, 1)
t = t + 1
Loop Until t = Cells(j, 2)
Next j
For k = 2 To 252
Cells(k, 8) = WorksheetFunction.Index([g2:g500], Cells(k, 5), 0)
Next k
End Sub

kırmızı renkli yere kadar yaptım ancak sonra işlem yapmadı.

 

[Muhammet Okumuş]

sorunu buldum g yerine f olacak.