Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Remove borders in range
Hi,
I am trying to clear any cells having borders within a range of their top and bottom borders. I have the following code: Sub TroubleTktsClear() With shtTroubleTickets.Range("B5:B6000") .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlLineStyleNone End With With shtTroubleTickets.Range("A4:B6000") .ClearContents End With End Sub The contents are clearing but the borders are not clearing. As you can see, I have tried it with xlNone and xlLineStyleNone and neither is working. I have checked enableevents is true as is screenupdating. Have I missed something? -- Thanks for your help. Karen53 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Remove borders in range
Do you mean you want to clear all horizontal borders, if so include the
following On Error Resume Next .Borders(xlInsideHorizontal).LineStyle = xlNone On Error GoTo 0 Unless you know the range will have at least two rows the line will error, hence on error resume next (similarly for inside vertical borders) xlNone and xlLineStyleNone return the same constant, -4142 ClearContents does not remove formats, use ClearFormats or Clear to remove contents and formats Regards, Peter T "Karen53" wrote in message ... Hi, I am trying to clear any cells having borders within a range of their top and bottom borders. I have the following code: Sub TroubleTktsClear() With shtTroubleTickets.Range("B5:B6000") .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlLineStyleNone End With With shtTroubleTickets.Range("A4:B6000") .ClearContents End With End Sub The contents are clearing but the borders are not clearing. As you can see, I have tried it with xlNone and xlLineStyleNone and neither is working. I have checked enableevents is true as is screenupdating. Have I missed something? -- Thanks for your help. Karen53 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Remove borders in range
Thank you, Peter!
-- Thanks for your help. Karen53 "Peter T" wrote: Do you mean you want to clear all horizontal borders, if so include the following On Error Resume Next .Borders(xlInsideHorizontal).LineStyle = xlNone On Error GoTo 0 Unless you know the range will have at least two rows the line will error, hence on error resume next (similarly for inside vertical borders) xlNone and xlLineStyleNone return the same constant, -4142 ClearContents does not remove formats, use ClearFormats or Clear to remove contents and formats Regards, Peter T "Karen53" wrote in message ... Hi, I am trying to clear any cells having borders within a range of their top and bottom borders. I have the following code: Sub TroubleTktsClear() With shtTroubleTickets.Range("B5:B6000") .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlLineStyleNone End With With shtTroubleTickets.Range("A4:B6000") .ClearContents End With End Sub The contents are clearing but the borders are not clearing. As you can see, I have tried it with xlNone and xlLineStyleNone and neither is working. I have checked enableevents is true as is screenupdating. Have I missed something? -- Thanks for your help. Karen53 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Borders for range | Excel Discussion (Misc queries) | |||
Bug applying Borders to Range | Excel Programming | |||
how do you remove borders | Excel Discussion (Misc queries) | |||
How to remove borders in a range of cells? | Excel Programming | |||
Remove all borders from a range | Excel Programming |