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

walabi

Altın Üye
Katılım
22 Eylül 2012
Mesajlar
626
Excel Vers. ve Dili
excel 2010

excel 2013
Altın Üyelik Bitiş Tarihi
06-08-2025
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.



Kod:
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
 

Ekli dosyalar

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
C++:
If ListView1.ListItems(i).ListSubItems(x), "OK" Then Say=Say+1
 
Üst