Seri Numarası İşlemleri Yapma

Bu dosya, çalışma sayfasında aktif hücreden başlayarak alt alta 1'den istenen sayıya kadar seri numarası yazan bir makro içerir. Liste, sipariş, personel ya da stok kayıtlarına hızlıca sıra numarası eklemek için kullanılır.

Dosyanın içeriği​

• Sayfa1: Boş bir çalışma sayfasıdır; veri ve formül içermez. Numaralar bu sayfada seçilen hücreden itibaren yazılır.
• Module1: AddSerialNumbers adlı makroyu barındıran VBA modülüdür.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosyada tek bir makro vardır.

• AddSerialNumbers: Çalıştırıldığında "Enter Serial Numbers" başlıklı bir giriş kutusu açar ve kaç adet numara yazılacağı sorulur. Girilen sayı kadar döngü çalışır; her adımda aktif hücreye sıradaki numara (1, 2, 3...) yazılır ve seçim bir alt hücreye geçer. Giriş kutusu iptal edilirse ya da sayısal olmayan bir değer girilirse hata yakalanır ve makro herhangi bir işlem yapmadan sonlanır.
• Makro dosya silme, dış bağlantı gibi işlemler içermez; yalnızca aktif hücreden başlayarak alt hücrelere değer yazar.

Numaralar sabit değer olarak yazıldığından satır eklendiğinde ya da silindiğinde otomatik güncellenmez; liste değiştiğinde makro yeniden çalıştırılır.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Numaralandırmanın başlayacağı hücreyi seçin.
3. Alt+F8 tuşlarıyla makro listesini açın, AddSerialNumbers makrosunu seçip Çalıştır'a tıklayın.
4. Açılan kutuya yazılacak numara adedini girin ve Tamam'a basın.
5. Numaralar seçili hücreden aşağı doğru alt alta yazılır.

Makro, seçili hücrenin altındaki dolu hücrelerin üzerine de yazar; bu nedenle başlangıç hücresini seçmeden önce altındaki alanın boş olduğundan emin olun.