Dim sat As Long, i As Long, say As Long
sat = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To sat
If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, "A").Value) = 1 Then say = say + 1
Next
MsgBox say & " Kayıt Var." & vbLf & "evrengizlen@hotmailcom"
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.