rastgele sayı üretmede aynı seri sorunu(acil)

[dfom_2004]

arkadaşlar merhaba
Int(Rnd * 14) ile random sayılar elde ediyorum ama
her seferinde aynı sıralama ile seri olusuyor
yani
2 5 4 9 10 7 9

dosyayı acıp kapatıyorum yine aynı seri geliyor
ben farkı seriler olussun istiyorum
yardımlarınız için teşekkürler

 

[Levent Menteşoğlu]

Kullandığınız kodu verirmisiniz.

 

[dfom_2004]

kod

Private Sub UserForm_Activate()
  Dim rast As Integer
  rast = Int(Rnd * 14)
  Image2.Picture = LoadPicture(ThisWorkbook.Path & Application.PathSeparator & "background" & Application.PathSeparator & "alg" & rast & ".jpg")
End Sub

 

[dfom_2004]

tamamdır sorunu çözdüm

Randomize fonksiyonu ile sorun çözüldü

<code>
Randomize
rast = Int((12 * Rnd) + 1)
</code>