I'm trying create a macros that will delete the entire row if the values in
cells T26 , U26, V26, and W26 are all 0. My macro is deleting all the rows
even if the values of the cells are not 0. Can anyone tweak my code ?

Dim lastrow As Long
Dim r As Long
lastrow = Range("T" & Rows.Count).End(xlUp).Row
For r = lastrow To 2 Step -1
If (InStr(1, Cells(r, 20).Value) And (InStr(1, Cells(r, 21).Value) And _
InStr(1, Cells(r, 23).Value) And InStr(1, Cells(r, 24).Value))) = 0
Then



ActiveSheet.Rows(r).EntireRow.Delete
End If

Next
End Sub

Dim lastrow As Long
Dim r As Long
lastrow = Range("T" & Rows.Count).End(xlUp).Row
For r = lastrow To 2 Step -1
If Application.Countif(Cells(r,"T").Resize(1,4),0) = 4 Then
ActiveSheet.Rows(r).Delete
End If
Next
End Sub


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)
"David T" wrote in message
...
I'm trying create a macros that will delete the entire row if the values
in
cells T26 , U26, V26, and W26 are all 0. My macro is deleting all the
rows
even if the values of the cells are not 0. Can anyone tweak my code ?

Dim lastrow As Long
Dim r As Long
lastrow = Range("T" & Rows.Count).End(xlUp).Row
For r = lastrow To 2 Step -1
If (InStr(1, Cells(r, 20).Value) And (InStr(1, Cells(r, 21).Value) And
_
InStr(1, Cells(r, 23).Value) And InStr(1, Cells(r, 24).Value))) =
0
Then



ActiveSheet.Rows(r).EntireRow.Delete
End If

Next
End Sub

may be:

Sub david()
Dim lastrow As Long
Dim r As Long
lastrow = Range("T" & Rows.Count).End(xlUp).Row
For r = lastrow To 2 Step -1
v1 = Cells(r, "T").Value
v2 = Cells(r, "U").Value
v3 = Cells(r, "V").Value
v4 = Cells(r, "W").Value
If v1 = 0 And v2 = 0 And v3 = 0 And v4 = 0 Then
Cells(r, "A").EntireRow.Delete
End If
Next
End Sub
--
Gary's Student


"David T" wrote:

I'm trying create a macros that will delete the entire row if the values in
cells T26 , U26, V26, and W26 are all 0. My macro is deleting all the rows
even if the values of the cells are not 0. Can anyone tweak my code ?

Dim lastrow As Long
Dim r As Long
lastrow = Range("T" & Rows.Count).End(xlUp).Row
For r = lastrow To 2 Step -1
If (InStr(1, Cells(r, 20).Value) And (InStr(1, Cells(r, 21).Value) And _
InStr(1, Cells(r, 23).Value) And InStr(1, Cells(r, 24).Value))) = 0
Then



ActiveSheet.Rows(r).EntireRow.Delete
End If

Next
End Sub