Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Auto format blank rows using code
Hi
I need to have a spreadsheet searched and where there are complete blank rows I need to colour that row. I can't do this using conditional formatting as there will be data constantly copied into the spreadsheet overwriting any conditional formatting input, therefore it needs to be done using VB code. I already have some code in the workbook (see below) and would like to add to it with the above. I'd appreciate any help. Thanks. Private Sub workbook_open() Sheets("Sheet2").Activate Set f = Columns("A").Find(what:="Date") Set TestRange = Range(f.Address).Offset(-2, 0).Resize(2, 1) If WorksheetFunction.CountA(TestRange.Value) = 0 Then TestRange.EntireRow.Delete End If With Cells ..HorizontalAlignment = xlGeneral ..VerticalAlignment = xlBottom ..WrapText = False ..Orientation = 0 ..AddIndent = False ..IndentLevel = 0 ..ShrinkToFit = False ..ReadingOrder = xlContext ..MergeCells = False ..EntireColumn.AutoFit End With On Error GoTo errhandler ActiveSheet.DrawingObjects.Delete errhandler: Exit Sub End Sub -- Marie Bayes |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Auto Hide Blank Rows | Excel Discussion (Misc queries) | |||
auto hiding blank rows | Excel Discussion (Misc queries) | |||
VBA code to hide blank rows | Excel Worksheet Functions | |||
Auto transfer rows from 1 sheet to another by account code. | Excel Worksheet Functions | |||
Auto Filter out text or blank rows | Excel Discussion (Misc queries) |