Vadeye göre bakiye hesaplama

[sdegirmenci]

Merhaba;
Ekteki dosyamda borç sütunu toplamını vadesi geçenler olarak almak istiyorum. Örnek dosyamda anlatmak istediğimi açıkça belirttim. Bu konuda yardımcı olabilirseniz çok sevinirim. Saygılarımla

 

[Murat OSMA]

Merhaba,

İlgili kodları bu şekilde revize edebilirsiniz..

[SIZE="2"]tutar = WorksheetFunction.SumIfs(Range("E:E"), Range("B:B"), firmaadı, Range("D:D"), "<" & CLng(CDate(VBA.Date)))
vadesigeçen = tutar[/SIZE]

 

[sdegirmenci]

Sayın Murat OSMA Hocam ilginize çok teşekkür ederim.
Kodları uyguladım, ancak istediğim sonucu alamadım. Anlatmak istediğimiz ekli dosyam üzerinde güncelledim. Vaktiniz olduğunda tekrar bakabilirseniz memnun olurum. Saygılarımla

 

[Murat OSMA]

Bu şekilde deneyiniz..

[SIZE="2"]odenen = WorksheetFunction.SumIfs(ÜS.Range("E:E"), ÜS.Range("B:B"), firmaadı, ÜS.Range("D:D"), "<" & CLng(CDate(VBA.Date)))
toplam = WorksheetFunction.SumIfs(ÜS.Range("C:C"), ÜS.Range("B:B"), firmaadı, ÜS.Range("D:D"), "<" & CLng(CDate(VBA.Date)))
vadesigeçen = toplam - odenen[/SIZE]

 

[sdegirmenci]

Sayın Murat OSMA Hocam;
İlginize çok teşekkür ederim. Kodları gerçek dosyama uyarladım. İstediğim gibi oldu. Tekrar teşekkür ederim. İşleriniz kolay gelsin. Saygılarımla

 

[Murat OSMA]

Rica ederim, iyi günler.​