(09/02/2021, 01:24)feraz yazdı:

(09/02/2021, 00:44)ercansahiner61 yazdı:

(05/02/2021, 23:47)berduş yazdı: Galiba her 38 satırda 1 çerçeve isteniyor

---

Geri dönüşü bekliyorum tam olarak ne istendiğini anlamak için

ShtHdf.Range("A2").Resize(UBound(Dizi, 1), sutun).Borders.LineStyle = 1
BU kodu ekledim ancak işe yaramadı. ana listedeki veriler azalıp artabilir,  sıralama sayfasına aktarılan verilerin bulunduğu hücrelerin kenarlık çizgilerini kodla yaptırmak istiyorum. ellede hücre biçimlendirme kenarlık eklenebilir ama veriler değiştiği için zaman alabiliyor.
ilginize teşekkür ederim.

Rica ederiz,eğer 11.Mesajdakini denediyseniz çizgiler oluşuyordu.
Tabii 38 satır olayını gözden kaçırmışım.O da göngü ile hallolunabilir.Tabii sorun giderilmiş.
Kolay gelsin.

Tekrar iyi geceler,
veri bitiminde son satış boş geliyor, ve temizle makrosu yaptım çalıştırdığımda sayfalar boş olarak görünüyor. A2 Hücresinden itibaren tüm veri ve biçimlendirmeleri temizlemesi gerekiyor.