Soru Excel günlük belirlenen değerden hücre değeri arttırma

[SnakErdem]

Merhaba iyi forumlar arkadaşlar A1 hücresinden başlayıp A20ye kadar olan hücrelerin günlük istenilen değer doğrultusunda hücre değerini arttırmasını istiyorum.

 

[Korhan Ayhan]

Sorunuzu örnek dosya ile desteklerseniz ve nasıl bir işlem yapmak istediğinizi örnekleyerek açıklarsanız yardım almanız kolaylaşacaktır.

 

[SnakErdem]

t8kf60b.jpeg

ff

www.hizliresim.com

Mesela bu fotoğrafta olduğu gibi km bölümünde ki değerlerin günlük 200 artmasını istiyorum. Diyelim exceli 10 gün sonra açtım 2000 km eklemiş olması lazım.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Auto_Open()
    Dim Sh As Worksheet, Rng As Range, X As Double
    
    Set Sh = Sheets("Sheet1")
    
    If Sh.Range("Z1") = Date Then Exit Sub
    
    X = 200 * IIf(Sh.Range("Z1") = "", 1, (Date - Sh.Range("Z1")))
    
    For Each Rng In Sh.Range("A1:A20")
        Rng = Rng + X
    Next
    
    Sh.Range("Z1") = Date

    Set Sh = Nothing
End Sub

 

[SnakErdem]

Teşekkür ederim akşam deneyip haber vereceğim.

 

[SnakErdem]

Deneyiniz.

Option Explicit

Sub Auto_Open()
    Dim Sh As Worksheet, Rng As Range, X As Double
  
    Set Sh = Sheets("Sheet1")
  
    If Sh.Range("Z1") = Date Then Exit Sub
  
    X = 200
  
    For Each Rng In Sh.Range("A1:A20")
        Rng = Rng + 200
    Next
  
    Sh.Range("Z1") = Date

    Set Sh = Nothing
End Sub

Kusura bakmayın bugün deneyebildim el ile makroyu çalıştırmadığım sürece çalışmıyor.

 

[Korhan Ayhan]

Bu kodu modüle uygulamalısınız. Sonrasında linkteki makro ayarlarını yaparsanız kendisi dosya açılışında otomatik çalışacaktır.

Makro Ayarları

 

[SnakErdem]

Bu kodu modüle uygulamalısınız. Sonrasında linkteki makro ayarlarını yaparsanız kendisi dosya açılışında otomatik çalışacaktır.

Makro Ayarları

Korhan Bey kusura bakmayın geç cevap veriyorum ama dediklerini yaptığım zaman tam istediğim gibi olmuyor mesela ayın birinde açtım değer 200, beş gün sonra açtığımda değer 1200 olmalı ama 400 oluyor.

 

[Korhan Ayhan]

#4 nolu mesajımdaki kodu revize ettim.

Dosyayı ilk açtığınızda sadece 200 ekler. Daha sonra açışlarınızda günfarkı kadar (Gün x 200) ekler. 200 değişkendir. Dilerseniz değiştirebilirsiniz.

 

[SnakErdem]

#4 nolu mesajımdaki kodu revize ettim.

Dosyayı ilk açtığınızda sadece 200 ekler. Daha sonra açışlarınızda günfarkı kadar (Gün x 200) ekler. 200 değişkendir. Dilerseniz değiştirebilirsiniz.

Çok teşekkür ederim Koray bey.