Conditionally Adding Diagonal Border and Fill Color

[TBone32]

I am trying to create a printable golf scorecard. I would like to have the cells for holes where the hole handicap, row 2, are equal to or less than the players handicap, column c, to be yellow with a diagonal border, from lower left to upper right, so that the gross and net scores can be entered. This is simply for printing and no data will be directly entered. I can handle the background through conditional format but, of course, not the diagonal lines. So, if I need to do code for the diagonal border, I would prefer to handle both through code. However, my code writing is limited and it's been a while. Do any help would be appreciated. Than you for your help.

Excel 2016 (Windows) 32 bit

	B​	C​	D​	E​	F​	G​
1​	Hole​	​	1​	2​	3​	4​
2​	Handicap​	​	11​	14​	1​	2​
3​	Par​	​	4​	5​	3​	4​
4​	White Tee Yardage​	​	319​	516​	153​	322​
5​	Jeff​	0​	​	​	​	​
6​	Tim​	4​	​	​	​	​
7​	Mark​	10​	​	​	​	​
8​	Rick​	12​	​	​	​	​

Sheet: Sheet8

 

[Michael M]

Try this UNTESTED....

Sub MM1()
Dim r As Long, c As Long
For c = 3 To 20
    For r = 5 To 8
      If Cells(2, c) <= Cells(r, 2).Value Then
            With Cells(r, c).Interior
                .Color = 65535
            End With
            With Cells(r, c).Borders(xlDiagonalUp)
                .LineStyle = xlContinuous
                .Weight = xlThin
            End With
        End If
    Next r
    Next c
End Sub

 

[TBone32]

Thank you sir, just what I was looking.

 

[Michael M]

My pleasure...