Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Borders | Excel Discussion (Misc queries) | |||
Borders | Excel Programming | |||
borders | Excel Discussion (Misc queries) | |||
Borders | Excel Programming | |||
Help with borders | Excel Programming |