VBA saving

C

Chris

I want to create a macro to save a document as a number i use for a cell reference (ie cell B2 = 18112 so i want the document to be called 18112.xls) Also i have a folder with this reference to start with can excel be programed to find this folder and use it to save in

Cheers
 
C

Chip Pearson

Chris,

If the folder name is in B1 and the file name is in B2, use code
like

ThisWorkbook.SaveAs filename:=Range("B1").Value & "\" _
Range("B2").Value & ".xls"


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


Chris said:
I want to create a macro to save a document as a number i use
Click to expand...
for a cell reference (ie cell B2 = 18112 so i want the document
to be called 18112.xls) Also i have a folder with this reference
to start with can excel be programed to find this folder and use
it to save in.
 
C

Chris

Public Sub save1(

ThisWorkbook.SaveAs filename:=Range("B1").Value & "\"
Range("B2").Value & ".xls
End Su

whats wrong with this. i cant figure it out. bit of a novice you se

----- Chip Pearson wrote: ----

Chris

If the folder name is in B1 and the file name is in B2, use cod
lik

ThisWorkbook.SaveAs filename:=Range("B1").Value & "\"
Range("B2").Value & ".xls


--
Cordially
Chip Pearso
Microsoft MVP - Exce
Pearson Software Consulting, LL
www.cpearson.co


Chris said:
I want to create a macro to save a document as a number i us
Click to expand...
for a cell reference (ie cell B2 = 18112 so i want the documen
to be called 18112.xls) Also i have a folder with this referenc
to start with can excel be programed to find this folder and us
it to save in
 
N

Norman Jones

Hi Chris,

You are missing an ampersand before the linebreak character, try:

ThisWorkbook.SaveAs filename:=Range("B1").Value & "\" & _
Range("B2").Value & ".xls"
 
C

Chris

Cheers for that norma

now it has worked but how do i specify where to save it in the code i need it to save on "\\MARLOWESERVER\Contracts\Contracts on Second Drive"but within this is a folder called 16100-16199 or 16200-16299 etc then in there will be the folder 16170 for example. can excell be programmed to save 16170.xlsin the appropriate folder



----- Norman Jones wrote: ----

Hi Chris

You are missing an ampersand before the linebreak character, try

ThisWorkbook.SaveAs filename:=Range("B1").Value & "\" &
Range("B2").Value & ".xls
 
Top