Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I'm still having issues with this project. The coding below will not format
to row 450, it stops at row 82. Any ideas? 'add column for Default Columns("u:u").Select Selection.Insert Shift:=xlToRight Selection.ColumnWidth = 7 Columns("u:u").Select Selection.Interior.ColorIndex = xlNone Range("u5").Select ActiveCell.FormulaR1C1 = "Default" With ActiveCell.Characters(Start:=1, Length:=7).Font ..Name = "Arial" ..FontStyle = "Bold" ..Size = 8 ..Strikethrough = False ..Superscript = False ..Subscript = False ..OutlineFont = False ..Shadow = False ..Underline = xlUnderlineStyleNone ..ColorIndex = xlAutomatic End With Range("u5").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) ..LineStyle = xlContinuous ..Weight = xlMedium ..ColorIndex = xlAutomatic End With Selection.Borders(xlEdgeTop).LineStyle = xlNone With Selection.Borders(xlEdgeBottom) ..LineStyle = xlContinuous ..Weight = xlMedium ..ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) ..LineStyle = xlContinuous ..Weight = xlHairline ..ColorIndex = xlAutomatic End With Range("u5:u450").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) ..LineStyle = xlContinuous ..Weight = xlMedium ..ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) ..LineStyle = xlContinuous ..Weight = xlMedium ..ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) ..LineStyle = xlContinuous ..Weight = xlHairline ..ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) ..LineStyle = xlContinuous ..Weight = xlHairline ..ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) ..LineStyle = xlContinuous ..Weight = xlHairline ..ColorIndex = xlAutomatic End With Range("v450").Select Also, where would I insert the coding to have the formatting stop when the cell in Column E is blank? Say if there were 90 rows on one sheet and the next had 300, I want the formatting to stop when there is nothing in Column E. Thanks :0) Laurie |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Formatting stop when reach blank cell | Excel Programming | |||
stop a clicked on cell being left blank | Excel Worksheet Functions | |||
loop macros until reach blank in adjacent column | Excel Programming | |||
How to stop print in blank cell? | Excel Programming | |||
reading blank cell as active - how can I stop it ? | Excel Discussion (Misc queries) |