textbox1'e rastgele sayı yazdırma

[osmanfenerli1907]

Merhabalar
Ben commandbutton1e tıklayınca textbox1'e a1:a50 textbox2'ye b1:b50 den rastgele bir sayı Yazmasını istiyoruM.
ilginize teşekkürler
İYİ geceler

 

[Korhan Ayhan]

Selamlar,

A ve B sütunundaki sayılar artan sıralama ilemi gidiyor yoksa karışık değerlermi?

Eğer sıralı ise aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
    TextBox1 = Evaluate("=RASTGELEARADA(A1,A50)")
    TextBox2 = Evaluate("=RASTGELEARADA(B1,B50)")
End Sub

 

[veyselemre]

Private Sub CommandButton1_Click()
Randomize Timer

GoSub uret
TextBox1.Text = Cells(sayi, "a")

GoSub uret
TextBox2.Text = Cells(sayi, "b")

Exit Sub
uret:
    sayi = Int(Rnd * 50)
    If sayi < 1 Or sayi > 50 Then GoTo uret
    Return
End Sub

 

[osmanfenerli1907]

çOK teşekkür ediyorum sayın hocalarım
saoğlun
İYİ geceler