Tam deneyemedim ama çalışıyor.
Olmadıysa yazın akşam bakayım.
Reçete sayfalarında w/v görüküyor onunla bence fazla uğraşmamak gerek istiyorsanız onuda yok edebiliriz.
(12/12/2023, 12:56)feraz yazdı: [ -> ]Tam deneyemedim ama çalışıyor.
Olmadıysa yazın akşam bakayım.
Reçete sayfalarında w/v görüküyor onunla bence fazla uğraşmamak gerek istiyorsanız onuda yok edebiliriz.
Reçetelerin yapıldığı sayfada görünmüyor.
![[Resim: do.php?img=15648]](https://resim.accesstr.net/do.php?img=15648)
!!!!!!!!SayfaListeleri çalışma sayfasında görünüyor !!!!!!!!!!!!!!!!!!!! (Burada da görünmemesi lazım)
![[Resim: do.php?img=15649]](https://resim.accesstr.net/do.php?img=15649)
PDF çıktısında görünmüyor.
![[Resim: do.php?img=15650]](https://resim.accesstr.net/do.php?img=15650)
Son mesaj ilk resimde görğnmeyen hangisi yada nedir?
(12/12/2023, 14:36)feraz yazdı: [ -> ]Son mesaj ilk resimde görğnmeyen hangisi yada nedir?
1. Resim ile 3. Resim doğru.
2 Resim hatalı oluyor. Sayfalistesi çalışma sayfasında listenin son sütun seçilince ilgili sayfanın garanti edilen içerik bölümü görünüyor. Hata olan yer o kısım. Reçetenin yapıldığı sayfada seçim olmadığında sanki seçim yapılmış gibi görünüyor
Anladım.Sayfaisimleri kodlarındada copy vardı sanıyorum.Ordada son eklediğim pdf copy gibi yapılması gerekiyor.Akşam bakarım yada dediğimi uygulamayı deneyebilirsiniz.
Kısaca yanılmıyorsam specialcells(visible) kodu eklemiştim.Bu şekilde ekleyin sadece.
Yapmanız gereken tek şey
Kod:
ws.Range(bul.Address, ws.Cells(son, bul.Column + 3)).Copy
yerine alttaki gibi yapmaktı abey.
Kod:
ws.Range(bul.Address, ws.Cells(son, bul.Column + 3)).SpecialCells(xlCellTypeVisible).Copy
Yada önceki kodda currentregion kullandık bundada kullanmış olalım ve son satır olayından felan kurtulmuş olunur.
Ben pek kullanmıyorı-um ama çalışıyor.
Kod:
ws.Range(bul.Address, ws.Cells(son, bul.Column + 3)).Copy
Yerine alttaki gibi denersiniz öncekini kullanmazsanız.
Kod:
ws.Range(bul.Address).CurrentRegion.SpecialCells(xlCellTypeVisible).Copy