Birden çok koşullu düşeyara

[nongeyikm]

Merhabalar,

Ekli dosyada I sütununda birden çok koşula bağlı düşeyara formülü yapmak istiyorum. Açıklamayı dosya içerisinde yaptım.

Desteklerinizi rica ederim.

Saygılar,

 

[Korhan Ayhan]

Deneyiniz.

=ÇOKEĞERMAK(Listele!AP:AP;Listele!AJ:AJ;C3;Listele!AQ:AQ;">="&G3;Listele!AQ:AQ;"<="&H3)

 

[nongeyikm]

Korhan bey günaydın,

Yaptığınız çok güzel olmuş fakat düşünce olarak hata ettim.

Tarih hücrelerindeki günü dikkate almadan "yılın ayları arasında ise" olarak formülü yapabilir misiniz?
Ayrıca, yeniliste sayfasında çıkış tarihi yoksa bugünün tarihini dikkate alsın

Sonuca ulaşamamanın nedeni:
(I7 hücresindeki kişinin giriş ve çıkış tarihi 05.12.2019-13.12.2019 olduğu için ve Listele sayfasında ücret tarihi 01.12.2019 olduğu için aralıkta yer almıyor)

Saygılarımla,

 

[Korhan Ayhan]

Deneyiniz.

DİZİ formüldür.

=MAK(EĞER(Listele!$AJ$5:$AJ$1000=C3;EĞER(METNEÇEVİR(Listele!$AQ$5:$AQ$1000;"aayyyy")>=METNEÇEVİR(G3;"aayyyy");EĞER(METNEÇEVİR(Listele!$AQ$5:$AQ$1000;"aayyyy")<=METNEÇEVİR(H3;"aayyyy");Listele!$AP$5:$AP$1000))))

 

[nongeyikm]

Korhan Bey,

Maalesef olmadı. Aslında amacım tam olarak işe giriş tarihinden itibaren çıkış tarihine kadarki son ücret bilgisini almak. Çıkış tarihi yok ise bu güne en yakın tarihteki ücretini almak

 

[Korhan Ayhan]

Dosyanızı ekte paylaşıyorum. İnceleyin olmayan yeri varsa revize ederiz.

 

[nongeyikm]

Korhan Bey,

Denedim maalesef yine olmadı. ayrıca bu formül ile 5600 kayıt içinden bulduğu için sistemde aşırı kasma var. 20 dakikadır diğer makro/kodun bitirmesini bekliyorum. Ayrıca çıkış tarihi olmayanlara da hiç bir değer getirmiyor

 

[Korhan Ayhan]

Formülün içinde ay-yıl bilgisini alarak işlem yapmak yerine YARDIMCI sütun kullanırsak daha efektif sonuç alabilirsiniz. Formül kullanılacağı için makronuzun yavaş çalışması normaldir.

Makroyu hızlandırmak için mevcut makrolarınızı aşağıdaki kurguya göre düzenlemeniz gerekir. Bu kurguyla bir nebze olsun makrolarınız daha hızlı sonuç verecektir.

Option Explicit

Sub Test()
    Dim Old_Calculation_Mode As Integer
    
    With Application
         Old_Calculation_Mode = .Calculation
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
        
    Rem Makro Kodlarınız...
    Rem Makro Kodlarınız...
    Rem Makro Kodlarınız...
    Rem Makro Kodlarınız...
    Rem Makro Kodlarınız...
    
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = Old_Calculation_Mode
    End With
End Sub

 

[nongeyikm]

Bu konuda bana destek olurmusunuz

 

[Korhan Ayhan]

#6 nolu mesajımdaki dosyayı revize ettim. İnceleyiniz.