Aynı veriden kaçıncı kayıt

[robot]

Herkese merhaba benim sorum kısaca şu kayıt işlemi yaptığımız sayfada kaydet butonuna tıkladıkdan sonra "B" sütunudaki verilere bakarak kaydetme işlemi sonunda mesajla bu kayıttan 3. kaydınız gibi mesaj verdirmek şimdiden teşekkürler

 

[Orion1]

Sub mukerrer()
Dim deg, sat As Long
sat = Cells(65536, "B").End(xlUp).Row + 1
deg = InputBox("Kayıt İçin Bir değer giriniz.", "MÜKERRER")
Cells(sat, "B").Value = deg
MsgBox "Bu kayıttan " & WorksheetFunction.CountIf(Range("B:B"), deg) & " Adet kayıt var"
End Sub

 

[robot]

Teşekkür Ederim Sayın Evren GİZLEN

 

[Orion1]

Teşekkür Ederim Sayın Evren GİZLEN

Rica ederim.