Soru Kenarlık Ekleme

[okan32]

Ekteki örnek dosyamda yapmak istediğimi ayrıntılı şekilde anlattım.Son dolu satır ve sütuna kadar olan hücre aralığına kadar kenarlık eklemek istiyorum. yardımlarınız için şimdiden teşekkürler.

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Sub Kenarlik_Ekle()
Dim SonSatir As Integer
Dim sut As Integer
Dim sonsut As Integer
Dim i As Integer

Cells.Borders.LineStyle = 0
SonSatir = Range("a65536").End(xlUp).Row
sonsut = 0
For i = 2 To SonSatir
    sut = Cells(i, Columns.Count).End(xlToLeft).Column
    sonsut = WorksheetFunction.Max(sut, sonsut)
Next
Range(Cells(2, "A"), Cells(SonSatir, sonsut)).Borders.LineStyle = 1 'ince çizgi eklemek için
Range(Cells(2, "A"), Cells(SonSatir, sonsut)).BorderAround _
        ColorIndex:=1, Weight:=xlThick 'Genel kalın çizgi
Range(Cells(2, "A"), Cells(2, sonsut)).BorderAround _
        ColorIndex:=1, Weight:=xlThick 'ilk satır kalın çizgi
Range(Cells(2, "A"), Cells(2, sonsut)).Font.Bold = True 'kalın yapar
End Sub

 

[okan32]

Yusuf bey çok teşekkür ederim.

 

[Haluk]

@YUSUF44 ;

Aşağıdakini kullanırsanız, daha pratik olur....

SonSut = Cells(2, Columns.Count).End(xlToLeft).Column

.

 

[YUSUF44]

@Haluk Teşekkürler.

Benim koddaki şekilde yapmamın sebebi belki bazı satırlarda standart dışı düzen varsa veri olan en son sütunu bulmak içindi.

 

[assenucler]

Sayın Üstatlar,

Öncelikle emek ve katkılarınız için teşekkür ederim. Yukarıdaki kodu kendi dosyamda kullanmak istiyorum.

Kodun A:N sütunlarını kapsaması için, nasıl bir değişiklik gerekiyor?

Teşekkürler.

Saygılar,

 

[okan32]

Bu şekilde deneyin

Sub Kenarlik_Ekle()
Dim SonSatir As Integer
SonSatir = Range("a65536").End(xlUp).Row
Range("a2:n" & SonSatir + 1).Borders.LineStyle = 1 'ince çizgi eklemek için
Range("a2:n" & SonSatir + 1).BorderAround _
        ColorIndex:=1, Weight:=xlThick 'Genel kalın çizgi
Range("a2:k2").BorderAround _
        ColorIndex:=1, Weight:=xlThick 'ilk satır kalın çizgi
        Range("A2:n2").Font.Bold = True 'kalın yapar
End Sub

 

[assenucler]

Teşekkürler okan32.