Arkadaşlar excelde bir sütunda Sıra Numarası bilgisi var. (1 2 3 4...... şeklinde) Ben satırlar arasına yeni bir satır eklediğimde veya varolan satırı sildiğimde sıra numarası otomatik olarak düzenlensin istiyorum. Bu konuyla ilgili fikir verebilir misiniz ?
Excelde otomatik numaralandırma yapma
- Konbuyu başlatan prentice
- Başlangıç tarihi
Laserjet28
Site Gezgini
- Mesajlar
- 30
Hocam Listenin B1 hücresinden başladığını varsayıyorum.
A1 ' e = EĞER(Boşluksay(B1)=0;1;"")
A2 'e = EĞER(Boşluksay(B2)=0;A1+1;"") ve bunu aşağı doğru sürükle.
A1 ' e = EĞER(Boşluksay(B1)=0;1;"")
A2 'e = EĞER(Boşluksay(B2)=0;A1+1;"") ve bunu aşağı doğru sürükle.
- Mesajlar
- 1,577
prentice' Alıntı:
A1>E = EĞER(BOŞLUKSAY(B1)=0;SATIR();"")
Doldurma kulpuyla aşağıya kadar sürükle bırak.
satır silinse bile satır numaraları yeniden sıralanacaktır. Eğer satır A3 gibi bir hücrede başlayıp sıra no verecekseniz.
A3> e = EĞER(BOŞLUKSAY(B3)=0;SATIR()-2;"") şeklinde düzenleyip doldurma kulpuyla aşağıya kadar dolduruyoruz.
Laserjet28
Site Gezgini
- Mesajlar
- 30
Eklediğiniz satıra da formülü kopyalamanız gerek hocam.
- Mesajlar
- 1,577
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim SatirSay As Long
Dim Satir As Long
Dim Sayac As Long
Sayac = 1 'ilk verilecek sayı.başlangıç sayısı
If Target.Column = 2 Then
SatirSay = WorksheetFunction.CountA(Range("B1:B5000"))
For Satir = 2 To SatirSay 'kaçıncı satırdan başlayayım
Cells(Satir, 1) = Sayac 'sütun numarası
Sayac = Sayac + 1 ' kaçar kaçar üstüne koysun
Next Satir
End If
End Sub
- Mesajlar
- 712
Yakalamışken sorayım ad bir sutünde, soyad 1 sutunde, ben ikisini bir arada tek sutunde istiyorum.Var mı bir yolu acaba ?
- Mesajlar
- 712
teşekkürler, çalıştı
