Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro Removes Cell Borders
Excel 2003
This is a pretty trivial issue, but it's one of those things that is just driving me nuts. I have the following very simple macros: ********** Dim ActionCell As String Dim ColorCodeCell As String Dim ColorNumber As Integer Private Sub BuildRangeVariables() Dim RowNumber As Integer RowNumber = ActiveCell.Row ActionCell = "I" & RowNumber ColorCodeCell = "H" & RowNumber End Sub Private Sub MarkRow() BuildRangeVariables Rows(ActiveCell.Row).Select With Selection.Interior .ColorIndex = ColorNumber .Pattern = xlSolid End With End Sub Sub MarkClear() ColorNumber = 0 MarkRow Range(ColorCodeCell).Select ActiveCell.Clear Range(ActionCell).Select ActiveCell.Clear End Sub ********** Basically, I have a spreadsheet with a few thousand rows, and I use a series of simple macros to mark each row by using a fill color and adding a text values to columns H and I. The macros that add the text values are not shown here, but the value in column H is the name of a color (so that I can use the filter to see all the rows marked with the given color) and the values in column I can be "Remove," "Test," or "Update" (again, so I can filter on those values). When I have completed the action for the given row I run the MarkClear macro, which simply removes the fill color and clears the values in columns H and I. While I have omitted some macros, the routines shown above are the COMPLETE logic flow for the MarkClear routine. It all works just fine, but for one tiny irritating flaw. When I run the MarkClear macro it also removes the cell borders. Can anyone tell me why that happens? --Tom |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro Removes Cell Borders
Clear clears all formatting. Try using ClearContents
Sub MarkClear() ColorNumber = 0 MarkRow Range(ColorCodeCell).ClearContents Range(ActionCell).ClearContents End Sub -- Regards, Tom Ogilvy "Thomas M." wrote: Excel 2003 This is a pretty trivial issue, but it's one of those things that is just driving me nuts. I have the following very simple macros: ********** Dim ActionCell As String Dim ColorCodeCell As String Dim ColorNumber As Integer Private Sub BuildRangeVariables() Dim RowNumber As Integer RowNumber = ActiveCell.Row ActionCell = "I" & RowNumber ColorCodeCell = "H" & RowNumber End Sub Private Sub MarkRow() BuildRangeVariables Rows(ActiveCell.Row).Select With Selection.Interior .ColorIndex = ColorNumber .Pattern = xlSolid End With End Sub Sub MarkClear() ColorNumber = 0 MarkRow Range(ColorCodeCell).Select ActiveCell.Clear Range(ActionCell).Select ActiveCell.Clear End Sub ********** Basically, I have a spreadsheet with a few thousand rows, and I use a series of simple macros to mark each row by using a fill color and adding a text values to columns H and I. The macros that add the text values are not shown here, but the value in column H is the name of a color (so that I can use the filter to see all the rows marked with the given color) and the values in column I can be "Remove," "Test," or "Update" (again, so I can filter on those values). When I have completed the action for the given row I run the MarkClear macro, which simply removes the fill color and clears the values in columns H and I. While I have omitted some macros, the routines shown above are the COMPLETE logic flow for the MarkClear routine. It all works just fine, but for one tiny irritating flaw. When I run the MarkClear macro it also removes the cell borders. Can anyone tell me why that happens? --Tom |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro Removes Cell Borders
Thanks for the information. Unfortunately, I was unable to get this
approach to work. --Tom "Don Guillett" wrote in message ... try xlnone instead of 0 Private Sub MarkRow() Rows(ActiveCell.Row).Interior.ColorIndex = xlnone End Sub Sub MarkClear() MarkRow Range(ColorCodeCell).Clear Range(ActionCell).Clear End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Thomas M." wrote in message ... Excel 2003 This is a pretty trivial issue, but it's one of those things that is just driving me nuts. I have the following very simple macros: ********** Dim ActionCell As String Dim ColorCodeCell As String Dim ColorNumber As Integer Private Sub BuildRangeVariables() Dim RowNumber As Integer RowNumber = ActiveCell.Row ActionCell = "I" & RowNumber ColorCodeCell = "H" & RowNumber End Sub Private Sub MarkRow() BuildRangeVariables Rows(ActiveCell.Row).Select With Selection.Interior .ColorIndex = ColorNumber .Pattern = xlSolid End With End Sub Sub MarkClear() ColorNumber = 0 MarkRow Range(ColorCodeCell).Select ActiveCell.Clear Range(ActionCell).Select ActiveCell.Clear End Sub ********** Basically, I have a spreadsheet with a few thousand rows, and I use a series of simple macros to mark each row by using a fill color and adding a text values to columns H and I. The macros that add the text values are not shown here, but the value in column H is the name of a color (so that I can use the filter to see all the rows marked with the given color) and the values in column I can be "Remove," "Test," or "Update" (again, so I can filter on those values). When I have completed the action for the given row I run the MarkClear macro, which simply removes the fill color and clears the values in columns H and I. While I have omitted some macros, the routines shown above are the COMPLETE logic flow for the MarkClear routine. It all works just fine, but for one tiny irritating flaw. When I run the MarkClear macro it also removes the cell borders. Can anyone tell me why that happens? --Tom |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro Removes Cell Borders
I looked up ClearContents in the Help and it sounds like it should cure my
problem, but in fact I have been unable to get it to work. The issue is not very important, so at this point I think I'll just live with it. --Tom "Tom Ogilvy" wrote in message ... Clear clears all formatting. Try using ClearContents Sub MarkClear() ColorNumber = 0 MarkRow Range(ColorCodeCell).ClearContents Range(ActionCell).ClearContents End Sub -- Regards, Tom Ogilvy "Thomas M." wrote: Excel 2003 This is a pretty trivial issue, but it's one of those things that is just driving me nuts. I have the following very simple macros: ********** Dim ActionCell As String Dim ColorCodeCell As String Dim ColorNumber As Integer Private Sub BuildRangeVariables() Dim RowNumber As Integer RowNumber = ActiveCell.Row ActionCell = "I" & RowNumber ColorCodeCell = "H" & RowNumber End Sub Private Sub MarkRow() BuildRangeVariables Rows(ActiveCell.Row).Select With Selection.Interior .ColorIndex = ColorNumber .Pattern = xlSolid End With End Sub Sub MarkClear() ColorNumber = 0 MarkRow Range(ColorCodeCell).Select ActiveCell.Clear Range(ActionCell).Select ActiveCell.Clear End Sub ********** Basically, I have a spreadsheet with a few thousand rows, and I use a series of simple macros to mark each row by using a fill color and adding a text values to columns H and I. The macros that add the text values are not shown here, but the value in column H is the name of a color (so that I can use the filter to see all the rows marked with the given color) and the values in column I can be "Remove," "Test," or "Update" (again, so I can filter on those values). When I have completed the action for the given row I run the MarkClear macro, which simply removes the fill color and clears the values in columns H and I. While I have omitted some macros, the routines shown above are the COMPLETE logic flow for the MarkClear routine. It all works just fine, but for one tiny irritating flaw. When I run the MarkClear macro it also removes the cell borders. Can anyone tell me why that happens? --Tom |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Setting borders with a macro | Excel Discussion (Misc queries) | |||
Replace Function Removes Text Formats In Cell | Excel Discussion (Misc queries) | |||
Macro to change cell borders | Excel Programming | |||
A MACRO TO BUILD BORDERS | Excel Programming | |||
Using a macro to add borders | Excel Programming |