Sub Düğme2_Tıklat() Set s2 = Sheets("Sheet1") son2 = s2.[A65536].End(3).Row For sira = 1 To 405 Step 5 adim = sira * 5 Range("A" & sira & ":E" & adim).Select Selection.Borders(xlEdgeRight).LineStyle = xlContinuous Selection.Borders(xlEdgeRight).Weight = xlMedium Selection.Borders(xlEdgeTop).LineStyle = xlContinuous Selection.Borders(xlEdgeTop).Weight = xlMedium Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous Selection.Borders(xlEdgeBottom).Weight = xlMedium Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous Selection.Borders(xlEdgeLeft).Weight = xlMedium Next End Sub
Sub Düğme2_Tıklat() Set s2 = Sheets("Sheet1") son2 = s2.[A65536].End(3).Row For sira = 1 To 405 Step 5
adim = sira * 5 Range("A" & sira & ":E" & adim).Select Selection.Borders(xlEdgeRight).LineStyle = xlContinuous Selection.Borders(xlEdgeRight).Weight = xlMedium Selection.Borders(xlEdgeTop).LineStyle = xlContinuous Selection.Borders(xlEdgeTop).Weight = xlMedium Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous Selection.Borders(xlEdgeBottom).Weight = xlMedium Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous Selection.Borders(xlEdgeLeft).Weight = xlMedium Next End Sub
Bu komut A1: ile E5 arasını seçip ve düzenli olarak alt alta inen satırları seçip, dış kenarlık veriyor.