Cell Borders

[CA_ME]

So I have the following code written. What kind of For statement can be written to make this work for a cell range. Eventually the code will make each cell a different color border. I also want it to skip over empty cells.

If Application.WorksheetFunction.IsText(Range("C5")) Then
   Range("C5:E5").Select
   Selection.Borders(xlDiagonalDown).LineStyle = xlNone
   Selection.Borders(xlDiagonalUp).LineStyle = xlNone
   With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = 6
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = 6
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = 6
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = 6
    End With
    
End If

[rylo]

Hi

Can you please review the forum rules about wrapping your code. I've edited your post for you this time.

See if this gets you started. You don't say how you intend to change the color for each iteration.

Sub bbb()
  For i = 5 To Cells(Rows.Count, "C").End(xlUp).Row
    If Application.WorksheetFunction.IsText(Cells(i, "C")) Then
      With Cells(i, "C").Resize(1, 3)
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        With .Borders(xlEdgeLeft)
          .LineStyle = xlContinuous
          .Weight = xlThick
          .ColorIndex = 6
        End With
        With .Borders(xlEdgeTop)
          .LineStyle = xlContinuous
          .Weight = xlThick
          .ColorIndex = 6
        End With
        With .Borders(xlEdgeBottom)
          .LineStyle = xlContinuous
          .Weight = xlThick
          .ColorIndex = 6
        End With
        With .Borders(xlEdgeRight)
          .LineStyle = xlContinuous
          .Weight = xlThick
          .ColorIndex = 6
        End With
      End With
    End If
  Next i

End Sub

rylo

[mehdoush]

hello

what if we didn't know the number of rows ?

could you plz tell me how to modifiy this code to make it work with n rows

regards

[mudraker]

When using loops you must have some method of determing when to stop the loop.

In Rylo's code it loops from row 5 to the last row that has an entry in column C

i.e. if the last entry in column c is row 100 then it will loop rows 5 to 100

For i = 5 To Cells(Rows.Count, "C").End(xlUp).Row