istenilen aralıktaki sayılardan rastgele atama

[peleryn]

Herkese merhabalar;

Ek'teki dosyamda userformdaki 2 textbox'a belirlenmiş iki ayrı aralıktan rastgele sayıları atayabilmekle ilgili bir sorum var.Random ile yapmaya çalıştım ama aralıklara göre atama yapacak şekilde bir türlü ayarlayamadım.

İlgilenecek olan herkese çok teşekkür ederim.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Private Sub CommandButton1_Click()
Me.sayi1 = Int((Val(Me.TextBox3) - Val(Me.TextBox1) + 1) * Rnd + Val(Me.TextBox1))
Me.sayi2 = Int((Val(Me.TextBox5) - Val(Me.TextBox4) + 1) * Rnd + Val(Me.TextBox4))
End Sub

 

[peleryn]

Recep Hocam çok teşekkür ederim tam istediğim gibi oldu ellerinize sağlık..