Sutunda tekrar eden değerleri sayma

[kykbt]

Arkadaşlar Merhaba
C sutunundaki hücrelerde bulunan "KOMİSYON TUTARI" adedini öğrenmek istiyorum.
Makro kodunu bulamadım, çözemedim.

Sub Makrobulsay2()
Dim BulunanSayısı As Long
'ActiveCell.FormulaR1C1 = "=COUNTIF(C[-2],""KOMİSYON TUTARI"")"
'Hücreye yazdırmadan değeri görmek istiyorum'
BulunanSayısı = "=COUNTIF(C[-2],""KOMİSYON TUTARI"")"
End Sub

Yardımlarınıza ihtiyacım var.

 

[volki_112]

Bunu kullanin

Sub SayKomisyonTutari()

    Dim ws As Worksheet, rng As Range, cell As Range, sayac As Integer

    Set ws = ActiveSheet

    Set rng = ws.Range("C:C")

    sayac = 0

    For Each cell In rng

        If cell.Value = "KOMİSYON TUTARI" Then sayac = sayac + 1

    Next cell

    MsgBox "KOMİSYON TUTARI ifadesi " & sayac & " kez bulundu.", vbInformation, "Sonuç"

End Sub

 

[Muzaffer Ali]

Merhaba.
Alternatif.

Sub Test()
    Dim BulunanSayi As Long
    BulunanSayi = Evaluate("Countif(A:A, ""KOMİSYON TUTARI"")")
End Sub

 

[kykbt]

Hocalarım teşekkür ediyorum destekleriniz için.