satır numarası ile birlikte satır ekleme

[spyturk]

Örneğin alt alta 1 den 10 a kadar numaralandırılmış satır var.
1
2
3
.
.
.
10
araya bir satır eklediğimde yerine uygun sıra no verip alttaki sıra numaralarını da birer arttırması lazım. böyle bir şey yapılabilir mi?

 

[Ömer]

Merhaba,

Kodları module kopyalayın, çalışma kitabını kaydedip kapatın.

Yeniden dosyayı açtığınızda, fare sağ klik menüsüne "Yeni--->Sıra No Ekle"
seçeneğinin eklendiğini görebilirsiniz.

Satır ekleme işleminden sonra sağ klikten bu seçeneği seçerseniz istediğiniz olur.

Bu işlem, excelin seriler seçeneğinin makroya atanmış halidir.

Uygulama alanını Sira_Veri kodundan değiştirebilirsiniz. Ben numaraların A1 den başlayıp ilerlediğini düşünerek yazdım.

Sub Sira_Ver()
  
    Dim son As Long

    son = Cells(Rows.Count, "A").End(xlUp).Row
    
    If son < 2 Then Exit Sub

    Cells(son, "A").Value = son
    
    Range("A1:A" & son).DataSeries Rowcol:=xlColumns, _
        Type:=xlLinear, Date:=xlDay, Step:=1

End Sub

Sub Auto_Open()
     FareMenu
End Sub
 
Sub FareMenu()
 
    Dim cb As CommandBar, MenuObject
 
    Set cb = Application.CommandBars("Cell")
    Set MenuObject = cb.Controls.Add(Type:=msoControlButton, Temporary:=True)
 
    With MenuObject
        .OnAction = "Sira_Ver"
        .FaceId = 9
        .Caption = "Yeni--->Sıra No Ekle"
    End With
 
    Set cb = Nothing: Set MenuObject = Nothing
 
End Sub
 
Sub Auto_Close()
     Application.CommandBars("Cell").Reset
End Sub

.

 

[spyturk]

cevap için teşekkürler. dediklerini yaptım ancak olmadı. makroları da etkinleştirdim.
a1=1
a2=2
.
.
.
a10=10
yazdım ve sağ tıkla yeni sıra no ekle çıkıyor. ona tıkladım hiç bir şey yapmıyor. bir şeyleri yanlış mı yaptım acaba?

 

[Ömer]

Sırasında olmayan numara var mı? Her şey normal ise birşey yapmaz.

Örneğin;

A1=1
A2=2
daha sonra A5 e kadar boş bırakın A5 5 yazın. Sonra işlemi yapın.

.

 

[spyturk]

yanlış anlaşılmışım. benim istediğim şöyle
1 den 10 kadar alt alta numara olsun. bunların yanında da isim listeleri var 10 isim diyelim.
bunu sınıf listeleri gibi düşünebiliriz.
araya boş satır ekliyorum. diyelim ki 3 ile 4 arasına. haliyle boş bir satır ekliyor. benim istediğim boş satıra numara eklesin ve altta kalan numaraları ise 11 e kadar düzeltsin.
önce
1 ali
2 ahmet
3 mehmet
4 hüseyin
.
.
10 recep

ekledikten sonra
1 ali
2 ahmet
3 mehmet
4 hasan
5 hüseyin
.
.
11 recep

 

[Ömer]

Kodlar bu istediğinizi yapıyor.
Satır ekledikten sonra herhangi bir hücrede sağ klik yaptıktan sonra "Yeni--->Sıra No Ekle" seçerseniz bu istediğiniz olur.

 

[spyturk]

çok teşekkür ederim evet oluyormuş.