12/12/2023, 12:56
Excel Sayfasına Seçim Butonu İle İşlem
12/12/2023, 13:12
hnakis
(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.
12/12/2023, 14:36
feraz
Son mesaj ilk resimde görğnmeyen hangisi yada nedir?
12/12/2023, 14:50
hnakis
(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
12/12/2023, 16:02
feraz
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.
12/12/2023, 22:35
feraz
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)).CopyKod:
ws.Range(bul.Address, ws.Cells(son, bul.Column + 3)).SpecialCells(xlCellTypeVisible).CopyYada ö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)).CopyKod:
ws.Range(bul.Address).CurrentRegion.SpecialCells(xlCellTypeVisible).Copy