oliverralph7
07-28-2008, 06:02 AM
I need some help in writing a code that will delete rows where certain criteria are met.
Column W has text in it
Column R has whole numbers in it
Column Q has whole numbers in it
If Column W= TPRFM then
If Column R is 3x greater than Column Q then
Delete Row
Here is what I have so far
Dim jLastRow As Long
Dim j As Integer
jLastRow = Cells(Rows.Count, "U").End(xlUp).Row
For j = jLastRow To 1 Step -1
If Range("W" & j).Value = "TPRFM" Then
.............................................
Range("W" & j).EntireRow.Delete (xlUp)
End If
End If
Next j
Column W has text in it
Column R has whole numbers in it
Column Q has whole numbers in it
If Column W= TPRFM then
If Column R is 3x greater than Column Q then
Delete Row
Here is what I have so far
Dim jLastRow As Long
Dim j As Integer
jLastRow = Cells(Rows.Count, "U").End(xlUp).Row
For j = jLastRow To 1 Step -1
If Range("W" & j).Value = "TPRFM" Then
.............................................
Range("W" & j).EntireRow.Delete (xlUp)
End If
End If
Next j