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

[himmgarip]

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:

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

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

HTML:

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

 

[MYAZICI]

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

 

[himmgarip]

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

Aynısını denedim hata aldım. Döngüdeki harfi Borders(N) yanlış yazıyormuşum Teşekkürler.