Sıra no otomatik olarak artsın istiyorum

[Ahmet Sami]

Arkadaşlar, sizden istediğim yardım; eklemiş olduğum dosyada bulunan sayfada D5 teki veri değiştikçe D4 te bulunun rakamın (sayının) otomatik olarak artmasını istiyorum.
Örnek: METESAN yazdım 1 olacak Başka bir firma adı yazınca 2 olacak ve bunu otomatik olarak yapacak binlerce veri olabilir. Hatta aynı isimden onlarca Şirket adı olabilir yine de artmaya devam edecek
Yardımlarınız için şimdiden teşekkür ederim.

 

[EmrExcel16]

Merhaba sayfanın kod bölümüne ekleyerek deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D5]) Is Nothing Then Exit Sub
    [D4] = [D4] + 1
End Sub

 

[Ahmet Sami]

Çok teşekkür ederim. Sağolun. Yalnız bir yeri atladım galiba ComboBox ile yapınca olmuyor. Size zahmet olmazsa tekrar bakarmısınız.

 

[EmrExcel16]

Rica ederim , iyi çalışmalar.

 

[Ahmet Sami]

Çok teşekkür ederim. Sağolun. Yalnız bir yeri atladım galiba ComboBox ile yapınca olmuyor. Size zahmet olmazsa tekrar bakarmısınız.

 

[EmrExcel16]

Ozaman aşağıdaki kodu ekleyin..

Private Sub ComboBox1_Change()
    [D4] = [D4] + 1
End Sub

 

[Ahmet Sami]

Teşekkür ederim

 

[EmrExcel16]

Rica ederim tekrardan , iyi çalışmalar.