excel de satır numaralandırma..

[cihangir]

merhaba formunuza yeni katılıyorum. ve bir sorum olacaktı şimdi satırlara 1 numara yazıyorum örneğin birinci satıra 1 rakamını yazıyorum alt satıra 2 numarasını otomatik atmanın bir yöntemi varmı ? yanı satırları otomatik numaralandırma yöntemi varmı ?

 

[TRABLUS]

1 ve 2 yazdıktan sonra iki hücreyi bloklayın, blokladığınız kısmın sağ alt köşesinde mouse'u tutunca + işareti belirecek.. oradan tutarak aşağıya kadar sürükleyin.

 

[aligunes]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Bu makro ile B kolonuna yapılacak yeni eklemeler için A kolonuna yeni
'bir numara ekleyecektir.
If Target.Column <> 2 Then Exit Sub
If Target.Row = 1 Then Exit Sub
If Left(Target.Offset(0, -1), 1) = "~" Then Exit Sub
If Left(Target.Offset(0, -1), 1) = "~" Then Exit Sub
If Left(Target.Offset(0, -1), 1) = "=Row()-1" Then Exit Sub
Target.Offset(0, -1).Formula = "=Row()-1"
End Sub

 

[zemzem70]

Sağol TRABLUS. Anlatım budur..

 

[metude]

Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Excel.Range)'Bu makro ile B kolonuna yapılacak yeni eklemeler için A kolonuna yeni'bir numara ekleyecektir. If Target.Column <> 2 Then Exit Sub If Target.Row = 1 Then Exit Sub If Left(Target.Offset(0, -1), 1) = "~" Then Exit Sub If Left(Target.Offset(0, -1), 1) = "~" Then Exit Sub If Left(Target.Offset(0, -1), 1) = "=Row()-1" Then Exit Sub Target.Offset(0, -1).Formula = "=Row()-1"End Sub

Bu komutun nasıl 3. satırdan başlamasını sağlayabilirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column <> 2 Then Exit Sub
    If Target.Row < 2 Then Exit Sub
    If Target <> Empty Then Target.Offset(0, -1).Formula = "=Row()-2"
End Sub

 

[mustafy]

Merhabalar,
Makro yazmadan otomatik satır numarası veren formül varmıdır?
Satır silinse bile numaralandırma düzgün devam etmeli. Örneğin 1 den 25 e kadar satır var ve numaralı. 13, 17 ve 20. satırı siliğimizi farzedelim. Numara yine ardışık devem etmeli, silinen satırların numaraları değişmeli, numara 23 te bitmeli.

Saygılarımla,
Mustafa

 

[mustafy]

Merhabalar,
Makro yazmadan otomatik satır numarası veren formül varmıdır?
Satır silinse bile numaralandırma düzgün devam etmeli. Örneğin 1 den 25 e kadar satır var ve numaralı. 13, 17 ve 20. satırı siliğimizi farzedelim. Numara yine ardışık devem etmeli, silinen satırların numaraları değişmeli, numara 23 te bitmeli.

Saygılarımla,
Mustafa

Bununla ilgili makrosuz formül yok galiba...

 

[Korhan Ayhan]

Selamlar,

Elbette formülle çözümde bulunmaktadır. A1 hücresine aşağıdaki formülü yazın ve aşağıya doğru sürükleyin.

=SATIR()

Daha sonra aradan satır silip denemeler yapın.

 

[mustafy]

15. satırdan itibaren numaralandırısak nasıl bir formül kullanabiliriz?
15. Satıra 1, 16.satıra 2, 17. satıra 3 diye devam edecek..

 

[mancubus]

onun için de A15 hücresinden başlayarak
=SATIR()-14
veya
=ROW()-14

 

[mustafy]

Çok teşekkür ederim...

 

[uzmanamele]

15. satırdan itibaren numaralandırısak nasıl bir formül kullanabiliriz?
15. Satıra 1, 16.satıra 2, 17. satıra 3 diye devam edecek..

merhaba

alternatif formül.

=SATIRSAY($A$15:A15)