Listview Satır ve Sütunlarda Eğersay Kullanımı / Puantaj Uygulaması

[walabi]

Merhaba ve iyi geceler.

Aşağıdaki kod içinde şunu yapmaya çalışıyorum. Listview1 üzerinde yeralan tüm satırları ve üçüncü sütündan itibaren son sütuna kadar olan listview hücrelerindeki değerleri kontrol ederek bunu eğersay ile hesaplatmaya çalışmaktayım. Ancak şu hatayı almaktayım:

" WorksheetFunction sınıfının Countif özelliği alınamıyor "

Aşağıdaki kodda nerede hata yapmaktayım ya da istediğim sonuca nasıl bir kod ile ulaşabilirim.

Koddan istediğim şu. Listview üzerinde hücrelerde OK yazan metinlerin kaçtane olduğunu bul ve bu sayıyı textboxa yaz.

Ekte örnek bir dosya mevcut. Userform2 üzerindeki listview1 için geçerli kodlar.

Private Sub CommandButton3_Click()
Set WF = WorksheetFunction
Set AWF = Application.WorksheetFunction
Dim i As Long
Dim x As Long
'Dim OK As String
Dim say As Double
Dim sonuc As Double

sonuc = Application.WorksheetFunction.CountIf(Sheets("YILLIK PUANTAJ").Range("AK:AK"), "OK")

'MsgBox sonuc

If ListView1.ListItems.Count <= 0 Then Exit Sub


'say = 1

    For i = 1 To ListView1.ListItems.Count
        For x = 3 To 5 'ListView1.ListItems(i).ListSubItems.Count
        
        'say = say + Application.CountIf(ListView1.ListItems(i).ListSubItems(x), OK)
        say = AWF.CountIf(ListView1.ListItems(i).ListSubItems(x), "OK")
            'say = say + 1
        Next x
    Next i


TextBox4.Value = say

End Sub

 

[ÖmerFaruk]

If ListView1.ListItems(i).ListSubItems(x), "OK" Then Say=Say+1

 

[walabi]

If ListView1.ListItems(i).ListSubItems(x), "OK" Then Say=Say+1

Ömer Faruk bey teşekkürler.