CountIfs ile aynı sütunda birden çok koşul

[Tarikkk_]

Merhabalar Aşağıdaki gibi bir makrom var ÖDEME-TAHSİLAT Sayfası D sütunu cariad a eşit ve B sütunu CARİ yazıyorsa,
buna bir koşul daha eklemek istiyorum. yine aynı sütun yani B sütununa "ÜRETİCİ " Koşulunu da eklemek istiyorum
Sheets("ÖDEME-TAHSİLAT").Range("B7:B1000"), "ÜRETİCİ") bu şekilde + , gibi şeylerle altına eklemeye çalıştım olmadı . yardımlarınız için şimdiden teşekkür ederim.


Yok = WorksheetFunction.CountIfs(Sheets(""ÖDEME-TAHSİLAT"").Range("D71000"), CariAd) _
Sheets("ÖDEME-TAHSİLAT").Range("B7:B1000"), "CARİ")



If yok = 0 Then
HataMesajı ("HESABA AİT HERHANGİ BİR İŞLEM KAYDI BULUNMAMAKTADIR..!!")
Exit Sub
End If

 

[Ömer]

Merhaba,

Deneyiniz.

Set So = Sheets("ÖDEME-TAHSİLAT")
Set Wf = WorksheetFunction

yok = Wf.Sum(Wf.CountIfs(So.Range("D7:D1000"), CariAd, So.Range("B7:B1000"), Array("CARİ", "ÜRETİCİ")))

If yok = 0 Then
HataMesajı ("HESABA AİT HERHANGİ BİR İŞLEM KAYDI BULUNMAMAKTADIR..!!")
Exit Sub
End If

 

[Tarikkk_]

Merhaba,

Deneyiniz.

Set So = Sheets("ÖDEME-TAHSİLAT")
Set Wf = WorksheetFunction

yok = Wf.Sum(Wf.CountIfs(So.Range("D7:D1000"), CariAd, So.Range("B7:B1000"), Array("CARİ", "ÜRETİCİ")))

If yok = 0 Then
HataMesajı ("HESABA AİT HERHANGİ BİR İŞLEM KAYDI BULUNMAMAKTADIR..!!")
Exit Sub
End If

hocam ilginizden dolayı çok teşekkür ederim kod yazmış olduğunuz şekilde çalışıyor fakat aşağıdaki şekilde niye çalıştıramadığımı
merak ettim

normalde bu şekildede çalışması gerekmezmi burada yanlış olan şey ne acaba

yok = WorksheetFunction.CountIfs(Sheets("ÖDEME-TAHSİLAT").Range("D71000"), CariAd, _
Sheets("ÖDEME-TAHSİLAT").Range("B7:B1000"), Array("CARİ", "ÜRETİCİ")))


yada altaki değişkenleri tanımlamadığımız için olabilirmi

Set So = Sheets("ÖDEME-TAHSİLAT")
Set Wf = WorksheetFunction

 

[Ömer]

Array kullanıldığı için, WorksheetFunction.CountIfs dan önce Sum eklemesi yapmıştım.

WorksheetFunction.Sum(WorksheetFunction.CountIfs...... gibi olmalı.

 

[Tarikkk_]

Array kullanıldığı için, WorksheetFunction.CountIfs dan önce Sum eklemesi yapmıştım.

WorksheetFunction.Sum(WorksheetFunction.CountIfs...... gibi olmalı.

Hocam malesef aşağıdaki şekilde hata alıyorum bir yerde yanlış yapıyorum sanırım

    yok = WorksheetFunction.Sum(WorksheetFunction.CountIfs(Sheets("ÖDEME-TAHSİLAT").Range("C7:C1000"), CariAd, _
    Sheets("ÖDEME-TAHSİLAT").Range("B7:B1000"), Array("CARİ", "ÜRETİCİ")))

 

[Ömer]

Nedenini tam olarak anlayamadım, aşağıdaki gibi deneyin.

yok = WorksheetFunction.Sum(Application.CountIfs(Sheets("ÖDEME-TAHSİLAT").Range("D7:D1000"), cariAd, _
    Sheets("ÖDEME-TAHSİLAT").Range("B7:B1000"), Array("CARİ", "ÜRETİCİ")))

 

[Tarikkk_]

Nedenini tam olarak anlayamadım, aşağıdaki gibi deneyin.

yok = WorksheetFunction.Sum(Application.CountIfs(Sheets("ÖDEME-TAHSİLAT").Range("D7:D1000"), cariAd, _
    Sheets("ÖDEME-TAHSİLAT").Range("B7:B1000"), Array("CARİ", "ÜRETİCİ")))

hocam malesef doğru sonucu vermiyor yine aşağıdaki eski yöntemle kullanacaz sanırım

SonSatır = Sheets("ÖDEME-TAHSİLAT").Cells(Rows.Count, "C").End(3).Row

yok = yok + WorksheetFunction.CountIfs(Sheets("ÖDEME-TAHSİLAT").Range("C7:C" & SonSatır), CariAd, _
Sheets("ÖDEME-TAHSİLAT").Range("B7:B" & SonSatır), "CARİ")

yok = yok + WorksheetFunction.CountIfs(Sheets("ÖDEME-TAHSİLAT").Range("C7:C" & SonSatır), CariAd, _
Sheets("ÖDEME-TAHSİLAT").Range("B7:B" & SonSatır), "ÜRETİCİ")

 

[cicosz]

Merhaba,

Örnek veriler içeren dosyanızı paylaşabilir misiniz?

 

[Ömer]

hocam malesef doğru sonucu vermiyor yine aşağıdaki eski yöntemle kullanacaz sanırım

Deneyerek vermiştim, eki inceleyiniz.

 

[Tarikkk_]

Deneyerek vermiştim, eki inceleyiniz.

hocam çok özür dilerim ben bir yerde ufak bir yanlış yapıyormuşum gayet başarılı ve sorunsuz çalışmakta çok teşekkür ederim