İstenen Hücre Değeri Sayısını Bulma

[qazxswedc321]

Herkese Merhaba,
Bir excel dosyasında A sütununa alt alta gelecek şekilde isimler (ad-soyad) yazmaktayım. Liste uzadıkça yazdığım ismin daha önce yazılıp yazılmadığını hatırlayamıyorum. Yapmak istediğim, isim daha önceden yazılı ise A sütunundaki en alttaki dolu hücresinin bir hücre altına 1 (veya kaç defa yazıldı ise), yazılı değil ise 0 yazmasını istiyorum (yazılıp yazılmadığını anlamak için).
Bunu, sürekli formül yazmak yerine makro ile yapmak istiyorum, nasıl yapabilirim?
Yardımcı olursanız sevinirim.
İyi çalışmalar

 

[Erdem Akdemir]

Merhaba,

Tag'daki kodu kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
aaa = Target.Row - 1
a = WorksheetFunction.CountIf(Range("a1:a" & Target.Row), Target.Value) - 1
Target.Offset(1, 0) = a
Application.EnableEvents = True

End Sub