)))

(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.

(09/02/2021, 00:44)ercansahiner61 yazdı: [quote="berduş" pid="177607" dateline="1612558063"]
Galiba her 38 satırda 1 çerçeve isteniyor

---

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

çok teşekkür ederim. yeni gördüm, denedim olmuş, ELİNİZE EMEĞİNİZE SAĞLIK.

(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.

(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.

(09/02/2021, 01:31)ercansahiner61 yazdı:

(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.

İyi geceler.Mobilden yazıyorum hata olabilir.
Range("A2:xfd" & rows.count).clear
Olarak denerseniz herşeyi siler.Tabii rangenin başına sayfa adınıda eklemek en garantilisi.

---

ShtHdf.Range("A2:xfd" & Rows.Count).Clear

Yukardaki kod herşeyi siler.