Skip to main content

AccessTr.neT


Excel Sayfasına Seçim Butonu İle İşlem

Excel Sayfasına Seçim Butonu İle İşlem

#7
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.
.zip Çalışma X3.zip (Dosya Boyutu: 190,83 KB | İndirme Sayısı: 2)
Cevapla
#8
(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]

!!!!!!!!SayfaListeleri çalışma sayfasında görünüyor !!!!!!!!!!!!!!!!!!!! (Burada da görünmemesi lazım)

[Resim: do.php?img=15649]

PDF çıktısında görünmüyor.

[Resim: do.php?img=15650]
hnakis, 15-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#9
Son mesaj ilk resimde görğnmeyen hangisi yada nedir?
Cevapla
#10
(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.
Cevapla
#11
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.
Cevapla
#12
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da