Makro ile Otomatik Sıra Numarası Ekleme

Bu dosya, seçili hücreden başlayarak alt alta 1'den istenen sayıya kadar sıra numarası yazan bir VBA makrosu içerir. Numaralar formülle değil makroyla yazıldığı için hücrelere sabit değer olarak girilir.

Dosyanın içeriği​

• Sayfa1: A3, A4 ve A5 hücrelerinde 1, 2, 3 değerleri örnek olarak yer alır. Sayfada formül, tablo veya grafik bulunmaz.
• Module1: Sıra numarasını yazan makro kodu bu modüldedir.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosya .xlsm uzantılıdır.

• YazdığınızSayıKadarOtomatikEkleme: Çalıştığında "Bir sayı yazın" başlıklı bir InputBox açar. Girilen sayı okunur ve 1'den bu sayıya kadar olan değerler, aktif hücreden başlayarak her seferinde bir alt hücreye geçilerek yazılır. Örneğin 5 girilirse aktif hücre ve altındaki dört hücreye 1'den 5'e kadar numara yazılır.
• Kodda On Error GoTo Son ifadesi bulunur. Sayı yerine geçersiz bir değer girilirse veya pencere iptal edilirse makro hata mesajı vermeden sonlanır.
• Makro dosya silme, dışarıya bağlantı gibi işlemler yapmaz; yalnızca hücrelere değer yazar.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Numaralandırmaya başlamak istediğiniz hücreyi seçin.
3. Alt+F8 tuşlarıyla makro listesini açın, makroyu seçip Çalıştır düğmesine tıklayın.
4. Açılan kutuya kaç numara yazılacağını girin ve onaylayın.
5. Numaralar seçili hücreden itibaren alt alta yazılır.

Makroyu kendi dosyanızda kullanmak için VBA düzenleyicisinde (Alt+F11) Module1 içindeki kod kopyalanıp çalışma kitabınıza eklenebilir. Mevcut verilerin üzerine yazılacağı için başlangıç hücresi boş bir alana seçilmelidir.