Sheets("KBE Check").Select
Range("I2").Select
x = 2
Do Until Cells(x, 3) = ""
Cells(x, 9).Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-6],'KBE Data to pull From'!C[-8],1,FALSE))=FALSE,""OK"",""Missing KBE"")"
If ActiveCell.Value = "Missing KBE" Then
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-6],'KBE Data to pull From'!C[-6],1,FALSE))=FALSE,""Rejected KBE"",""Missing KBE"")"
If ActiveCell.Value = "Missing KBE" Then
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-6],'KBE Data to pull From'!C[-4],1,FALSE))=FALSE,""KBE Needs Review"",""Missing KBE"")"
If ActiveCell.Value = "Missing KBE" Then
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-6],'KBE Data to pull From'!C[-2],1,FALSE))=FALSE,""In Ready for KBE 47"",""Missing KBE"")"
If ActiveCell.Value = "Missing KBE" Then
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-6],'KBE Data to pull From'!C,1,FALSE))=FALSE,""In Ready for KBE 48"",""Missing KBE"")"
End If
End If
End If
End If
x = x + 1
Loop
|