CountIfs fonksyonunda aranan değer "" ise dikkate almasın

[tamer42]

Merhabalar,

Aşağıdaki koddaki CountIfs fonksyonunda eğer aranan değer boş ise "len(str4) = 0" bu kriteri dikkate almasın istiyorum; yani 4. kriteri yok saysın

Result = WorksheetFunction.CountIfs(Rng1, str1, Rng2, str2, Rng3, str3, Rng4, str4)

bunun için "*" olaaayını denedim ama sonuç döndürmedi, çözüm önerileriniz neler olabilir?

Sub test12()
Dim wsWins As Worksheet
Dim wsWin As Worksheet
Dim Rng1 As Range, Rng2 As Range
Dim Rng3 As Range, Rng4 As Range
Dim str1, str2, str3, str4

Set wsWin = ThisWorkbook.Sheets("Giris")
Set wsWins = ThisWorkbook.Sheets("Data")

str1 = wsWin.Range("L6").Value
str2 = wsWin.Range("L7").Value
str3 = wsWin.Range("L8").Value
str4 = wsWin.Range("L9").Value

If Len(str4)=0 Then str4 = "*"

Set Rng1 = wsWins.Range("A4")
Set Rng2 = wsWins.Range("B4")
Set Rng3 = wsWins.Range("C4")
Set Rng4 = wsWins.Range("D4")

Result = WorksheetFunction.CountIfs(Rng1, str1, Rng2, str2, Rng3, str3, Rng4, str4)

Debug.Print Result


End Sub

 

[Korhan Ayhan]

If sorgusunun yerini değiştirirseniz sorun çözülebilir.

If Len(str4) = 0 Then
    Result = WorksheetFunction.CountIfs(Rng1, str1, Rng2, str2, Rng3, str3)
Else
    Result = WorksheetFunction.CountIfs(Rng1, str1, Rng2, str2, Rng3, str3, Rng4, str4)
End If

 

[Korhan Ayhan]

Ek olarak sayfa üzerinde talebinize benzer bir başlığı paylaşıyorum. Çağrışım yapabilir.

Çoketopla ile Birden Çok Koşula Göre İşlem Yapma

Merhabalar örnek dosyamda CARİ ve YILA göre toplama işlemi yapmaktayım buna ayrıca TÜMÜ seçenekleri eklemek istiyorum. YIL TÜMÜ olduğunda her bir CARİ seçtiğimde o cariye göre tüm yıllar CARİ TÜMÜ Olduğunda her bir YIL seçtiğimde o Yıla göre tüm cariler YIL ve CARİ ayrı seçtiğimde ise...

www.excel.web.tr