Rastgele Sayı Üretmede Farklı Zaman Aynı Sayı Sorunu

[HASAN40]

Merhaba, iyi pazarlar dilerim.

Arkadaşlar, aşağıdaki kodlar ile A1 hücresine 1 ile 100 arasında rastgele sayı üretmeye çalışıyorum. Sorunum şu ki, bir sayı üretip dosyayı kapatıp tekrar açtığımda ve tekrar sayı ürettiğimde aynı sayının üretilmesi. Yani, dosyayı bir kez çalıştırdım sayı ürettim bulunan "71" sayısı. Daha sonra dosyayı kapatıp tekrar açtım yine aynı sayı, bunu 10 kez denedim ama farklı bi sayı bulamadım. Bunun bir çözümü varmıdır?

 Sheets("Sayfa1").Cells(1, 1) = Int((Rnd * 100) + 1)

 

[Korhan Ayhan]

Merhaba,

Kodlarınızın en başına aşağıdaki satırı ekleyip deneyin.

Randomize

 

[HASAN40]

Merhaba Korhan Bey,

Çok teşekkür ederim, randomize komutunu her rnd işlevini kullandığım kod bloğunun başına ekledim. Sorun çözüldü.