Sub delRow() LastRow = Range("j" & Rows.Count).End(xlUp).Row
For Each cl In Range("j2:j" & LastRow) If cl = 0 Then cl.EntireRow.Delete End If Next cl End Sub From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of NOORAIN ANSARI Sent: Thursday, July 28, 2011 12:31 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Vba Code Required for Delete Entire Row Dear Arpit, Please try below code to delete row equal to 0 in J Column...... Sub delete_row() dim i,j as long application.screenupdating=false j=application.worksheetfunction.counta(sheet22.range("J:J")) for i=1 to j if sheet22.cells(i,10).value=0 then sheet22.range("J"&i).EntireRow.Delete end if next i application.screenupdating=true End Sub -- Thanks & regards, Noorain Ansari <http://noorain-ansari.blogspot.com/> http://noorain-ansari.blogspot.com/ On Thu, Jul 28, 2011 at 2:50 PM, arpit rajput <arpit.raj...@gmail.com> wrote: Hi Experts, I want to remove entire row when each cell value =0 in column J see in attached file. Anybody suggest me VBA code to delete all 0 value rows. Thanks ARPIT KUMAR -- ---------------------------------------------------------------------------- ------ Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com <http://www.excel-macros.blogspot.com/> 4. Learn VBA Macros at http://www.quickvba.blogspot.com <http://www.quickvba.blogspot.com/> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com <http://exceldailytip.blogspot.com/> To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel -- ---------------------------------------------------------------------------- ------ Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel