Hi Friends,
It is taking too long to delete the Zero value cells ans its rows.
Is there any way to select all the Zero value in a particular rows and
remove(Delete) from sheet.
Regards,
Prabhu
--
--
Some important
ehalf 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
applica
macros@googlegroups.com]
On Behalf Of arpit rajput
Sent: Thursday, July 28, 2011 2:50 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Vba Code Required for Delete Entire Row
Hi Experts,
I want to remove entire row when each cell value =0 in column J see in
attached file.
Anybody sugg
Dear Arpit,
please try below code..it will be help to delete all row of J
column
Sub delete_row()
Dim i, j As Long
Application.ScreenUpdating = False
j = Application.WorksheetFunction.CountA(Sheet22.Range("J:J"))
For i = j To 1 Step -1
If Sheet22.Cells(i, 10).Value = 0 Then
Sheet22.Ra
t;> ** **
>>
>> Regards.
>>
>> Daniel
>>
>> ** **
>>
>> *De :* excel-macros@googlegroups.com [mailto:
>> excel-macros@googlegroups.com] *De la part de* arpit rajput
>> *Envoyé :* jeudi 28 juillet 2011 11:20
>> *À :* excel-macr
w.Delete
>
> .AutoFilter.Range.AutoFilter
>
> End With
>
> End Sub
>
> ** **
>
> Regards.
>
> Daniel
>
> ** **
>
> *De :* excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
> *De la part de* arpit raj
Thanks Noorain for your quick respond.
It will not delete all rows properly at one time, about 50% 0 values row
penidng at the time of appling logic first time. i made some change but its
going hang. can you please modify it.
Sub delete_row()
dim i,j as long
application.screenupdating=false
cel-macros@googlegroups.com
Objet : $$Excel-Macros$$ Vba Code Required for Delete Entire Row
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
A
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
