Yılda bir defa değişen tarih

[acolkesen1]

Herkese merhaba.Bir hücreye yazılan tarihin bir yıl boyunca sadece bir defa otomatik olarak değiştirilmesi mümkün müdür? Örneğin A1 hücresindeki 01.01.2009 tarihini 01.01.2009 geldiğinde 01.01.2010 olarak değiştirmek kod ile mümkün mü? Burada esas alınacak olan sabit tarih değil, hücreye yazılacak olan tarihdir. Yani hücreye hangi tarih yazılmışsa o tarih geldiğinde hücreye bir yıl sonrasının tarihi yazılmalı. Aynı işlemin her yıl terarlanması gerekiyor.. İlgilenen arkadaşlara teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ThisWorkbook'un kod bölümüne kopyalayınız.

Private Sub Workbook_Open()
Tarih = Sheets("Sheet1").[A1]
Yıl = Year(Tarih)
If Yıl <> Year(Date) Then Sheets("sheet1").[A1] = DateSerial(Year(Date), Month(Tarih), Day(Tarih))
End Sub

 

[acolkesen1]

Sn Necdet bey, ilginize teşekkür ederim.YAzdığınız kodlarla yıl değiştiğinde tarih de bir yıl sonrasına geçiyor. Tekrar teşekkür eder iyi günler dilerim.

 

[Necdet]

Merhaba,

Olayı anlamışsınız, bu benim kurduğum bir mantık, belki başka mantıklarda vardır.

Ben şunu düşündüm :

Dosya her açıldığında A1 hücresindeki tarihin yılını günün tarihin yılı ile karşılaştırdım. Eğer içinde bulunduğumuz tarihin yılı, A1 hücresinde yazılan tarihin yılı ile uyuşmuyorsa, A1 hücresindeki tarihi yılın tarihi olarak değiştirmek.

Böyle düşününce sanki tarih yılda 1 kere değişiyor gibi algılanır.

 

[acolkesen1]

Açıklamanız için çok teşekkür ederim. Ama bu işlere biraz geç başldaık.Kodlarla tanışalı henüz bir yıl olmadı.. Az bilgiyle çok şey yapmak isteyince böyle bocalıyoruz işte.Sizlerin yardımıyla bir şeyler yapmaya çalışıyoruz.. Tekrar teşekkür eder iyi çalışmalar dilerim..