tetboxa rastgele sayı yazdırma

[osman_ozeroz]

bende textbox1 ve commandbuton1 var.ben commandbuttona tıklayınca textbox1 e a1:a20 sütünündaki sayılardan birini rastgele yazmasını istiyorum.nasıl yapabilrim?şimdiden teşekkürler :lol: :lol:

 

[osman_ozeroz]

yardım!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :yardim: :yardim:

 

[veyselemre]

[vb:1:6fac1a1f41]Private Sub CommandButton1_Click()
Randomize Timer
b = Int(Rnd() * 20) + 1
TextBox1 = Cells(b, 1)
End Sub[/vb:1:6fac1a1f41]

 

[danersin]

Commandbuttonın altına aşağıdakini yazmanız yeterli sanırım. (test etmedim)

Satir=Int((20 * Rnd) + 1)
Textbox1=cells(Satir,1)

 

[osman_ozeroz]

B SUTUNUNA GÖRE NASIL OLACAK....

 

[osman_ozeroz]

:yardim: :yardim:

 

[danersin]

Diğer sorunuzada bakıyorumda ve soruları ssoruş tarzınıza, sorduğunuz sorulara, kullandığınız büyük harflere, imzanıza, smile leri kullanma sıklığınıza daha 5. mesajda, forum aramasına hiç tenezzül etmemenize vs vs..
http://www.excel.web.tr/viewtopic.php?t=18819


Zannedersem öncelikle forum kurallarını okumalı ve forumu biraz dolaşmalısınız.

 

[danersin]

Şimdiii...

Cells(b, 1)

Böyle bir ifade gördüğünüzde parantez içindeki ilk sayı yani burada "b" satır sayısını, ikinci sayı yani burada "1" sütun sayısını verir. Dolayısı ile 1 yerine 2 yazarsanız b sütunu olur.

 

[osman_ozeroz]

Çok özür dilerim.Ayrıca çok çok teşekkür ederim...