Format Makrosu

[hbgny]

Merhaba,
Ekteki dosyadaki gibi bir tablom var. Veriler A10:AM10 hücresinden başlayarak aşağıya doğru gidiyor. Her seferinde raporu çektiğimde, örnek dosyada gönderdiğim gibi kenarlık yapmak zorunda kalıyorum. Bunu makro ile aşağıdaki dolu en son satıra kadar otomatik olarak yapması için makro yazabilme de yardımcı olabilir misiniz?

 

[Ömer BARAN]

Merhaba.
Alt taraftan ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEEyi seçin,
açılan VBA ekranında sağdaki boş alana aşağıdaki kod blokunu yapıştırıp çalıştırın.

Sub KENARLIK()
alan = "A10:" & Cells.SpecialCells(xlCellTypeLastCell).Address(0, 0)
sat = Range(alan).Rows.Count + 9: sut = Range(alan).Columns.Count
Range(alan).Borders.LineStyle = xlNone
Range(alan).Borders.LineStyle = xlContinuous
For brn = 3 To sut Step 3
    Range(Cells(10, brn), Cells(sat, brn)).Borders(xlEdgeRight).Weight = xlThick
Next
End Sub

 

[hbgny]

Merhaba,

Ömer Bey, elinize sağlık. Tam istediğim gibi olmuş.