Type Mismatch error - tried .text & .value

*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" <NicoleSeibert@discussions.microsoft.com> wrote in message
news:0EC40E3A-81A1-489F-8B16-2FF428E0DEA5@microsoft.com...
> *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


Col

Hi Nicole,

Change:

> Selection.Row.Delete

to

Selection.EntireRow.Delete

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


---
Regards,
Norman