Tarihe göre Rakam Artırma

[boztepelibey]

Selamün Aleyküm ÜSTADLARIM;

Ekli dosyamda şöyle bir istirhamım var.
Yeni Tarih Geldiğinde Yeni sayı 1 artacak. Ama bu artma 4 'e kadar olmalı.

Yardımlarınızı İstirham Ediyorum.

Sağlıcakla

 

[Necdet]

Merhaba,

Yeni Tarih Zamanı Geldiğinde Yeni Rakam 2 Olacak bir Kod istirham ediyorum. Yalnız Yeni Rakam 1 - 2 - 3 - 4'e kadar artmalı 5 olmayacak

Yeni tarih nasıl geliyor? Yavaş yavaş, yoksa hızlı hızlı mı?
Geliş şeklini belirledikten sonra eski tarih yeni tarihe eriştiğinde mi yeni rakam artacak? Yeni rakam 5 e kadar artacak (yani 5 olmayacak), peki sıfırlanacak mı?

Yeni rakam arttığında Eski rakam ne olacak?

Gördüğünüz gibi kod yazmaya başlayınca bütün bunları düşünmek gerekiyor, oysa sizin sorunuz pek açık değil. Bu nedenle bu soruya 2 saattir kimse yanıt vermemiş.

Saygılar.

 

[boztepelibey]

Necdet HOCAM;
Evvela Hayırlı Akşamlarımı sunuyorum.
Eski Tarih ve yeni Tarih 1 yıl sabit kalacak.sadece aralarında 1 yıl olacak.
Örneğin : Eski Tarih 01/01/2008 ise yeni tarih otomotik olarak 01/01/2009 olmalı.
Eski Tarih 01/01/2008 iken Eski Rakamımız 1 ise yeni tarih 01/01/2009 a eriştiği gün takvim olarak Yeni rakam otomotik olarak 2 olmalı.
Eski Tarih bir sene sonunda 01/01/2009 olurken yeni Tarih 01/01/2010 Olacak.
Rakam 4 e geldiği zaman tekrar 1 den başlayacak yani 1 ile 4 arasında (4 dahil) bir düngü oluşacak.

Allah Sizden Razı Olsun İnşallah.

Kalın Sağlıcakla

 

[boztepelibey]

Selamün Aleyküm;
Necdet HOCAM da artık bıraktı bizi. Kısmetimizde yokmuş demek. Yinede emeği geçenlerden Allah Razı olsun

 

[Orion1]

If DateSerial(Year(Range("B3").Value) + 1, Month(Range("B3").Value), _
Day(Range("B3").Value)) >= Range("C3").Value Then
    If Range("E3").Value >= 4 Then
        Range("E3").Value = 1
        Else
        Range("E3").Value = Range("E3").Value + 1
    End If
End If

 

[boztepelibey]

Evren GİZLEN Üstadım;

Eline ve emeğine sağlık.Hakkını helal et. Vermiş olduğunuz kodu ilgili sayfanın kod bölümüne "sayfa1" in içine yapıştırdım.Ama çalışmadı. Acaba yanlışlığı nerede yaptım ?

 

[Orion1]

Evren GİZLEN Üstadım;

Eline ve emeğine sağlık.Hakkını helal et. Vermiş olduğunuz kodu ilgili sayfanın kod bölümüne "sayfa1" in içine yapıştırdım.Ama çalışmadı. Acaba yanlışlığı nerede yaptım ?

C3 e veya B3 e veriyi nasıl giriyorsunuz?
Eğer kod ile giriyorsanız Yazılmış olan kodun hemen altına bu benim verdiğim kodları ilave edin yok eğer elle giriyorsanız.Aşağıdaki kodu çalışma sayfasının kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B3:C3]) Is Nothing Then Exit Sub
On Error Resume Next
If DateSerial(Year(Range("B3").Value) + 1, Month(Range("B3").Value), _
Day(Range("B3").Value)) >= Range("C3").Value Then
    If Range("E3").Value >= 4 Then
        Range("E3").Value = 1
        Else
        Range("E3").Value = Range("E3").Value + 1
    End If
End If
End Sub

 

[boztepelibey]

Evren Gizlen üstadım;

İkinci Kod sorunumu çözdü. Emeğine sağlık. Zahmetimiz için hakkını helal et.

Bayramınız Mübarek Olsun