Diagonal Border Conditional Format
 

I need to apply Diagonal Borders to cells B15:B25 in an X
configuration. Based off of the values in C15:C25. If C15:C25 are
Blank no borders, If they are not blank Borders...lol. I have no idea
what I am doing and any help would be greatly appreciated!!!

God Bless
Glenn

Diagonal Border Conditional Format
 

something like this may work for you, watch for line wrap

Sub Macro1()
Dim ws As Worksheet
Dim i As Long
Set ws = Worksheets("Sheet1")

For i = 15 To 25
With ws.Range("C" & i)
If .Value = "" Then
With .Offset(0, -1).Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Offset(0, -1).Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
.Offset(0, -1).Borders(xlEdgeLeft).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeTop).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeBottom).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeRight).LineStyle = xlNone
Else
.Offset(0, -1).Borders(xlEdgeLeft).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeTop).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeBottom).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeRight).LineStyle = xlNone
With .Offset(0, -1).Borders(xlDiagonalDown)
.LineStyle = xlNone
End With
With .Offset(0, -1).Borders(xlDiagonalUp)
.LineStyle = xlNone
End With

End If
End With
Next

End Sub


--


Gary


"QTGlennM" wrote in message
ups.com...
I need to apply Diagonal Borders to cells B15:B25 in an X
configuration. Based off of the values in C15:C25. If C15:C25 are
Blank no borders, If they are not blank Borders...lol. I have no idea
what I am doing and any help would be greatly appreciated!!!

God Bless
Glenn

Diagonal Border Conditional Format
 

On May 26, 11:24 pm, "Gary Keramidas" <GKeramidasATmsn.com wrote:
something like this may work for you, watch for line wrap

Sub Macro1()
Dim ws As Worksheet
Dim i As Long
Set ws = Worksheets("Sheet1")

For i = 15 To 25
With ws.Range("C" & i)
If .Value = "" Then
With .Offset(0, -1).Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Offset(0, -1).Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
.Offset(0, -1).Borders(xlEdgeLeft).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeTop).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeBottom).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeRight).LineStyle = xlNone
Else
.Offset(0, -1).Borders(xlEdgeLeft).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeTop).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeBottom).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeRight).LineStyle = xlNone
With .Offset(0, -1).Borders(xlDiagonalDown)
.LineStyle = xlNone
End With
With .Offset(0, -1).Borders(xlDiagonalUp)
.LineStyle = xlNone
End With

End If
End With
Next

End Sub

--

Gary

"QTGlennM" wrote in message

ups.com...

I need to apply Diagonal Borders to cells B15:B25 in an X
configuration. Based off of the values in C15:C25. If C15:C25 are
Blank no borders, If they are not blank Borders...lol. I have no idea
what I am doing and any help would be greatly appreciated!!!

God Bless
Glenn

Worked Great is there anyway I can run it when I select the sheet?

Diagonal Border Conditional Format
 

yes, in the vb editor, under microsoft excel objects, double click the correct
sheet and paste this in the sheet module. don't forget to change the sheet
references in the code. i refer to sheet1 he

Private Sub Worksheet_Activate()
Dim ws As Worksheet
Dim i As Long
Set ws = Worksheets("Sheet1")

For i = 15 To 25
With ws.Range("C" & i)
If .Value = "" Then
With .Offset(0, -1).Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Offset(0, -1).Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
.Offset(0, -1).Borders(xlEdgeLeft).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeTop).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeBottom).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeRight).LineStyle = xlNone
Else
.Offset(0, -1).Borders(xlEdgeLeft).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeTop).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeBottom).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeRight).LineStyle = xlNone
With .Offset(0, -1).Borders(xlDiagonalDown)
.LineStyle = xlNone
End With
With .Offset(0, -1).Borders(xlDiagonalUp)
.LineStyle = xlNone
End With

End If
End With
Next

End Sub


--


Gary


"QTGlennM" wrote in message
oups.com...
On May 26, 11:24 pm, "Gary Keramidas" <GKeramidasATmsn.com wrote:
something like this may work for you, watch for line wrap

Sub Macro1()
Dim ws As Worksheet
Dim i As Long
Set ws = Worksheets("Sheet1")

For i = 15 To 25
With ws.Range("C" & i)
If .Value = "" Then
With .Offset(0, -1).Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Offset(0, -1).Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
.Offset(0, -1).Borders(xlEdgeLeft).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeTop).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeBottom).LineStyle =
xlNone
.Offset(0, -1).Borders(xlEdgeRight).LineStyle =
xlNone
Else
.Offset(0, -1).Borders(xlEdgeLeft).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeTop).LineStyle = xlNone
.Offset(0, -1).Borders(xlEdgeBottom).LineStyle =
xlNone
.Offset(0, -1).Borders(xlEdgeRight).LineStyle =
xlNone
With .Offset(0, -1).Borders(xlDiagonalDown)
.LineStyle = xlNone
End With
With .Offset(0, -1).Borders(xlDiagonalUp)
.LineStyle = xlNone
End With

End If
End With
Next

End Sub

--

Gary

"QTGlennM" wrote in message

ups.com...

I need to apply Diagonal Borders to cells B15:B25 in an X
configuration. Based off of the values in C15:C25. If C15:C25 are
Blank no borders, If they are not blank Borders...lol. I have no idea
what I am doing and any help would be greatly appreciated!!!

God Bless
Glenn

Worked Great is there anyway I can run it when I select the sheet?