mükerrer sayma makrosu

[gertt]

Merhaba!

A4 ile A18 arasındaki veri A1 ise A20 hücresine tekrar sayısı,
F4 ile F18 arasındaki veri B1 ise G20 hücresine tekrar sayısı,
G4 ile G18 arasındaki veri A1 ise G20 hücresine tekrar sayısını verecek (formül değil) MAKRO nasıl yazılır?

 

[N.Ziya Hiçdurmaz]

yanıt

Sub test()
Dim sat As Byte
[a20] = ""
For sat = 4 To 18
    If Cells(sat, "a") = [a1] Then
        [a20] = [a20] + 1
    End If
Next
End Sub

 

[gertt]

Sayın N.Ziya Bey,
ilginiz için teşekkür ederim.Satırdaki değil sütundaki mükerrer veriyi sayıyor.Örnek dosyayı gönderiyorum.Diğer bölümler için de yardım ederseniz memnun olurum.Teşekkürler.

 

[gertt]

Yardımcı olabilecek olan var mı?

 

[gertt]

Soruna çözüm bulabilecek bir arkadaş var mı?