İki Tarih Arası Çok Şartlı Veri Toplamlarını Bulma

[yanginci34]

Merhaba arkadaşlar örnek dosyada isteğimin ayrıntısını kısaca özetlemeye çalıştım. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Korhan Ayhan]

Şartlarınızı boş bir alana yazdıktan sonra TOPLA.ÇARPIM ya da ÇOKETOPLA fonksiyonu ile sonuca rahatlıkla gidebilirsiniz.

 

[yanginci34]

Şartlarınızı boş bir alana yazdıktan sonra TOPLA.ÇARPIM ya da ÇOKETOPLA fonksiyonu ile sonuca rahatlıkla gidebilirsiniz.

Öncelikle ilginiz için çok teşekkür ederim hocam; Ancak ben bunu kod ile yapılmasını talep etmiştim mümkünse.

 

[yanginci34]

Günaydın arkadaşlar konu günceldir

 

[Korhan Ayhan]

Görmek istediğiniz sonucuda örnek dosyanıza ekleyip paylaşırmısınız.

 

[yanginci34]

Görmek istediğiniz sonucuda örnek dosyanıza ekleyip paylaşırmısınız.

Buyrun hocam.

 

[Korhan Ayhan]

Deneyiniz.

Sub Toplam_Al()
    Application.ScreenUpdating = False
    
    With Range("D6:D28")
        .Formula = "=SUMIFS(INDEX(Tablo4,,ROW()),Tablo4[Sütun1]," & Chr(10) & _
                   """>=""&IF(A$4="""",DATE(1900,1,1),A$4),Tablo4[Sütun1]," & Chr(10) & _
                   """<=""&IF(B$4="""",DATE(9999,12,31),B$4),Tablo4[Sütun3]," & Chr(10) & _
                   "IF(C$4="""",""*"",C$4),Tablo4[Sütun4],IF(D$4="""",""*"",D$4)," & Chr(10) & _
                   "Tablo4[Sütun5],IF(E$4="""",""*"",E$4))"
        .Value = .Value
    End With
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[yanginci34]

Deneyiniz.

Sub Toplam_Al()
    Application.ScreenUpdating = False
   
    With Range("D6:D28")
        .Formula = "=SUMIFS(INDEX(Tablo4,,ROW()),Tablo4[Sütun1]," & Chr(10) & _
                   """>=""&IF(A$4="""",DATE(1900,1,1),A$4),Tablo4[Sütun1]," & Chr(10) & _
                   """<=""&IF(B$4="""",DATE(9999,12,31),B$4),Tablo4[Sütun3]," & Chr(10) & _
                   "IF(C$4="""",""*"",C$4),Tablo4[Sütun4],IF(D$4="""",""*"",D$4)," & Chr(10) & _
                   "Tablo4[Sütun5],IF(E$4="""",""*"",E$4))"
        .Value = .Value
    End With
   
    Application.ScreenUpdating = True
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Hocam elinize sağlık çok teşekkür ederim tam istediğim gibi olmuş