Excel VBA Tarihler ve Mevsimler

[MESUT K]

Herkese selamlar

Dosyada sorunumu dilim döndüğünce açıklamaya çalıştım.Sorunumun excel üzerinde formülle değilde tamamen kod üzerinden çalışması gerekiyor.Formül üzerinden çalışanı yaptım fakat bana tamamen kod üzerinde çalışanı gerekli.Vba da tarih konusunda kod işinde çok zayıfım.Sorunumun çözümüyle ilgili üstadlarımdan yardım istiyorum.

Saygılarımla

Link:

İndir mevsimler

Dosyayı indir mevsimler

dosya.co

 

[Hepgel]

Merhaba @MESUT K
Deneyiniz.

Alttan sayfa adına sağ tıklayın, kod görüntüleden kodu yapıştırın.

Private Sub Worksheet_Activate()
Select Case Month(Date)
    Case 1, 2, 12: [E6] = "KIŞ"
    Case 3, 4, 5: [E6] = "İLKBAHAR"
    Case 6, 7, 8: [E6] = "YAZ"
    Case 9, 10, 11: [E6] = "SONBAHAR"
End Select
End Sub

 

[MESUT K]

Kodu yapıştırdım fakat çalışmadı.Bu arada "D6" Hücresi olarak yanlış yönlendirdim kusura bakmayın

 

[Hepgel]

Tarihleri hücreden okuyacaksa yani tarihlerde değişiklikler olacaksa kodu aşağıdaki gibi değiştirin.
Tarihleri hücrelerden okumasını istiyorsanız kod aşağıdaki gibi olur.
Kodu sayfanın kod bölümüne yapıştırın, Modül'e değil.

Deneyiniz.

Private Sub Worksheet_Activate()
For s = 9 To 16 Step 2
    k = 0
    If Month(Cells(s, "C")) = 12 Then k = 1
    trh1 = DateSerial(Year(Date) - k, Month(Cells(s, "C")), Day(Cells(s, "c")))
    trh2 = DateSerial(Year(Date), Month(Cells(s + 1, "C")), Day(Cells(s1 + 1, "c")))
    If Date >= trh1 And Date <= trh2 Then [E6] = Cells(s, "D")
Next
End Sub

 

[MESUT K]

Merhaba @MESUT K
Deneyiniz.

Alttan sayfa adına sağ tıklayın, kod görüntüleden kodu yapıştırın.

Private Sub Worksheet_Activate()
Select Case Month(Date)
    Case 1, 2, 12: [E6] = "KIŞ"
    Case 3, 4, 5: [E6] = "İLKBAHAR"
    Case 6, 7, 8: [E6] = "YAZ"
    Case 9, 10, 11: [E6] = "SONBAHAR"
End Select
End Sub

Bu kod çalıştı.makro güvenliği çalışmayı engellemiş.Çok teşekkürler elinize sağlık

 

[Hepgel]

Rica Ederim, İyi Çalışmalar.