Draw a border based on current month

**JT_2111** · 09-18-2014, 06:38 PM

I have a spread sheet with the months across the columns and data down the rows. I want to write some code within my macro to have a dashed red line drawn down the right side of all the rows of the current month. How would I do this? Thank you!

**protonLeah** · 09-18-2014, 07:19 PM

With Months in A1- L1. Select columns A - L, then
Use Conditional Formatting:

=Month(A$1)=Month(Now())

**JT_2111** · 09-19-2014, 09:49 AM

Being so new to VBA I am having some trouble with what you have said to do. I have the months in cells C5-N5 and this is what I want it to do when it finds the correct month based on today's date (sept).

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlDash
.Color = -16776961
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone

**JT_2111** · 09-19-2014, 11:06 AM

Here is a modified version of what I am working with. As you can see the red dashed line is to the right of August. I am trying to have code put into my macro that will automatically move that line to the right of September so that I don't have to manually change the cell references in the code every month.

**protonLeah** · 09-19-2014, 06:44 PM

Maybe:

Option Explicit
Private Sub Worksheet_Activate()
    Dim MonthColumn As Long, _
        LastRow As Long, _
        Temp As Long
        
        MonthColumn = Month(Now()) + 1
        LastRow = 17
    With Range(Cells(2, MonthColumn), Cells(LastRow, MonthColumn))
        .Borders(xlEdgeLeft).LineStyle = xlNone
        With .Borders(xlEdgeRight)
            .Weight = xlMedium
            .LineStyle = xlDash
            .Color = vbRed
        End With
    End With
    For Temp = 5 To 17 Step 4
        With Cells(Temp, MonthColumn).Borders(xlEdgeBottom)
            .Weight = xlMedium
            .LineStyle = xlContinuous
            .Color = vbBlack
        End With
    Next Temp
End Sub