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

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" <(E-Mail Removed)> wrote in message
news:b143966d-e47b-4b3f-b435-(E-Mail Removed)...
> 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

On 21 apr., 17:19, ytayta555 <wherewindsm...@gmail.com> 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 .

On 21 apr., 17:51, "Rick Rothstein"
<rick.newsNO.S...@NO.SPAMverizon.net> 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 .