Rastgele üretilen sayının sabtlenmesi

[gokhantopuz]

Merhaba,

=RASTGELEARADA(10000;99999)

ile rastgele bir sayı üretiyorum ancak, dosyayı her kapatıp açışımda bu rakam değişiyor.

Üretilen sayıyı nasıl statik yapabilirim?

Şimdiden teşekkürler

 

[BedriA]

Makro kullanabilirsiniz.
Sayıyı makro ile üretirsiniz.
Aşağıdaki kodu deneyin.

Sub sayi_uret()
  Sheets("sayfa1").Select
Randomize
Cells(1, 1) = Int(Rnd(1) * 10000)
End Sub

 

[gokhantopuz]

Makro kullanabilirsiniz.
Sayıyı makro ile üretirsiniz.
Aşağıdaki kodu deneyin.

Sub sayi_uret()
  Sheets("sayfa1").Select
Randomize
Cells(1, 1) = Int(Rnd(1) * 10000)
End Sub

Çok teşekkür ederim Bedri bey, ancak VBA konusunda oldukça bilgisizim. Rica etsem ekteki dosya üzerinde gösterebilir misiniz? B4 ve aşağısındaki tüm ücreler için rasgele bir sabit sayı üretmek istiyorum.

 

[BedriA]

Sarı olan hücrelere mi?

 

[BedriA]

Ekteki dosyayı indirip açtıktan sonra çıkan uyarıda "Etkinleştir" seçeneğini işaretleyin. Sarı hücrelere göre kod yazıldı.

Üretilen sayının benzersiz olmasını istiyorsanız, kodda küçük bir değişiklik yapmak gerekecek yalnız.

 

[gokhantopuz]

Teşekkür ederim Bedri bey