Kenarlık Çizgileri

[ahmed_ummu]

İyi akşamlar arkadaşlar.

Aşağıdaki kod ile belirlenen satır ve hücrelerin kenralık çizgileini yapmak istiyorum. Ama resimdeki gibi kenarlık çiziyor. Yardımcı olursanız sevinirim.

Dim m As Integer
Dim SonSatir1 As Long
SonSatir1 = sh2.Cells(Rows.Count, "a").End(3).Row
For m = 1 To 4
sh2.Range("A6:d" & SonSatir1).Borders(m).LineStyle = 1
Next m

 

[ÖmerFaruk]

Yapmak istediğiniz kenarlık işlemini, Makro Kaydet yöntemiyle yaparak, hangi kenarlıklar için hangi kodu kullanmanız gerektiğini çabucak görebilirsiniz. Bir deneyin.

 

[murat_fidan]

İyi akşamlar arkadaşlar.

Aşağıdaki kod ile belirlenen satır ve hücrelerin kenralık çizgileini yapmak istiyorum. Ama resimdeki gibi kenarlık çiziyor. Yardımcı olursanız sevinirim.

Dim m As Integer
Dim SonSatir1 As Long
SonSatir1 = sh2.Cells(Rows.Count, "a").End(3).Row
For m = 1 To 4
sh2.Range("A6:d" & SonSatir1).Borders(m).LineStyle = 1
Next m

Dim m As Integer
Dim SonSatir1 As Long


SonSatir1 = Sheets("rapor").Cells(Rows.Count, "a").End(3).Row
For m = 1 To 4
Sheets("rapor").Range("A4:g" & SonSatir1).Borders(m).LineStyle = 1
Next m

 

[ahmed_ummu]

Cevaplar için teşekkürler arkadaşla, deneyeceğim.

 

[ahmed_ummu]

Çözüldü.