Excel VBA Delete Problem

[amal1973]

Hello
I have an excel sheet, Column “C” has numbers in it also column “F” has numbers
I want to write a VBA code that will access the sheet and will delete every row that has the value of zero in C and the value of 20 in F in the same row
This is what I did!!!!

Dim Sub zero()
Dim i As Integer
Dim Rng As Range

For i = Cells(Rows.Count, "C&quot.End(xlUp).Row To 1 Step –1

If Cells(i, "C&quot.Value = "0" And Cells(i, "F&quot.Value = "20" Then
Cells(i).EntireRow.delete

End If
'Debug.Print (i)
'Debug.Print Cells(i, "C&quot
'Debug.Print Cells(i, "F&quot
Next i

Please advice
Thank you

 

[dsi]

You are comparing values (numeric) to strings.

If Cells(i, "C").Value = "0" And Cells(i, "F").Value = "20"

should be

If Cells(i, "C").Value = 0 And Cells(i, "F").Value = 20

Hope this helps...

 

[amal1973]

well i did take them off ,but the problem that it deletes mostly everything .?? I just need to delete the row that has both a zero and a 20..
thanks

 

[SkipVought]

Hi,

Change

Cells(i).EntireRow.delete

to

Rows(i).EntireRow.Delete

Skip,
metzgsk@voughtaircraft.com

 

[amal1973]

I cant thank you Enough Rows(i).EntireRow.Delete did the job…


Thank you
Amal1973