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? |
Type Mismatch error - tried .text & .value
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? |
Type Mismatch error - tried .text & .value
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 |
Type Mismatch error - tried .text & .value
Hi Nicole,
Change: Selection.Row.Delete to Selection.EntireRow.Delete I changed the other two instances in your code, but missed one! --- Regards, Norman |
All times are GMT +1. The time now is 02:46 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com