Soru Gün Ay Yıl Toplama

[sirkülasyon]

S8 : S35 arası Yıl
T8 : T35 arası Ay
U8 : U35 arası Gün

37. Satıra gün ay yıl toplamını makro ile nasıl alabilirim


DOSYA

 

[Necdet]

Merhaba,

Klasik toplama yapmadım, aşağıdaki kodları deneyiniz. Olmazsa değiştirilebilinir.

Sub HizmetTopla()

    Dim YTop    As Integer, _
        ATop    As Integer, _
        GTop    As Integer, _
        Tar     As Date
    
    YTop = Evaluate("=SUM(S8:S35)")
    ATop = Evaluate("=SUM(T8:T35)")
    GTop = Evaluate("=SUM(U8:U35)")
    
    Tar = DateSerial(YTop, ATop, GTop)
    YTop = Year(Tar) - 2000
    ATop = Month(Tar)
    GTop = Day(Tar)
    
    Range("S37") = YTop
    Range("T37") = ATop
    Range("U37") = GTop
    
End Sub

 

[sirkülasyon]

Necdet Abi
ellerine sağlık. Hakkınızı helal edin

 

[Necdet]

Necdet Abi
ellerine sağlık. Hakkınızı helal edin

Güle güle kullanınız, tarih gibi düşünüp hesapladım, umarım işinize yaramıştır.