sıra numarası verme

[zünnun]

zamanında excel wep de dede taradından yapılan makro
başına sıra no eklene bilir mi ve sıra no 1 olunca boşluk 2 diye devam etse güzel olur eğer
sıra no/hesap kodu/tarih/açıklama/tutar şeklinde olsa ve sıra numaraları seri olarak devam etse
şimdiden tşkler

 

[Huseyinkis]

Ekteki kodları denermisiniz.

Sub ekle()
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 4 Step -1
Rows(i & ":" & i).Insert Shift:=xlDown
Next
Sıra = 0
Columns(1).Insert
For j = 3 To [B65536].End(3).Row Step 2
tutar = Cells(j, 5).Value * -1
Sıra = Sıra + 1
Cells(j, 1).Value = Sıra
Cells(j + 1, 3).Value = Cells(j, 3).Value
Cells(j + 1, 4).Value = Cells(j, 4).Value
Cells(j + 1, 5).Value = tutar
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı....", , "dEdE iyi günler diler.."
End Sub

 

[zünnun]

denedim olmadı ama ben eklediğim dosya haline getirecem ilk tabloda sıra no yoktu ona ekledim bundan sonra bu tabloya hep sıra no yazılmış şekilde eklenecek ve düzenleye basılacaktır

 

[zünnun]

peki hüseyin üstad senin yaptığın kodda a hücresinde sıra no yoktu ekle düzenleye bastığında a hücresine sıra numarsı verdi peki a hücresinde sıra no olarak versem ekle düzenleye bassam sütün açmadan sıra nosu veremez mi

 

[Huseyinkis]

Eğer A sütununu ekleyip sıra numarası vermesini sitiyorsanız yukarıdaki kodlardan

Columns(1).Insert

komutunu silmeniz yeterli olacaktır.

 

[zünnun]

söyledikleriniz yaptım ama hata verdi