Hücre Adresine Göre Veri Saydırma

[Feylosof]

İyi akşamlar;

Hem resim hem de dosya olarak paylaştığım ve Sayın Evren Bey'in @Orion1 hazırlamış olduğu güzel çalışmasından yararlanarak ona bir özellik daha katmak istiyorum. Ama bunu başaramadım. Şöyle ki UserForm üzerinde birçok sayfada veri arayarak listboxta hem sayfa adıyla hemde satır-sütun (adres) ve hem de aranan veri ile birlikte bulup listelemektedir. Benim çalışmamda aranacak veriler "C ve "E" sütunlarında bulunmaktadır. Benim yapmak istediğim şey ise C ve E sütunlarından alınan veri sayılarını ayrı labellerde saydırmak.
Yardımını esirgemeyecek olan excel dostlarına şimdiden teşekkür ederim.

 

[ÖmerFaruk]

Aşağıdaki düzeltmeyi kodunuzun CommandButton1 kodlarındaki ilgili kısmına uygulayabilirsin.
Kod içindeki açıklamları unutmayın.

    If Not k Is Nothing Then
        ilk_adres = k.Address
        Do
        a = a + 1
        ReDim Preserve myarr(1 To 3, 1 To a)
        myarr(1, a) = syf
        myarr(2, a) = k.Address(False, False)
        myarr(3, a) = k.Value
        '..............................
        ' ilave 1
        If k.Column = 3 Then
            sayC = sayC + 1
        Else
            sayE = sayE + 1
        End If
        '------------------------------
        Set k = Sheets(syf).Cells.FindNext(k)
        Loop While ilk_adres <> k.Address And Not k Is Nothing
    End If
    End If
Next i
    Set k = Nothing
    '.......................................................
    'düzeltme + ilave
    Label3.Caption = "C sütununda Kriterlere Uyan " & Format(sayC, "#,##0") & " Adet Veri Bulundu..!!"
    Label13.Caption = "E sütununda Kriterlere Uyan " & Format(sayE, "#,##0") & " Adet Veri Bulundu..!!"
    '.......................................................................................
    'Userformda label3 ten kopyalayarak label 13 oluşturun
   
    If a > 0 Then

 

[Feylosof]

Sayın @ÖmerFaruk
Yardımınız içim çok teşekkür ederim. İsteğimi eksiksiz karşılayan bir düzenleme oldu. Var olun.