countif makro

[u.L.a.s]

Merhabalar

Elimde excel dosyamda A sütununda a2 den itibaren tekrarlayan verilere ait o verinin sayısını bir yandaki sürun olan B ye yazdırma için =COUNTIF($A:$A;A2) formülünü kullanabiliyorum.

bu formülü makro kod halini nasıl yapabilirim acaba bilgilerinizi rica ederim

 

[Muzaffer Ali]

Merhaba.
Şu şekilde yapabilirsiniz.

    Range("B2").Value = WorksheetFunction.CountIf(Range("A:A"), Range("A2"))

 

[u.L.a.s]

Ama bu kod sadece B2 hücresine sayı atıyor. A sütununda her satırın karşılığına sayıyı yazacak.
B3, B4, B5 diye A sütununda ne kadar veri varsa karşılığında B sütununa yazacak

 

[AdemCan]

Merhaba,
Sn. dalgalikur 'un paylaşmış olduğu kodu, döngü içinde kullanıp yapabilirsiniz.

Sub eger_say()

Range("B2:B" & Range("B65536").End(3).Row).ClearContents

For x = 2 To Range("A65536").End(3).Row

Cells(x, "B") = WorksheetFunction.CountIf(Range("A:A"), Cells(x, "A"))

Next x

End Sub

 

[Muzaffer Ali]

O zaman şunu kullanın.

Sub Test()
    Dim Say As Integer
    Dim Bak As Integer
    Say = Cells(Rows.Count, "A").End(3).Row
    For Bak = 2 To Say
        Range("B" & Bak).Value = WorksheetFunction.CountIf(Range("A:A"), Range("A" & Bak))
    Next
End Sub

 

[u.L.a.s]

Çok teşekkür ederim faye_efsane ve dalgalikur üstadlarım. emeğinize bilginize sağlık

 

[AdemCan]

Rica ederim, iyi çalışmalar.