Makro ile Hızlı Seri Bir Şekilde Sıra Numarası Vermek

Bu dosya, belirlenen iki sayı arasında kalan sıra numaralarını A sütununa tek seferde yazan bir makro içerir. Numaralar elle girilmez veya sürüklenmez; ilk ve son sayı sorulduktan sonra liste otomatik oluşturulur.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A5:A8 aralığında örnek veri bulunan çalışma sayfası.
• Module1: ExcelDestek adlı makroyu barındıran VBA modülü.

Dosyada formül, grafik, tablo veya pivot tablo yoktur; işlem tamamen makro ile yapılır.

Makrolar​

ExcelDestek makrosu şu adımlarla çalışır:

1. Bir InputBox ile "İlk Sayı", ikinci InputBox ile "Son Sayı" değerini ister.
2. İlk sayı son sayıdan büyükse "İlk sayı son sayıdan büyük olamaz." uyarısını verir ve işlemi sonlandırır.
3. A1 hücresine ilk sayıyı yazar.
4. AutoFill yöntemiyle A1 hücresini, son sayı ile ilk sayı arasındaki farka göre A1'den başlayan aralığa doldurur. Doldurma türü seri (xlFillSeries) olduğundan değerler birer birer artar.
5. Kullanılan değişkenleri temizleyerek sona erer.

Örneğin ilk sayı 1, son sayı 100 girilirse A1:A100 aralığı 1'den 100'e kadar numaralanır. Makroda dosya silme veya dış bağlantı gibi zararlı bir işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 tuşlarına basarak ExcelDestek makrosunu seçin ve Çalıştır düğmesine tıklayın.
3. İlk sayı penceresine başlangıç değerini girin.
4. Son sayı penceresine bitiş değerini girin.
5. Numaralar, makronun çalıştığı etkin sayfada A1 hücresinden itibaren alt alta listelenir.

Makro numaraları A1 hücresinden başlayarak A sütununa yazar; mevcut A sütunu verisi üzerine yazılabileceği için mevcut veri bulunan sayfada çalıştırmadan önce yedek almanız önerilir. Makroyu kendi dosyanıza taşımak için VBA düzenleyicisinde Module1 modülünü dışa aktarıp içe aktarabilirsiniz.