Cell bordering
Hi All,
I have a range (A22:A95) which has a left and right cell border. The right cell border gets changed by other macros. What im trying to do, is set the right border the same as left border for each cell in the selection. Below is the code i currently have: --------------------------------------------------------- Dim c As Range For Each c In Selection With c.Borders(xlEdgeLeft) CellThickness = c.Borders.Weight CellColorIndex = c.Borders.ColorIndex End With With c.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = CellThickness .ColorIndex = CellColorIndex End With Next c ------------------------------------------ This code changes the right border but not to the same as the left. I.e. it puts the line as dotted, and if the left side of the cell has a border, and if the left side is blank, it puts in a think line on the right side of the cell. Can anyone please asist. Cheers. Al. |
Cell bordering
See if it works correctly this way:
Dim c As Range For Each c In Selection With c.Borders(xlEdgeLeft) CellThickness = .Weight CellColorIndex = .ColorIndex End With With c.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = CellThickness .ColorIndex = CellColorIndex End With Next c On Tue, 12 Oct 2004 17:03:03 -0700, "Albert Jameson" wrote: Hi All, I have a range (A22:A95) which has a left and right cell border. The right cell border gets changed by other macros. What im trying to do, is set the right border the same as left border for each cell in the selection. Below is the code i currently have: --------------------------------------------------------- Dim c As Range For Each c In Selection With c.Borders(xlEdgeLeft) CellThickness = c.Borders.Weight CellColorIndex = c.Borders.ColorIndex End With With c.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = CellThickness .ColorIndex = CellColorIndex End With Next c ------------------------------------------ This code changes the right border but not to the same as the left. I.e. it puts the line as dotted, and if the left side of the cell has a border, and if the left side is blank, it puts in a think line on the right side of the cell. Can anyone please asist. Cheers. Al. |
Cell bordering
Thanks Myrna,
Didn't really register that i was referencing the cell twice. Al. "Myrna Larson" wrote: See if it works correctly this way: Dim c As Range For Each c In Selection With c.Borders(xlEdgeLeft) CellThickness = .Weight CellColorIndex = .ColorIndex End With With c.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = CellThickness .ColorIndex = CellColorIndex End With Next c On Tue, 12 Oct 2004 17:03:03 -0700, "Albert Jameson" wrote: Hi All, I have a range (A22:A95) which has a left and right cell border. The right cell border gets changed by other macros. What im trying to do, is set the right border the same as left border for each cell in the selection. Below is the code i currently have: --------------------------------------------------------- Dim c As Range For Each c In Selection With c.Borders(xlEdgeLeft) CellThickness = c.Borders.Weight CellColorIndex = c.Borders.ColorIndex End With With c.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = CellThickness .ColorIndex = CellColorIndex End With Next c ------------------------------------------ This code changes the right border but not to the same as the left. I.e. it puts the line as dotted, and if the left side of the cell has a border, and if the left side is blank, it puts in a think line on the right side of the cell. Can anyone please asist. Cheers. Al. |
Cell bordering
Actually you were defeating the purpose of the
With c.Borders(xlEdgeLeft) and looking at the properties of the entire borders collection. It could be that (I haven't checked), since the borders aren't all the same, the property is returning Null. On Tue, 12 Oct 2004 18:09:06 -0700, "Albert Jameson" wrote: Thanks Myrna, Didn't really register that i was referencing the cell twice. Al. "Myrna Larson" wrote: See if it works correctly this way: Dim c As Range For Each c In Selection With c.Borders(xlEdgeLeft) CellThickness = .Weight CellColorIndex = .ColorIndex End With With c.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = CellThickness .ColorIndex = CellColorIndex End With Next c On Tue, 12 Oct 2004 17:03:03 -0700, "Albert Jameson" wrote: Hi All, I have a range (A22:A95) which has a left and right cell border. The right cell border gets changed by other macros. What im trying to do, is set the right border the same as left border for each cell in the selection. Below is the code i currently have: --------------------------------------------------------- Dim c As Range For Each c In Selection With c.Borders(xlEdgeLeft) CellThickness = c.Borders.Weight CellColorIndex = c.Borders.ColorIndex End With With c.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = CellThickness .ColorIndex = CellColorIndex End With Next c ------------------------------------------ This code changes the right border but not to the same as the left. I.e. it puts the line as dotted, and if the left side of the cell has a border, and if the left side is blank, it puts in a think line on the right side of the cell. Can anyone please asist. Cheers. Al. |
All times are GMT +1. The time now is 03:30 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com