Type Mismatch error - tried .text & .value

[Guest]

*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?

 

[Norman Jones]

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

 

[colofnature]

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

 

[Norman Jones]

Hi Nicole,

Change:

Selection.Row.Delete

to

Selection.EntireRow.Delete

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