Makro ile tutarı gün sayısına göre aylara dağıtma hk.

[hüseyintok]

Merhaba ekte bulunan örnek tablom da hesaplamayı formülle elle manuel yapabiliyorum ama makro ile yapmak istiyorum. tarihler ve tutarlar değiştiğinde tarih alanını silip yeniden güncel dağılımını yapmasını istiyorum. yardımcı olabilirseniz sevinirim.
Teşekkürler şimdiden.

 

[ÖmerBey]

Merhaba,
Alternatif olarak formülle yapmak isterseniz L5 hücresine aşağıdaki formülü uygulayıp sağa ve aşağı çekerek çoğaltınız.

=EĞER(VE(SERİAY(L$4;0)>=$F5;L$4<=$G5);TOPLA.ÇARPIM((L$4+SATIR(DOLAYLI("1:"&GÜN(SERİAY(L$4;0))))-1>=$F5)*(L$4+SATIR(DOLAYLI("1:"&GÜN(SERİAY(L$4;0))))-1<=$G5)*$J5);"")

Makro için aşağıdaki kodları deneyiniz...

Sub kod()
s = Cells(Rows.Count, "F").End(3).Row
With Range("L4:AI" & s)
    dz = .Value
    For a = 2 To UBound(dz)
        For b = LBound(dz, 2) To UBound(dz, 2)
            say = 0
            For c = dz(1, b) To WorksheetFunction.EoMonth(dz(1, b), 0)
                If c >= Cells(a + 3, "F").Value And c <= Cells(a + 3, "G").Value Then say = say + 1
            Next
            dz(a, b) = IIf(say > 0, say * Cells(a + 3, "J").Value, "")
        Next
    Next
    .Value = dz
End With
End Sub

 

[hüseyintok]

teşekkürler hocam

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...

 

[hüseyintok]

Hocam bu macro kodu son eklediğim satırda sadece çalışsın koşulu verilebilir mi?