• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Dolu aralığa kenarlık uygulama boşsa silme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
H

himmgarip

Excel Dostu
Katılım
27 Mar 2021
Mesajlar
797
Çözümler
96
Aldığı beğeni
883
Excel V
Office 2016 TR
Konu Sahibi
Merhaba,

RaporYazdır sayfasına Rapor userformunda bulunan listboxtaki veriyi "A8:J" aralığına yazdırıyorum.

Öncelikle Rapor yazdır butonuna basınca "a8:J" aralığındaki kenarlıklar ve içerik silinsin istiyorum. Daha sonra sayfaya veri yazdırıldığında yazılan veri kadar kenarlık eklemek istiyorum.

Aşağıdaki kodu buldum. Kenarlık ekliyor. Ama kenarlık silme işini beceremedim.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Desteğinizi rica ederim. Kodun tamamı aşağıdadır.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
MYAZICI' Alıntı:
LineStyle =1 kenarlık ekliyor, 1 değerini 0 yaparsanız kenarlıkları kaldırır.
sh.Range("A8:J" & sh.Cells(Rows.Count, "A").End(3).Row).Borders(N).LineStyle =0
Genişletmek için tıkla...


Aynısını denedim hata aldım. Döngüdeki harfi Borders(N) yanlış yazıyormuşum :) Teşekkürler.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst