Help! 2 consecutive columns insert right border vba

[jcbv3]

I need help guys. Im trying to code a macro whwre in i have about 20 columns and it would check 2 consecutive values below 50 then insert right medium thickness border all the way down. How do i go about this?

Thanks!

 

[tonyyy]

...check 2 consecutive values below 50...

Assuming you mean 2 consecutive values within a particular column, you might consider...

Sub AddBorders()
Dim LastRow As Long, i As Long
Dim r As Range
For i = 1 To 20 'Change to match your number of columns
    LastRow = Cells(Rows.Count, i).End(xlUp).Row
    For Each r In Range(Cells(1, i), Cells(LastRow, i))
        If r.Value < 50 And r.Offset(1, 0).Value < 50 Then
            With Range(Cells(r.Row, i), Cells(LastRow, i)).Borders(xlEdgeRight)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlMedium
            End With
        End If
    Next r
Next i
End Sub

Cheers,

tonyyy

 

[jcbv3]

Thanks man! i have modified it a bit though

Sub test2()'''version2


Dim LastRow, i As Long
Dim r As Range


For i = 1 To 32
LastRow = Cells(Rows.Count, i).End(xlUp).Row


For Each r In Range(Cells(8, i), Cells(8, i))


        If r.Value < 79.5 And r.Offset(0, 1).Value < 79.5 And r.Offset(0, 2).Value < 79.5 Then
        Range(Cells(r.Offset(2, 0).Row, i + 2), Cells(LastRow, i + 2)).Select
                With Selection
                .Font.FontStyle = "Bold"
                .Font.Color = rgbWhite
                .Interior.Color = rgbRed
                 Call Macro2 
                End With
        End If
        
    Next r


Next i
    
End Sub

What im trying to do now instead of having a border in each interval I just want to have an outside border covering the intervals needed (in this case, the third consecutive instance wherein the value is <79.5 and ends when an interval is > 79.5.

For reference: it should look like the first table instead of the table below it.
the second table is the product of my code now



thanks for all the help guys!