Intersting a line

[JAYAREESS]

Hi,

How can I insert a line after each 8 rows in a sheet?

Thanks,
JRS

 

[NBVC]

If you don't have any other special formatting in the sheet, then you can quickly do it without macros (and assuming the line is actually a cell border).

Insert the first Line/border in the 8th row.
Select all cells above and including the 8th row.
Click the Format Painter button (looks like a paintbrush)
then select all the column headers (i.e. A,B,C...) for which you want to add the line to every 8th row.

Beware: this will also copy any other formats within those eight rows (which may be a good thing depending on why you are dividing the sheet up). Then all formats would copy down in the same fashion as the line.

Hope this helps.

 

[JAYAREESS]

could this be done in a macro?

 

[NBVC]

Yes, I am sure it could, but I not too well versed in VBA and wouldn't want to steer you in the wrong or in a complicated direction.

Note: What I showed you, though, would take less than a minute to accomplish. Why wouldn't that work for you?

I will leave the macro-writing to other MrExcel members who could easily do that for you.

 

[JAYAREESS]

thank you, this is working, but I need to insert a row also every 8 rows.

 

[NBVC]

This requires a macro, then.

I'm sure someone can write you a simple one that would do both your requests.

 

[spleve]

Sub InsertRow()
    LastRow = ActiveSheet.UsedRange.Rows.Count
    
    For i = 8 To LastRow Step 8
        Rows(i + Round(i / 8, 0) - 1).EntireRow.Insert
        Rows(i + Round(i / 8, 0) - 1).Borders(xlEdgeBottom).LineStyle = xlContinuous
    Next i
End Sub

 

[JAYAREESS]

THANK YOU VERY MUCH
JRS