Otomotik Sıra Numarası Verme

Merhabalar Sn. Sancarefe
Aşağıdaki kodlar ile tüm sayfalara sıra numarası verebilirsiniz.

Sayın @AhmetRasim Çok teşekkür ederim kod için. Çok faydalı bir kod paylaştınız arşivime bu kodu ekleyeceğim. Ama benim yaklaşık 10 sayfam var ama 5 veya 6 sayfada sıra numarası verme işlemini uygulamak istiyorum. Sizin kodunuzu tek buton yardimi ile misal Sayfa1,Sayfa2,sayfa3,Sayfa4,Sayfa5 diyip revize etme gibi bir imkanınız var mı. Yanı tek butonla 10 sayfam var ama 5 sayfama A2 den itibaren B2 den son dolu b satırına bakarak satır numarası vermek istiyorum. Emeğiniz için çok teşekkür ederim.

Merhabalar;
Sıra numarası vermek istediğiniz sayfaları, resimdeki şekilde sıralayınız.

-- Sayfa isimleri Örnektir.
-- Yani sıra numarası verilecek sayfalar Sol Baştan sıralı olmalıdır.

Bu işlemden sonra kod içerisindeki Sheets.Count kısmını 5 ile değiştiriniz.

Merhaba.

Şöyle birşey de yapabilirsiniz


Hariç tutmak istediğiniz sayfaları belirtirsiniz. Diğer sayfalara sıra numarası verir. Ben bu kodda AktifSayfa ve Hariç tuttuğum iki sayfa haricinde ne kadar sayfa varsa hepsini sildim.

Kendi kodlarınıza göre revize ederseniz ne kadar sayfa olursa olsun istediğiniz sayfaları numaralandırabilirsiniz.

Merhabalar
Alternatif olarak koşul içinde de sayfa isimleri kullanılabilir.

Sayın @Sancarefe
Sorunuz çözüme ulaşıldı ise konuyu çözüldü olarak işaretleyip, kilitleyelim.

Sayın @cakarem Emre Bey konuyu kilitleyebilirsiniz.
Sayın @AhmetRasim, Sayın @KarıncaZ çok teşekkür ederim . Kodlar işime yaradı.