Makro ile Otomatik Sıra Numarası Ekleme

Makro ile Otomatik Sıra Numarası Ekleme isimli yazımız, otomatik sıra numarası vermek için gerekli Excel VBA kodunu içerir.

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 Sub

Üstteki kod ile hazırlanmış hazır Excel Dosyasını indirmek için aşağıdaki butona tıklayabilirsiniz.

Makro ile Otomatik Sıra Numarası Ekleme İndir

Faydalı olması temennisiyle.