YasarPiskin

Yıllık Forum Üyesi
Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
Türkçe
B5 Satırından başlamak üzere her 45 satırda satırlar çoğaldıkça sayfa sonuna kendiliğinden örnekteki gibi çift çizgi eklemek mümkün ise yardımlarınızı talep ediyorum.
 

Ekli dosyalar

Son düzenleme:
Dosyayı inceledim fakat Paylaştığım kodu dosyanızda kullanmanız imkansız. Sayfada onlarca sheet change olayı bulunuyor, bunların içinde tüm alanın çerçevesini kaldırma olayı da var. Paylaştığım kod ile koşullu eklenen kenarlıklarda bu olaydan dolayı sürekli sıfırlanacaktır.
 
Sayfanızdaki koda göre bir revize yaptım. Kontrol ettim herhangi bir sorun gözükmüyor. # işaretli iki alan var, bunları yeni ekledim. Aşağıdaki tüm kodu kopyalayıp sayfa kod alanına yapıştırın. eski Change kodunu silmeyi unutmayın. Herhangi bir hata olup olmadığı ile alakalı geri dönüş yaparsınız.

VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(88 satır)
 
Üst