Otomatik sıra numarası vermek

[k0081]

Merhaba arkadaşlar;

ekteki dosyaya A sütununa, B ye veri girerek otomatik sıra numarası nasıl verebilirim?

http://www.dosya.tc/server10/4d0wm5/Kitap1.rar.html

Yardımcı arkadaşa şimdiden Teşekkürler..

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfa ismine sağ tıklayıp Kod Görüntüle deyince çıkan sayfaya yapıştırıp deneyin :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target <> "" Then
    Target.Offset(0, -1) = Target.Row - 1
    Target.Offset(0, -1).Font.Color = vbRed
End If
End Sub

 

[k0081]

Yusuf

Hocam çok Teşekkür ederim, Tamamdır..