kenarlık koy makrosunda aralık seçme

[ismailozkan4224]

değerli arkadaşlar aşağıdaki makro ile veri aktarımı yaptıktan sonra tabloya kenarlık koyabiliyorum. ancak tek tek hücreleri seçerek koyuyor. bu da zaman alıyor. tablo aralığını seçebilmem için makroda nasıl bir revizyon gerekli. yapacağım işlem A4 ile A sütunundaki son dolu satır ile cv sütunu arasındaki tabloya kenarlık yapmak.cv sütunu boş olabiliyor. ama A sütunu mutlaka dolu onun için

Sub KENARLIKKOY()
For i = 4 To Cells(Rows.Count, "A").End(3).Row 'Step 2 'diğer sayfalardaki dolu olan ac sütununu sayıyor
son = Cells(Rows.Count, "A").End(3).Row
For k = 1 To 100
Cells(i, k).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
End Sub

 

[Orion1]

Makro kaydet yöntemini kullanarak kodları elde edebilirsiniz.

 

[YUSUF44]

Oradaki döngü ne işe yarıyor anlamadım.
Selection olan yerleri

Range("A4:CV"&son)

Olarak değiştirirseniz o aralığı biçimlendirir. Tabi bu işlemi Ford next döngüsü dışında yapmalısınız. İçinde yaparsanız her döngü için tekrar tekrar biçimlendirme yapar.

 

[ismailozkan4224]

Oradaki döngü ne işe yarıyor anlamadım.
Selection olan yerleri

Range("A4:CV"&son)

Olarak değiştirirseniz o aralığı biçimlendirir. Tabi bu işlemi Ford next döngüsü dışında yapmalısınız. İçinde yaparsanız her döngü için tekrar tekrar biçimlendirme yapar.

teşekkür ederim yusuf bey. harika çalışıyor