Güncel tarihe bağlı gün arttırmak(yardım)

[SEZERALTUNEL]

Güncel tarihe bağlı sayı arttırmak(yardım)

arkadaşlar merhaba

10.02.2015 tarihini baz alırsak güncel(bilgisayarın tarihi) olan her ayın 10 unda belirlenen hücre +1 olmasını istiyorum

yani 10.02.2015 1 olan hücre bilgisayarın tarihi 10.03.2015 olduğunda 2,
10.04.2015 olduğunda 3 olacak 1,2,3 sayıları hep aynı hücrede işlem görecek sonsuza kadar gidecek

bu konu bana yardımcı olursanız sevinirim

saygılarımla

 

[Ömer]

Merhaba,

2016 ya geçince yine 0 dan mı başlayacak yok, aynı yerden devam mı edecek.

 

[Necdet]

Merhaba,

Ömer Bey'in sorusunu dikkate almak gerek. Böyle bir durumda elle değer sıfırlanabilinir.


Aşağıdaki kodları ThisWorkBook'un kod bölümüne kopyalayıp deneyiniz.

Sayfa1 de A1 değişecek değer,
B1 ise değerin değiştiği tarih (yardımcı veri)

B1 hücresini kullandım çünkü ilgili günde dosyayı bir kaç kere açıldığında sürekli değeri arttırmamalı.

Private Sub Workbook_Open()

    Dim Tar1    As String
    Dim Tar2    As String
    
    Tar1 = Format(Sheets("Sayfa1").Range("B1"), "yyyymm")
    Tar2 = Format(Date, "yyyymm")
    
    If Day(Date) < 10 Then
        If Tar2 > Tar1 Then
            Sheets("Sayfa1").Range("A1") = Sheets("Sayfa1").Range("A1") + 1
            Sheets("Sayfa1").Range("B1") = Date
        End If
    End If
    
End Sub

 

[Ömer]

Fonksiyon ile alternatif:

Herhangi bir hücreye kopyalayın. ( Sıfırlanmadan artışa göre )

=AY(BUGÜN())-(1+(GÜN(BUGÜN())<10))+MOD(YIL(BUGÜN());2015)*12

.