Macro Needed (=<0)

[ironsides]

Start on Line 11

Search Col AD

Delete all lines having value of =<0

leave cursor in last line of Col AD

 

[shg]

How about just autofiltering for <0, then clear all the unfiltered cells?

 

[ironsides]

Thanks but no, I'll be using this for many cols.

 

[ironsides]

bump

 

[kevatarvind]

try below

Sub Row_DEL()
Dim lr As Integer
lr = Range("AD" & Rows.Count).End(xlUp).Row
For i = lr To 1 Step -1
If Cells(i, 30).Value <= 0 Then Cells(i, 30).EntireRow.Delete
Next i
Range("AD" & Rows.Count).End(xlUp).Select
End Sub

 

[ironsides]

try below

Sub Row_DEL()
Dim lr As Integer
lr = Range("AD" & Rows.Count).End(xlUp).Row
For i = lr To 1 Step -1
If Cells(i, 30).Value <= 0 Then Cells(i, 30).EntireRow.Delete
Next i
Range("AD" & Rows.Count).End(xlUp).Select
End Sub

It only removed 6 out of 200 lines
and it should start from line 11 towards the bottom of the sheet.

 

[ironsides]

try below

Sub Row_DEL()
Dim lr As Integer
lr = Range("AD" & Rows.Count).End(xlUp).Row
For i = lr To 1 Step -1
If Cells(i, 30).Value <= 0 Then Cells(i, 30).EntireRow.Delete
Next i
Range("AD" & Rows.Count).End(xlUp).Select
End Sub

It only removed 6 out of 200 lines
and it should start from line 11 towards the bottom of the sheet.

 

[kevatarvind]

can you pls upload your excel file in any sharing site and paste the link here ? that would be easy for me bcoz that same code working in my file

 

[jai9]

Hi,

If you want to start from line 11, then change this line

For i = lr To 1 Step -1

to

For i = lr To 11 Step -1

Jai