Her ayın 1. günü belirlenen aralıkta rastgele sayı

[Kavinsky]

Öncelikle herkese merhabalar. Kullandığım bir sistemde her ayın 1. günü rastgele 0,20 ile 0,40 arasında rastgele bir sayı seçmesini ve bir sonraki ayın 1.gününe kadar hesaplamaları bu rakam üzerinden yapmasını istiyorum. Benim bilgim bunu yapaya yetmedi. Şimdiden çok teşekkür ederim.

 

[ÖmerFaruk]

Ekteki dosyada bir örnek mevcut.
AD kısmında xSabit isimli bir AD tanımladım.

Dosyanızı her açtığınızda B1 hücresindeki tarihten büyükse ve Ay farklıysa
xSabit isimli AD 0,20 - 0,40 arasında yeni bir değer alacaktır.

Formüllerinizde xSabit diyerek bu sabiti kullanabilirsiniz.
https://dosya.co/qna4rlzt9uki/Sabitsayı.xlsm.html

 

[Kavinsky]

Hocam ellerinize sağlık çok teşekkür ederim. İşimi gördü eksik olmayın.

 

[Kavinsky]

Ekteki dosyada bir örnek mevcut.
AD kısmında xSabit isimli bir AD tanımladım.

Dosyanızı her açtığınızda B1 hücresindeki tarihten büyükse ve Ay farklıysa
xSabit isimli AD 0,20 - 0,40 arasında yeni bir değer alacaktır.

Formüllerinizde xSabit diyerek bu sabiti kullanabilirsiniz.
https://dosya.co/qna4rlzt9uki/Sabitsayı.xlsm.html

Hocam bir ricam olabilir mi ? Yine her ayın 1 olduğunda F3 hücresinindeki değeri H2 hücresine yapıştırma imkanı var mı?

 

[ÖmerFaruk]

Private Sub Workbook_Open()
If Date > Worksheets("Sabit").Range("B1") And Month(Worksheets("Sabit").Range("B1")) <> Month(Date) And Day(Date) >= 1 Then
    Worksheets("Sabit").Range("B2") = WorksheetFunction.RandBetween(20, 40) / 100
    Worksheets("Sabit").Range("B1") = Date
    'Bahsettiğin hücreler hangi sayfada ise o sayfanın adını yazarsınız
    Worksheets("Sabit").Range("H2") = Worksheets("Sabit").Range("F3")
End If
End Sub

 

[Kavinsky]

Çok teşekkür ederim.