Çok koşullu Eğersay

[seddur]

Merhabalar.Aşağıda paylaştığım Ekranda görüntüsünde bulunan sayfadaki "G" sutununda bulunan NAKİT,VİSA,ODA yazan satırları ilgili tarihe göre eğersay ile saydırmak istiyorum.Tırnak işareti olanlar dahil edilmeyecek.Sonuç textboxda görünecek.Yardımcı olabilirseniz sevinirim.
Yaklaşık benzer kodu aşağıda paylaştım.
TextBox9 = WorksheetFunction.CountIfs(Sheets("Liste").Range("D"), CDate(TextBox1), Sheets("Liste").Range("G:G"), ">0")

 

[Suskun]

Burayı ">0"
bununla "<>""" değiştirin

 

[seddur]

Maalesef sonucu 1 olarak verdi
TextBox9 = WorksheetFunction.CountIfs(Sheets("Liste").Range("d:d"), CDate(TextBox1), Sheets("Liste").Range("g:g"), "<>""")

 

[Suskun]

Maalesef ne hata veriyor ?
Şöyle bir deneme yapmıştım, tırnak işareti olmayanları saydırdı.
Debug.Print WorksheetFunction.CountIfs(Range("E2:E10"), "<>""")
Tarihleri kontrol edin.

 

[seddur]

Textbox1'deki Tarihi dikkate alarak sayacak.Bütün satırları saymayacak.

 

[Suskun]

Tamam , öyle ayarlayın. Tarihler tutuyorsa saydıracak. Önce tarihsiz saydırın. sonra tarihle saydırın. Textbox tarihiniz text formatında yada mm/dd/yyyy Formatında, hücre fortmatınız gg/aa/yyyy fortmatında

 

[seddur]

Haklısınız,textbox'ı a1 hücresine atadım ve kodu aşağıdaki şekilde değiştirince oldu.
TextBox9 = WorksheetFunction.CountIfs(Sheets("Liste").Range("d:d"), Sheets("Anasayfa").Range("a1"), Sheets("Liste").Range("g:g"), "<>""")