Otomatik sıra numarası oluşturmak

[merrrakli]

Tablomuzun solundaki sıra numaralarını B sütununa herhangi bir veri girildiğinde yazdırmak istiyorum bunu en kısa ve mantıklı nasıl yapabiliriz?

 

[Haluk]

A3 hücresine yazıp, aşağıya doğru sürükleyin ...

=IF(B3<>"";COUNTA(B$3:B3);"")

.

 

[aspava]

=EĞER(B3="";"";MAK($A$2:A2)+1)

A3 Hücreresine yazınız.

 

[recepkull]

Bende bir alternatif yazayım
A3 hücresine yazıp aşağıda doğru kopyalayın.

=EĞER(B3="";"";SATIR()-2)

 

[Seceren]

Kitap1.xls dosyasını indir - download

Kitap1.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

Birden fazla uygulama mevcut.

 

[byfika]

Alternatif,
Sayfanın kod bölümüne alttaki kodu yazın. B3 den itibaren B sütununa veri girdikçe otomatik sıra verecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b3:b" & Rows.Count)) Is Nothing Then Exit Sub
Range("A3:A" & Rows.Count).ClearContents
With Range("A3:A" & Range("b" & Rows.Count).End(xlUp).Row)
.Formula = "=IF(b3="""", COUNTA(b$3:b3) +1,COUNTA(b$3:b3))"
.Value = .Value
End With
End Sub

 

[merrrakli]

Teşekkürler.
Verilen cevapları aşağıdaki bigi bir araya getirdim.
Ve üçüncü satır ile son iki satırı boş bıraktım ki bu durumlarda formüllerin nasıl davrandığını gösrebilmek adına....

=EĞER(B3<>"";BAĞ_DEĞ_DOLU_SAY($B$3:B3);"")

=EĞER(B3<>"";SATIRSAY($B$3:B3);"")

=EĞER(B3="";"";MAK($B$3:B3)+1)

=EĞER(B3="";"";SATIR()-2)

=EĞER(B3="";"";ALTTOPLAM(3;$B$3:B3)*1)