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.
Excel Sayfasına Seçim Butonu İle İşlem
(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.
!!!!!!!!SayfaListeleri çalışma sayfasında görünüyor !!!!!!!!!!!!!!!!!!!! (Burada da görünmemesi lazım)
PDF çıktısında görünmüyor.
hnakis, 15-10-2009 tarihinden beri AccessTr.neT üyesidir.
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
hnakis, 15-10-2009 tarihinden beri AccessTr.neT üyesidir.
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.
Kısaca yanılmıyorsam specialcells(visible) kodu eklemiştim.Bu şekilde ekleyin sadece.
Yapmanız gereken tek şey
yerine alttaki gibi yapmaktı abey.
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.
Yerine alttaki gibi denersiniz öncekini kullanmazsanız.
Kod:
ws.Range(bul.Address, ws.Cells(son, bul.Column + 3)).Copy
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
Kod:
ws.Range(bul.Address).CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Konuyu Okuyanlar: 1 Ziyaretçi