Save file in specific file with specific file name based on cell values

J

josh1981

New Member

Joined

Jul 8, 2012

Messages

25

• Aug 5, 2012

• #2

I have also posted this thread at:
http://www.ozgrid.com/forum/showthread.php?t=158169

 

Upvote 0

C

cstimart

Well-known Member

Joined

Feb 25, 2010

Messages

1,180

• Aug 5, 2012

• #3

How's this?

Code:

Sub Macro1()
On Error GoTo ErrorHandler
    ChDir "C:\My Dropbox\Archive\" & CStr([F10])
    ActiveWorkbook.SaveAs "C:\My Dropbox\Archive\" & CStr([F10]) & "\" & CStr([F9]) & ".xlsm", 52
Exit Sub
ErrorHandler
    MkDir "C:\My Dropbox\Archive\" & CStr([F10])
    Resume Next
End Sub

 

Upvote 0

J

josh1981

New Member

Joined

Jul 8, 2012

Messages

25

• Aug 5, 2012

• #4

Thanks cstimart.
I get a compile error: Sub or Function not defined
with ErrorHandler highlighted

 

Upvote 0

HaHoBe

Well-known Member

Joined

Jan 24, 2003

Messages

1,469

Office Version

1. 2019

Platform

1. Windows

• Aug 5, 2012

• #5

Hi, josh1981,

the GoTo-address must be fllowed by an : like this:

Code:

ErrorHandler:
    MkDir "C:\My Dropbox\Archive\" & CStr([F10])
    Resume Next

Ciao,
Holger

 

Upvote 0

J

josh1981

New Member

Joined

Jul 8, 2012

Messages

25

• Aug 5, 2012

• #6

Thanks Holger. That fixed it.

 

Upvote 0