Window Message for not value found

[Guest]

I have a program that open an excel file from select cell by asking the work
order number (see below). What statement do I need to get a window message
when I type the wrong work order number?.

Thanks in advance.
Maperalia


Sub Open_xls_File()

WO = Application.InputBox("Enter Work Order Number")
directory = "C:\Test\Colors\" & WO & "\"
filetext = Selection.Value
Workbooks.Open directory & filetext

End Sub

 

[Ron de Bruin]

Try this

If Dir(directory & filetext & ".xls") <> "" Then
Workbooks.Open directory & filetext & ".xls"
Else
MsgBox "Wrong"
End If


Maybe without the .xls part ?

 

[Guest]

Ron;
Thanks for your quick response.
I statement is running very well, however, I donot wher I have to located
into my program because I got the window message all the time.
Could you please tell me where can I located it into my program?

Thanks.\
Maparalia

 

[Ron de Bruin]

If you have filename.xls in the worksheet cell then use example 2.
If you only have the filename without the extension use example1


Sub Open_xls_File1()

WO = Application.InputBox("Enter Work Order Number")
directory = "C:\Test\Colors\" & WO & "\"
filetext = Selection.Value

If Dir(directory & filetext & ".xls") <> "" Then
Workbooks.Open directory & filetext & ".xls"
Else
MsgBox "Wrong"
End If

End Sub


Sub Open_xls_File2()

WO = Application.InputBox("Enter Work Order Number")
directory = "C:\Test\Colors\" & WO & "\"
filetext = Selection.Value

If Dir(directory & filetext) <> "" Then
Workbooks.Open directory & filetext
Else
MsgBox "Wrong"
End If

End Sub

 

[Guest]

Thanks you very much Ron it is working PERFECTLY!!!!!.

Best regards
Maperalia