| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Border Problem
Thanks Jim
"Jim Cone" wrote: Sheets("Debrief Report").Activate LwriteRow = Cells(Rows.Count, 2).End(xlUp).Row LborderRow = LwriteRow + 2 With Range("A1", "F" & LborderRow) .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone .Borders(xlEdgeLeft).LineStyle = xlNone .Borders(xlEdgeTop).LineStyle = xlNone With .Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With .Borders(xlEdgeRight).LineStyle = xlNone .Borders(xlInsideVertical).LineStyle = xlNone End With -- Jim Cone Portland, Oregon USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming) "Gizmo" wrote in message Excel2003 How can I find the last used row, then select cells "A:F" & Lastrow +2 and apply bottom border. I tried this code but no go. Sheets("Debrief Report").Activate LWriteRow = Cells(65536, 2).End(xlUp).Row LBorderRow = LWriteRow + 2 Range("A:F" & LBorderRow).Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = xlAutomatic End With Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Cell border problem | Excel Discussion (Misc queries) | |||
| Saving an file with charts as a webpage - border problem | Excel Discussion (Misc queries) | |||
| bottom double border shorcut key problem | Excel Discussion (Misc queries) | |||
| Changing the border of one cell s/n change the border of adjacent | Excel Discussion (Misc queries) | |||
| Default Border Color Problem | Excel Discussion (Misc queries) | |||
Hybrid Mode
