+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Sayfasına Seçim Butonu İle İşlem (/konu-excel-sayfasina-secim-butonu-ile-islem.html)
RE: Excel Sayfasına Seçim Butonu İle İşlem - feraz - 12/12/2023
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: Excel Sayfasına Seçim Butonu İle İşlem - hnakis - 12/12/2023
(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.
RE: Excel Sayfasına Seçim Butonu İle İşlem - feraz - 12/12/2023
Son mesaj ilk resimde görğnmeyen hangisi yada nedir?
RE: Excel Sayfasına Seçim Butonu İle İşlem - hnakis - 12/12/2023
(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
RE: Excel Sayfasına Seçim Butonu İle İşlem - feraz - 12/12/2023
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.
RE: Excel Sayfasına Seçim Butonu İle İşlem - feraz - 12/12/2023
Yapmanız gereken tek şey
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