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

Reply via email to