how Need to delete a row with cells with zero

Status
Not open for further replies.

ru_1985

New Member
Joined
Oct 4, 2006
Messages
35
This code is when there is a ZERO in the cell, it will delete away the whole cell and shift up... how can i remain the cell with a blank instead.

Code:
Sub rowdelete() 
For x = Range("D65536").End(xlUp).Row To 1 Step -1 
If Cells(x, 4).Value = 0 Then 
Cells(x, 4).Row.Delete 
End If 
Next x 
End Sub
 

Excel Facts

How to create a cell-sized chart?
Tiny charts, called Sparklines, were added to Excel 2010. Look for Sparklines on the Insert tab.

Crow_23

Board Regular
Joined
Feb 17, 2005
Messages
183
So you want to do the same with blank cells as with the value 0 and delete them?
 

ru_1985

New Member
Joined
Oct 4, 2006
Messages
35
i wan to delete whatever formula which is in the cell whenever there is a cell with empty blank space
 
Status
Not open for further replies.

Forum statistics

Threads
1,137,201
Messages
5,680,136
Members
419,885
Latest member
Murugesha

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top