Save File Macro ERROR

[nathanpeattie]

this is my code

Sub macro1()

FileID = InputBox("Type The PO Number To Be Saved")
ActiveWorkbook.SaveAs Filename:= _
"C:\Montford\Quotes\Customers\" & FileID & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

if I click cancel in the diaglog box it get

Runtime Error "1004"

Method 'SaveAs' of object '_Workbook' Failed

and I get End And Debug (How to fix?)

Thanks

 

[Norie]

Perhaps this.

Sub macro1() 

FileID = InputBox("Type The PO Number To Be Saved") 
If FileID<>"" Then
     ActiveWorkbook.SaveAs Filename:= _ 
"C:\Montford\Quotes\Customers\" & FileID & ".xls"
End If
End Sub

 

[nathanpeattie]

Thanks that worked great.

The next thing I need is a find code. As you can see I save the workbook as a PO number eg: 12345.xls I need a code that when I click a button it will find PO number files.

EG: A dialog box will open and ask the user to type in the PO number they want to find. The user will input the po number and click ok. The code will then find the file with the po number and open it.

All the files will be in the same location I will not need the code to search the whole drive just 1 location.

Thanks

 

[Norie]

nathan

Could you please try and keep to one thread?

As far as I can see all your posts so far are related.

 

[nathanpeattie]

Sorry can you help on the find file code?

Thanks

 

[Norie]

Yes I probably can, but I seem to remember that in another thread somebody has made some suggestions.

Like I said try and keep to 1 thread.

I've read most of your posts and have now become confused as to what stage you are currently at.

Are you not getting a bit confused yourself?

 

[nathanpeattie]

I have read those suggestions and I have one of them as my open origanl file code.

The find code is the last code I am working on and then the project to done.

If I have missed a suggestion can you post the location of that post

Thanks

 

[SDSU_Jim]

Try this:
====================================
Sub GetFile()
NewFN = Application.GetOpenFilename(filefilter:="Text Files(*.xls),*.xls,All Files (*.*),*.*", Title:="Please select a file")
If NewFN = False Then
' They pressed Cancel
MsgBox "Stopping because you did not select a file"
Exit Sub
Else
Workbooks.Open Filename:=NewFN
End If
End Sub
===================================
It won't "Search" for a PO #, but since they know the PO # and have saved the file with that name, typing the PO # in the file Name section in the "Open" dialog will open that file.

 

[nathanpeattie]

is there a way we can add the location of the files?

eg:c:\montford\quotes\customers

thanks