Tabloyu Otomatik Biçimlendirme

[serinci]

Sayın Forum Üyeleri;

Paket programımdan excele aktardığım tablonun otomatik olarak biçimlenmesini istiyorum ancak Otomatik biçimlendir seçeneğindeki seçenekler yetersiz kalmakta,

Benim istediğim biçimlendirmede her hücrenin çizgilerle belirlenmesi ve satırların rek olarak 1 satır beyaz ve bir satır color index numarası 15 olan gri renkle belirlenmesini istiyorum. Ayrıca tablodaki son 1 kolon hariç tüm yazıların 12 Punto ile değiştirlerek son sütunun aynen kalmasını istiyorum. bu konuda bana yardım edecek arkadaşlara şimdiden teşekkür ederim.

Saygılar;

Savaş SERİNCİ

Görüntü olarak ekteki dosya oluşsun istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:42e55579a0]Sub bicimlendir()
sonsat = [c65536].End(3).Row
Set r = Range("a1:k" & sonsat)
r.Borders(xlEdgeBottom).LineStyle = xlContinuous
r.Borders(xlEdgeTop).LineStyle = xlContinuous
r.Borders(xlEdgeLeft).LineStyle = xlContinuous
r.Borders(xlEdgeRight).LineStyle = xlContinuous
r.Borders(xlInsideHorizontal).LineStyle = xlContinuous
r.Borders(xlInsideVertical).LineStyle = xlContinuous
Range("a1:j" & sonsat).Font.Size = 12
For a = 2 To sonsat Step 2
Range("a" & a & ":k" & a).Interior.ColorIndex = 15
Next
End Sub
[/vb:1:42e55579a0]

 

[serinci]

Sayın Leventm;
İlginiz için teşşekür ederim.

Bu konuya ilişkin acaba fonksiyona başlangıç ve bitiş satır ve sütun değerlerini kullanıcının bir tekbox yardımıyla belirlemesi eklenebilirmi.?

Saygılar,
Savaş SERİNCİ