Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Non blank cells
Try this approach
Sub deleterowsbelowfirstblankcell() fbr = Cells(1, 1).End(xlDown).Row + 1 'MsgBox fbr lr = Cells(Rows.Count, 1).End(xlUp).Row + 1 'MsgBox lr Rows(fbr).Resize(lr - fbr).Delete End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "MrRJ" wrote in message ... Hello, I need you help in resolving my error code. I would like to find the first blank cell in colume A and then delete everything below it. I tried this and it did not work. Range(Range("A65536").End(xlUp)(2), Range("A65536")).EntireRow.Delete Help is much appreciated. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Index/match - make blank cells return a blank value. | Excel Worksheet Functions | |||
Need Array Formula for Counting Blank & Non Blank Cells (Multiple Criteria) | Excel Discussion (Misc queries) | |||
Maximum Number of Blank Cells between Non Blank Cells in a Range | Excel Worksheet Functions | |||
Start Cell B1 then find first blank cell, insert subtotal, next non blank, then next blank, sutotal cells in between......... | Excel Programming | |||
Copy to first Blank cell in Colum C Non blank cells still exist be | Excel Programming |