üret 1.1

[Muhammet Okumuş]

Dosyada sayıları her butona bastığımda tek tek üretmek istiyorum.Butona bir kez basınca sayıları kendi seçiyor.kod da nasıl değişiklik yapabiliriz.bir de sadece A sütunuda sayıları üretiyor. Bunu her hangi bir sütunda nasıl yapabiliriz

 

[leumruk]

Sub sayiuretim()
If [b9] <> "" Then Exit Sub
Randomize
    While i <= [A2].Value - 1
        sayi = Int([A1].Value * Rnd + 1)
        If WorksheetFunction.CountIf([b2:b9], sayi) = 0 Then
            i = Cells([A2] + 1, [COLOR="Red"]2[/COLOR]).End(3).Row + 1
            Cells(i, 2) = sayi
            Exit Sub
        End If
    Wend
End Sub

Ek dosyayı inceler misin? Kırmızı renkli sayı kaçıncı sütun olduğunu belirtiyor. "2" "B" sütunu. "3" olursa "C" olur, "4" olursa "D" olur. Buna göre yer değişikliği yapabilirsin.

 

[Muhammet Okumuş]

teşekkür ederim. sn leumruk.anlatımınız için bir kez daha teşekkür ederim

 

[leumruk]

teşekkür ederim. sn leumruk.anlatımınız için bir kez daha teşekkür ederim

Rica ederim... Bir sorun olursa bildirin, yeniden bakalım.

 

[Muhammet Okumuş]

leumruk sayıları seçtikten sonra bi daha bastığımızda o sütundaki sayıları silebilirmiyiz

 

[Muhammet Okumuş]

Sub sayiuretim()
If [b8] <> "" Then Exit Sub
Randomize
While i <= [A2].Value - 1
sayi = Int([A1].Value * Rnd + 1)
If WorksheetFunction.CountIf([b1:b8], sayi) = 0 Then
i = Cells([A2] + 1, 2).End(3).Row + 1
Cells(i, 2) = sayi
Exit Sub
End If
Wend
End Sub

b1 ile b8 arasında yazması için bu şekil yaptım olmadı. salt okumur diye uyarı veriyor.
istediğim satırdan nasıl başayabilirim

 

[leumruk]

leumruk sayıları seçtikten sonra bi daha bastığımızda o sütundaki sayıları silebilirmiyiz

Sub sayiuretim()
[COLOR="Red"]If [b9] <> "" Then Range("b2:b9") = ""[/COLOR]
Randomize
    While i <= [A2].Value - 1
        sayi = Int([A1].Value * Rnd + 1)
        If WorksheetFunction.CountIf([b2:b9], sayi) = 0 Then
            i = Cells([A2] + 1, 2).End(3).Row + 1
            Cells(i, 2) = sayi
            Exit Sub
        End If
    Wend
End Sub

Sanırım dolduktan sonra seçime yeniden başlamasını istiyorsunuz. Kodu yukarıdakiyle değiştirip dener misin?

 

[Muhammet Okumuş]

tamam şimdi oldu
If WorksheetFunction.CountIf([b2:b9], sayi) = 0 Then bu bölümde b1:b8 değitirdim ama olmuyor. örneğin 18.satırdan nasıl başlatabilirm

 

[Muhammet Okumuş]

leumruk bunu şu şekil yapabilirmiyiz.
b2 ile b9 arası dolduğu zaman otamatik olarak c2 c9 sonra d2:d9 ... şeklinde yapabilirmiyiz

 

[leumruk]

leumruk bunu şu şekil yapabilirmiyiz.
b2 ile b9 arası dolduğu zaman otamatik olarak c2 c9 sonra d2:d9 ... şeklinde yapabilirmiyiz

8 sayı da farklı olacak değil mi? Yani Aynı sütunda 2 tane 4 olmayacak...

 

[Muhammet Okumuş]

evet her rakam bir kez tekrarlanacak

 

[leumruk]

Aşağıdaki dosyayı inceler misin? Daha kısa yoldan yapılabilirdi;ama bununla idare et. Aynı mantıkla sütun sayısını istediğin kadar artırabilirsin.

 

[Muhammet Okumuş]

teşekkür ederim leumruk.şimdilik bu yeterli zaten

 

[leumruk]

Rica ederim.