Veri Öbeklerini Çerçeve İçine Almak

[baydeniro]

Merhaba Arkadaşlar

Excel sayfasında bulunan ve her seferinde Satır sayıları değişkenlik gösteren veri tablolarını kod ile çerçeve içine almak mümkün mü ?
Örnek dosya : https://yadi.sk/i/cSy1cfuRHRZ87A

 

[Korhan Ayhan]

Deneyiniz.

Sub Kenarlik_Ekle()
    Application.ScreenUpdating = False
    
    With Columns("B:F")
        For X = 5 To 12
            .Borders(X).LineStyle = 0
        Next
        With .SpecialCells(xlCellTypeConstants, 23)
            For X = 7 To 10
                .Borders(X).LineStyle = 1
                .Borders(X).Weight = xlMedium
            Next
        End With
    End With
    
    Application.ScreenUpdating = True
    MsgBox "Kenarlık eklenmiştir.", vbInformation
End Sub

 

[veyselemre]

Sub Kenarlik_Ekle()
    With Columns("B:F")
        .Borders().LineStyle = 0
        .SpecialCells(xlCellTypeConstants, 23).BorderAround LineStyle:=1, Weight:=xlMedium
    End With
    MsgBox "Kenarlık eklenmiştir.", vbInformation
End Sub

 

[baydeniro]

Sayın Korhan Ayhan üstadım çok çok teşekkür ediyorum, harika bir kod. Sağlıcakla kalın

 

[baydeniro]

Sayın veyselemre üstadım çok çok teşekkür ediyorum, müthiş bir kod. Sağlıcakla kalın