Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Window Message for not value found
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Window Message for not value found
Try this
If Dir(directory & filetext & ".xls") < "" Then Workbooks.Open directory & filetext & ".xls" Else MsgBox "Wrong" End If Maybe without the .xls part ? -- Regards Ron de Bruin http://www.rondebruin.nl "maperalia" wrote in message ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Window Message for not value found
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" wrote: Try this If Dir(directory & filetext & ".xls") < "" Then Workbooks.Open directory & filetext & ".xls" Else MsgBox "Wrong" End If Maybe without the .xls part ? -- Regards Ron de Bruin http://www.rondebruin.nl "maperalia" wrote in message ... 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Window Message for not value found
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 -- Regards Ron de Bruin http://www.rondebruin.nl "maperalia" wrote in message ... 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" wrote: Try this If Dir(directory & filetext & ".xls") < "" Then Workbooks.Open directory & filetext & ".xls" Else MsgBox "Wrong" End If Maybe without the .xls part ? -- Regards Ron de Bruin http://www.rondebruin.nl "maperalia" wrote in message ... 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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Window Message for not value found
Thanks you very much Ron it is working PERFECTLY!!!!!.
Best regards Maperalia "Ron de Bruin" wrote: 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 -- Regards Ron de Bruin http://www.rondebruin.nl "maperalia" wrote in message ... 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" wrote: Try this If Dir(directory & filetext & ".xls") < "" Then Workbooks.Open directory & filetext & ".xls" Else MsgBox "Wrong" End If Maybe without the .xls part ? -- Regards Ron de Bruin http://www.rondebruin.nl "maperalia" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Error message refers to Name that can't be found | Excel Discussion (Misc queries) | |||
The message EUROTOOL.XLA!fshow TTO Dialog cannot be found | Excel Discussion (Misc queries) | |||
Style 'Percent' not found error message. | Excel Discussion (Misc queries) | |||
Getting the message: Style 'currency' not found | Excel Discussion (Misc queries) | |||
If not found get a message | Excel Programming |