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 here:
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" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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" <glenn.m.dav...@gmail.com> wrote in message
>>
>> news:(E-Mail Removed)...
>>
>> >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?
>
|
Similar Threads
