Otomatik Sıra Numarası Vermek

Bu dosya, bir listeye makro yardımıyla sıra numarası vermeyi gösterir. Makro, sizden bir sayı ister ve seçili hücreden başlayarak 1'den bu sayıya kadar numaraları alt alta yazar.

Dosyanın içeriği​

• Sayfa1: Boş bir çalışma sayfasıdır, içinde veri ya da formül yoktur. Makro, hangi hücre seçiliyse orada çalışır.
• Module1: AddSerialNumbers adlı makroyu içerir.

Dosyada formül, tablo, grafik veya özet tablo bulunmaz; numaralandırma tamamen makro ile yapılır.

Makrolar​

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

• AddSerialNumbers: InputBox ile "Sayı yazın" başlıklı, "Seri numarası yazma" pencere başlığına sahip bir kutu açar. Girdiğiniz sayı kadar döngü çalıştırır. Her adımda aktif hücreye sayacın değerini (1, 2, 3 ...) yazar ve seçimi bir alt hücreye kaydırır. Kutuyu iptal ederseniz ya da sayı olmayan bir değer girerseniz hata yakalama devreye girer ve makro işlem yapmadan sonlanır.

Kodda dosya silme, dışarıya bağlantı gibi zararlı bir işlem yoktur. Makro yalnızca aktif hücreden aşağı doğru değer yazar. Mevcut hücrelerin üzerine yazdığını unutmayın; numaralandıracağınız alanın boş olduğundan emin olun.

Nasıl kullanılır​

1. Dosyayı açın ve istenirse makroları etkinleştirin.
2. Numaralandırmaya başlamak istediğiniz hücreyi seçin.
3. Alt+F8 tuşlarına basın, AddSerialNumbers makrosunu seçip Çalıştır'a tıklayın.
4. Açılan kutuya kaç numara yazılacağını girin ve Tamam'a basın.
5. Numaralar seçtiğiniz hücreden başlayarak aşağı doğru yazılır.

Makroyu kendi dosyanızda kullanmak için Alt+F11 ile VBA düzenleyicisini açıp Module1 içindeki kodu kendi çalışma kitabınıza kopyalayabilirsiniz.