Wow That is neat. Thanks I need to try and remmember that.
On Thursday, July 26, 2012 12:56:39 AM UTC-4, अनिल नारायण गवली wrote:
> Dear Tony,
>
> U can use without macro
> Just select the range and press ctl+G of press F5 function key .
> Then click to blank cell and use Alt+E+D select the
Use the special cells offering for this but if you wanted to find something
else you could use data>filter>autofilter.
or to loop to delete start from the bottom up
sub delblanks()
for I =cells(rows.count,end(xlup).row to 2 step –1
if len(application.trim(cells(I, “a”)))<1 then rows(i).delete
next
A couple of observations:
-In your loop, you're never "activating" a cell, so ActiveCell never changes.
When you delete a row, the NEXT row becomes the CURRENT row.
That means that when you go from Row 1 to 1000,
if, in the first loop, row 2, column A is blank,
then row 2 is deleted, and row 3 mo
Dear Tony,
U can use without macro
Just select the range and press ctl+G of press F5 function key .
Then click to blank cell and use Alt+E+D select the row and delete it
Regards,
Gawli anil
On Thu, Jul 26, 2012 at 8:42 AM, NOORAIN ANSARI wrote:
> Dear Tony,
>
> Please try it..
>
> *Sub Dele
Dear Tony,
Please try it..
*Sub DeleteBlank()*
*On Error Resume Next
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0: On Error GoTo -1: Err.Clear*
*End Sub*
On Thu, Jul 26, 2012 at 5:13 AM, Tony O wrote:
> I am working on a spreadsheet with Ex
