Bir Sütundaki Seçili Satırlara VBA İle Sıra Numarası Verme

Bu dosya, bir sütunda seçilen satırlara VBA makrosu ile 1'den başlayan sıra numaraları vermek için hazırlanmış bir örnektir. Numaralandırma tek tek yazmadan, seçim yapılıp makro çalıştırılarak yapılır.

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

Dosyanın içeriği​

• Sayfa1: A1:A12 aralığı numaralandırma denemesi için kullanılır.
• Sheet2: A1:C6 aralığında IMAGE fonksiyonuyla oluşturulmuş 6 hücre bulunur. Hücreler dış bağlantı içerir.
• Module1: Sıra numarasını veren makro bu modüldedir.

Kullanılan formüller​

Sheet2 sayfasındaki A1:A6 hücrelerinde IMAGE fonksiyonu kullanılmıştır. Fonksiyon, bir görseli hücre içinde gösterir ve B sütunundaki hücreye başvurur. Makronun çalışması bu formüllere bağlı değildir.

Makrolar​

• Seçili_Satırlara_Sıra_Numarası_Ver: Seçili alanın birden fazla sütun içerip içermediğini denetler. Birden fazla sütun seçilmişse "Yalnızca bir sütundaki satırları seçin." uyarısı verir ve işlemi durdurur.
• Tek sütun seçiliyse seçimdeki hücreleri sırayla dolaşır. Gizli olmayan her satıra 1'den başlayarak artan bir numara yazar.
• Gizli satırlara numara verilmez; makro bu satırlardaki hücre içeriğini ve biçimini Clear yöntemiyle temizler. Filtrelenmiş listelerde numaralar böylece görünen satırlara göre kesintisiz ilerler.
• Makro dosya silme ya da dışarıya bağlantı gibi bir işlem yapmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerinde numara verilecek satırları tek bir sütunda seçin.
3. Alt+F8 ile makro listesini açın, Seçili_Satırlara_Sıra_Numarası_Ver makrosunu seçip çalıştırın.
4. Seçili satırlar 1'den başlayarak numaralandırılır.
5. Makroyu kendi dosyanızda kullanmak için Alt+F11 ile Module1 içindeki kodu kopyalayabilirsiniz.

Seçim içinde numaralandırılmaması gereken veri bulunan gizli satırlar varsa, makro bu satırları sileceği için işlemden önce dosyanın bir kopyasını almanız önerilir.