Otomatik Sıra Numarası Ekleme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub YazdığınızSayıKadarOtomatikEkleme()
Dim i As Integer
On Error GoTo Son
i = InputBox("Sayı yazın", "Bir sayı yazın")
For i = 1 To i
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i
Son:
Exit Sub
End SubAçıklama
Kod, yazdığınız kadar olan sayıları aktif hücreden itibaren aşağı doğru sıralar. Bu nedenle boş bir hücre aralığında seçim yaptıktan sonra çalıştırmanız faydalı olacaktır.Faydalanılması temennisiyle