ilk satırda bulunan sayı adeti kadar sayı üret

[Muhammet Okumuş]

Merhaba arkadaşlar
A1ile N1 sütünları arasında sayılar mevcut. İstediğim ilk satırda bulunan sayılar adedince 100e kadar aynı sütundaki aynı rakam tekrarlanmayacak ve ikinci satırdan başlayacak şekilde bir kod yazmaya çalıştım ama yapamadım. Yardımlarınızı bekliyorum.

 

[leumruk]

Merhaba,

Sub Uret()
[a2:n65536].ClearContents
Randomize
For x = 1 To 14
If Cells(1, x) > 0 Then
For y = 2 To Cells(1, x) + 1
Tekrar:
sayi = Int(Rnd() * 100 + 1)
Sat = Cells(65536, x).End(3).Row
If WorksheetFunction.CountIf(Range(Cells(2, x), Cells(Sat, x)), sayi) > 0 Then GoTo Tekrar
Cells(Sat + 1, x) = sayi
Next
End If
Next
MsgBox "İşlem tamamlanmıştır.", vbInformation, "İŞLEM DURUMU"
End Sub

 

[Muhammet Okumuş]

Sn Mustafa Bey!
Her zamanki gibi harikasınız. Çok teşekkür ederim.