Borders to every 8-th row
 

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

Borders to every 8-th row
 

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

--
Rick (MVP - Excel)



"ytayta555" wrote in message
...
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

Borders to every 8-th row
 

On 21 apr., 17:19, ytayta555 wrote:
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 .

Borders to every 8-th row
 

On 21 apr., 17:51, "Rick Rothstein"
wrote:
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 .