Hücreye veri gilirken kontrol ve düzeltme(yenileme)

[netkit]

hayırlı pazarlar.
Başlık biraz karışık oldu ama tam açıklama bulabilirsem güncellerim.
Aşağıdaki şekilde liste mevcut.Mesela son satıra tekrar ALİ gitişi yapılırsa ALİ2,VELİ olursa VELİ1,AHMET olursa AHMET1 olacak. ve enson kalan numaraya göre giriş yapıldıkça enter a basınca - isim+son mumara+1 şeklinde nasıl devam edebilirim?


A B C D
İSİM GİRİŞ ÇIKIŞ FARK
ALİ
ALİ
VELİ
VELİ
ALİ1
ALİ1
AHMET
AHMET
--> ALi olursa ALİ2,VELİ olursa VELİ1,AHMET olursa AHMET1

 

[mancubus]

veri girişi yapılan sayfanın kod modülüne

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column <> 1 Then Exit Sub 'A sütununda veri girişi için örnektir.
    If Target.Row = 1 Then Exit Sub '1. satırda başlık olduğu varsayımı ile
    
    Dim SonSat As Long, Adet As Long
    SonSat = Cells(Rows.Count, "A").End(xlUp).Row 'A sütununda veri girişi için örnektir.
    
    If SonSat = 1 Then Exit Sub '1. satırda başlık olduğu varsayımı ile
    
    Adet = Application.CountIf(Range("A2:A" & SonSat), "*" & Target.Value & "*")
    Adet = Application.RoundUp(Adet / 2, 0)
    If Adet < 2 Then Exit Sub
    
    Target.Value = Target.Value & Format((Adet - 1), "@")

End Sub

 

[netkit]

Sayın mancubus;
elinize sağlık çok teşekkür ederim.

 

[mancubus]

rica ederim.
kolay gelsin.