Son satıra kadar Borders kodu yazma

[hakki83]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Selamlar

Uğraş uğraş yapamadım.

A ve B sütunun son dolu satırına kadar Borders kodunu yazar mısınız lütfen?

sonsat = Cells(Rows.Count, 1).End(3).Row

Sonsatır bu, ama aşağıdakiler olmuyor bir türlü.

Range("A1:B" & Rows.Count).Borders.Color = 13948110

.Range("A1:B" & sonsat).Borders.Color = 13948110

.Range( sonsat & "A1:B").Borders.Color = 13948110

.Range( sonsat & , "A1:B").Borders.Color = 13948110

 

Hücre Biçimi ve Sayfa Yapısına Göre Raporlama

type mismatch hatası alıyorum yardımcı olabilir mi

[Ömer BARAN]

Şöyle kullanabilirsiniz.

Görüntülemek için giriş yapmanız gerekmektedir.
(10 satır)

 

[hakki83]

Değerli Ömer Baran hocam çok güzel olmuş, teşekkür ederim, emeğinize sağlık.