Toplamı en yüksek olan ödeme tarihini bulma

[kneehot]

ıyı aksamlar arkadaslar.odeme lıstemde toplamı en yuksek odeme gununu bulup bır hucreye yazmasını ve altındakı hucreyede o gunun toplam rakamını yazmasını ıstıyorum.ornek ıcındede anlattım.yardımcı olan herkese tesekkurler.

 

[fedeal]

merhaba,dosyanız ekte

Sub fdl()
k = 0
For i = 3 To Range("a65000").End(xlUp).Row
s = WorksheetFunction.SumIf(Range("b3:b65000"), Cells(i, 2), Range("a3:a65000"))
If k < s Then
k = s
Cells(3, 4).Value = Cells(i, 2)
End If
Next
Cells(4, 4).Value = k
End Sub

iyi çalışmalar.

 

[idugun]

Alternatif çalışma

Merhaba.
Formül ve Koşullu biçimlendirmeyle altenatif bir çalışma yaptım. Umarım yardımcı olmuşumdur.

 

[Ali]

ıyı aksamlar arkadaslar.odeme lıstemde toplamı en yuksek odeme gununu bulup bır hucreye yazmasını ve altındakı hucreyede o gunun toplam rakamını yazmasını ıstıyorum.ornek ıcındede anlattım.yardımcı olan herkese tesekkurler.

Bu koşulu sağlayan birden fazla tarih olabileceğini göz önüne alarak hepsini listeleyen bir örnek yaptım.

Not: C sütunu ve yeşil alandaki formüller dizi formülü olup formül çubuğunda iken direk ENTER tuşuna basılmadan CTRL+SHIFT+ENTER tuşlarına birlikte basılarak girilmelidir.

Örnek dosya ektedir.

 

[kneehot]

cok tesekkurler arkadaslar.

 

[Ömer]

Merhaba,

Tek hücre için kullanacaksanız buda alternatif olsun..

D3 hücresi,

=İNDİS(B3:B100;KAÇINCI(MAK(ETOPLA(B3:B100;B3:B100;A3:A100));ETOPLA(B3:B100;B3:B100;A3:A100);0))

D4 hücresi,

=MAK(ETOPLA(B3:B100;B3:B100;A3:A100))

İki formülde Dizi formülüdür, ctrl shift enter tuş kombinasyonu ile girişini yapınız..

.

 

[Ali]

cok tesekkurler arkadaslar.

Rica ederiz.İşinize yaramasına sevindim.

 

[hhaseken]

Bilgi pekişsin buda benden

 

[hhaseken]

Ekli Dosya ile tabi

 

[idugun]

Farklı yollar 2

Biraz güncelledim.