I'm trying to get the following code to work as a Case Function and can't seem to find how i would define the different ranges to test.
My working VBA IF statement, which populates the column M cells with 410, 470, 430, and 420 depending on what is found in column L, I or A, is:
Range("M2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNUMBER(FIND(""MF"",RC[-4])),410,
IF(ISNUMBER(FIND(""Supply"",RC[-1])),470,
IF(ISNUMBER(FIND(""Primary"",RC[-12])),430,
IF(ISNUMBER(FIND(""Junior"",RC[-12])),430,
IF(ISNUMBER(FIND(""College"",RC[-12])),420,
IF(ISNUMBER(FIND(""Senior"",RC[-12])),420,430))))))"
Selection.AutoFill Destination:=Range("M2:M" & Range("A" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault
Edit/Delete Message
Can anyone help me convert that into a Case Function?
Bookmarks