Borders to every 8-th row

[ytayta555]

Hi , and a good day to all programmers

I need to have a macro to put in a range ,
( for example Range A1 : E 1000 ) , to every
8-th row , borders , like this :

With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

A lot of thanks in advance

 

[Rick Rothstein]

Try this (just set the range, and frequency to your actual values)...

Sub BordersEvery8Rows()
Dim X As Long, R As Range, Freq As Long
Freq = 8
Set R = Range("A1:E30")
For X = Freq To R.Rows.Count Step 8
With R(1).Offset(X - 1).Resize(1,R.Columns.Count).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next
End Sub

 

[ytayta555]

Hi , and a good day to all programmers

Hi again . I have found myself this code from an Rick old post , work
excellent :

Sub BORDEREVERYTNHRow()

Dim RowNum As Integer
RowNum = InputBox("Ever what row would you like colored ???")
For i = 0 To 1000 Step RowNum
With ActiveSheet
..Range("A1:E1").Offset(i, 0).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
Next i

End Sub

Thanks . A good year everybody .

 

[ytayta555]

Try this (just set the range, and frequency to your actual values)...

Thank you very much , I tested it and work well too .
Have a good year .