Kenarlık ekleme

[ASLAN7410]

Herkese hayırlı geceler.

Ekte gönderdiğim sayfama veriyi yapıştırıp butona bastığımda A sütunun en son dolu satırı ile F sütunu en son dolu satırını seçip kenarlık koymasını istiyorum.

Makro kaydet ile yaptığımda sadece yapıştırdığım bilgiler için kenarlık atıyor, sonra başka veri yapıştırdığımda tekrar bu kodu çalıştırdığımda en alttaki boş satırlara da kenarlık koyuyor.

Forumda araştırdım benim istediğim gibi bir şey bulamadım.
Yardımcı olur musunuz?

 

[vardar07]

Dosyanız içinde buton ve kodları yok.

 

[ASLAN7410]

Sayın Vardar07 ilginize çok teşekkür ediyorum.
Makro kaydet ile yaptığım için kodları eklememiştim.

 

[Ömer BARAN]

Merhaba. Umarım yanlış anlamadım.

Aşağıdaki şekilde olabilir.
-- İlk kod satırı mevcut kenarlıkları siler,
-- İkincisi ise A1'den A sütunundaki son dolu satıra kadar
A:F sütunundaki hücrelere kenarlık uygular.
.

[FONT="Arial Narrow"]Sub KENARLIK()
Cells.Borders.LineStyle = xlNone
Range("A1:F" & [A65536].End(3).Row).Borders.LineStyle = xlContinuous
End Sub[/FONT]

 

[ASLAN7410]

Sayın Ömer Bey ilginize çok teşekkür ederim, Allah razı olsun.
Gerçekten bu iş için çok çalışma yaptım ancak bir türlü başaramamıştım.

Hayırlı geceler hayırlı çalışmalar.

 

[Ömer BARAN]

Estağfurullah, kolay gelsin.