Do more than on action if and IF statement is true

Hi,
I have a macro and in it I have an if statement:
If MsgBox("Is the correct Part Number (" & aa & ") entered?", vbYesNo) = vbYes _
Then ee = Application.InputBox("Please enter Vendor Code") _
Else: Range("C1:D1").ClearContents
End If

What I want to add is that when the statement is true, after the message box appears and the Vendor code is entered, I want the macro to put this formula into Cell C6:
=IF(C4="","",(VLOOKUP(C4,STS!A6:C20000,1,TRUE)))

try this code

Please Login or Register  to view this content.

Hi dwint,
the problem is that I need to have the output from the inputbox ee entered before I can use the vlookup:
If ee <> 0 Then Range("C6") = ee Else Range("C6") = ""

Hi JosephP,
when I tried the code it runs, prompts to put in the Code but then doesn't put the formula into the cell. Am I wrong in thinking that it is stepping out of the If statement when ee<>0 and once it have put the ee value into C6? See below where dd is a check for occurance of aa:

If dd Is Nothing Then
If MsgBox("Is the correct Part Number (" & aa & ") entered?", vbYesNo) = vbYes Then
ee = Application.InputBox("Please enter Vendor Code")
If ee <> 0 Then
Range("C6").Value = ee
Else
Range("C4").ClearContents
End If
Range("c9").Formula = "=IF(C4="""","""",VLOOKUP(C4,STS!A6:C20000,1,TRUE))"
Else
Range("C4:D4").ClearContents
End If

Apologies.... See attached:

Please Login or Register  to view this content.

When I hit Yes, the inputbox comes up... I enter a number, hit OK and then thats all that happens.

No, maybe I should explain it better. User puts a value into C4, hits a search button. This is the code in that search button where it checks first to see in the value in C4 exists in a list designated by dd. If its not there, it firstly make sure the part entered is correct, if so, it requests a code which it puts into C6 (not sure if I can run the lookup direct from the macro and output the results).

Hi, the code put into the input box gets put into C6, but the If+vlookup formula does not get put into C9. Can provide a sample workbook but not sure how to upload it on this site

See Attached.....

Thanks JP. I must be losing it......
Is it possible that when the user hits "No", to run the code in Module 1 without having to try the other search? Ideally would just want the 1 search button.

Thank JosephP, you have been very helpful.
I was curious, is it possible to use .Find instead of lookups to put data in?
for example, if I put in a part number in C4 that is listed on the STS, output the corresponding code to a designator like ff and then reference ff in a cell?
If there was more than 1 instance on the part number in C4 with a different vendor code, can this be output into the next row down?