Hello,

I have this code and it works perfectly for me (see code below). I want to
simplify it so it dosent ask me for which column to delete "0" from. This
column is always J in my worksheet. Can't figure it out though, whats the
right code?

Thanks...

Sub deletezeros()

colabel = InputBox("column label to delete zeros (ex. A, B, C...)")
lrow = Cells(Rows.Count, colabel).End(xlUp).Row
For i = lrow To 1 Step -1
If Cells(i, colabel) = 0 Then Rows(i).Delete
Next i

End Sub

Sub deletezeros()

colabel = 10
lrow = Cells(Rows.Count, colabel).End(xlUp).Row
For i = lrow To 1 Step -1
If Cells(i, colabel) = 0 Then Rows(i).Delete
Next i

End Sub

--
Regards,
Tom Ogilvy


"steven" wrote:

> Hello,
>
> I have this code and it works perfectly for me (see code below). I want to
> simplify it so it dosent ask me for which column to delete "0" from. This
> column is always J in my worksheet. Can't figure it out though, whats the
> right code?
>
> Thanks...
>
> Sub deletezeros()
>
> colabel = InputBox("column label to delete zeros (ex. A, B, C...)")
> lrow = Cells(Rows.Count, colabel).End(xlUp).Row
> For i = lrow To 1 Step -1
> If Cells(i, colabel) = 0 Then Rows(i).Delete
> Next i
>
> End Sub

change
colabel = InputBox("column label to delete zeros (ex. A, B, C...)")

to
colabel = worksheet.columns("j")

(not sure if syntax is right.............untested).
susan


On Feb 20, 11:29 am, steven <ste...@discussions.microsoft.com> wrote:
> Hello,
>
> I have this code and it works perfectly for me (see code below). I want to
> simplify it so it dosent ask me for which column to delete "0" from. This
> column is always J in my worksheet. Can't figure it out though, whats the
> right code?
>
> Thanks...
>
> Sub deletezeros()
> colabel = InputBox("column label to delete zeros (ex. A, B, C...)")
> > lrow = Cells(Rows.Count, colabel).End(xlUp).Row
> For i = lrow To 1 Step -1
> If Cells(i, colabel) = 0 Then Rows(i).Delete
> Next i
>
> End Sub

Sub deletezeros()

lrow = Cells(Rows.Count, "J").End(xlUp).Row
For i = lrow To 1 Step -1
If Cells(i, "J").Value = 0 Then Rows(i).Delete
Next i

End Sub

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"steven" <(E-Mail Removed)> wrote in message
news:85B73360-85F7-4126-8742-(E-Mail Removed)...
> Hello,
>
> I have this code and it works perfectly for me (see code below). I want to
> simplify it so it dosent ask me for which column to delete "0" from. This
> column is always J in my worksheet. Can't figure it out though, whats the
> right code?
>
> Thanks...
>
> Sub deletezeros()
>
> colabel = InputBox("column label to delete zeros (ex. A, B, C...)")
> lrow = Cells(Rows.Count, colabel).End(xlUp).Row
> For i = lrow To 1 Step -1
> If Cells(i, colabel) = 0 Then Rows(i).Delete
> Next i
>
> End Sub