*Sigh*
Ok. I keep getting a type mismatch error on the second if statment.

'This deletes rows that do not belong in this data extraction. This is a
failsafe.
For i = 2 To LastRow
If Range("F" & i).Value = "98 Other Country" And Range("M" & i).Value =
37.5 And Range("N" & i).Value = "" Then Selection.Row.Delete
If Range("F" & i).Value = "28 Part time" Or "18 Regular Part" Or "27
Non-regular Part" And Range("M" & i).Value = 20 And Range("N" & i).Value =
"" Then Selection.Row.Delete
If Range("F" & i).Value < "98 Other Country" Or ""28 Part time" Or "18
Regular Part" Or "27 Non-regular Part" And Range("M" & i).Value = 40 And
Range("N" & i).Value = "" Then Selection.Row.Delete
Next i

I have tried using both .value and .text with no luck. Any suggestions?

Hi Nicole,

Try replacing your code with:

For i = 2 To LastRow
If Range("F" & i).Value = "98 Other Country" _
And Range("M" & i).Value = 37.5 _
And Range("N" & i).Value = "" Then _
Selection.EntireRow.Delete

With Range("F" & i)
If .Value = "28 Part time" _
Or .Value = "18 Regular Part" _
Or .Value = "27 Non-regular Part" _
And Range("M" & i).Value = 20 _
And Range("N" & i).Value = "" Then _
Selection.Row.Delete
If .Value < "98 Other Country" _
Or .Value = "28 Part time" _
Or .Value = "18 Regular Part" _
Or .Value = "27 Non-regular Part" _
And Range("M" & i).Value = 40 _
And Range("N" & i).Value = "" Then _
Selection.EntireRow.Delete
End With
Next i


---
Regards,
Norman



"Nicole Seibert" wrote in message
...
*Sigh*
Ok. I keep getting a type mismatch error on the second if statment.

'This deletes rows that do not belong in this data extraction. This is a
failsafe.
For i = 2 To LastRow
If Range("F" & i).Value = "98 Other Country" And Range("M" & i).Value =
37.5 And Range("N" & i).Value = "" Then Selection.Row.Delete
If Range("F" & i).Value = "28 Part time" Or "18 Regular Part" Or "27
Non-regular Part" And Range("M" & i).Value = 20 And Range("N" & i).Value
=
"" Then Selection.Row.Delete
If Range("F" & i).Value < "98 Other Country" Or ""28 Part time" Or "18
Regular Part" Or "27 Non-regular Part" And Range("M" & i).Value = 40 And
Range("N" & i).Value = "" Then Selection.Row.Delete
Next i

I have tried using both .value and .text with no luck. Any suggestions?

You'll need to change the second If... to:

If Range("F" & i).Value = "28 Part time" Or _
Range("F" & i).Value = "18 Regular Part" Or _
Range("F" & i).Value = "27 Non-regular Part" And _
Range("M" & i).Value = 20 And Range("N" & i).Value = "" _
Then Selection.Row.Delete


Co

--
colofnatur
-----------------------------------------------------------------------
colofnature's Profile: http://www.excelforum.com/member.php...fo&userid=3435
View this thread: http://www.excelforum.com/showthread.php?threadid=55853

Hi Nicole,

Change:

Selection.Row.Delete

to

Selection.EntireRow.Delete

I changed the other two instances in your code, but missed one!


---
Regards,
Norman