ghostbroker2
Board Regular
- Joined
- Feb 13, 2017
- Messages
- 58
Here is the DropBox Link
Dropbox - Production sheet (TEST).xlsm
I need this file to be saved out on our server and be named after the contents of cell C3.K2.M1
The pathway is as follows;
"\\RWCAD\Rewinding Spreadsheets\RW PRODUCTION REPORTS"
The file is currently macro enabled, but once it is saved it does not have to be.
I've written something somewhat similar in the past, but i do not know how to add decimals in between the 3 cell values to automate the naming of the file.
I will submit the macro from before... I'm not positive, but maybe if we can use this one if we get the decimal-naming to work.
Option Explicit
Public Sub macSave()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range
Dim sFilename As String
Const sSheetName As String = "NEW PRODUCTION"
Const sCell As String = "C3"
Const sPath As String = _
"\\RWCAD\Rewinding Spreadsheets\Rewinding Excel Report"
Set WB = ThisWorkbook
Set SH = WB.Sheets(sSheetName)
Set Rng = SH.Range(sCell)
sFilename = sPath & Rng.Value & ".xlsm"
WB.SaveAs Filename:=sFilename, _
FileFormat:=52
End Sub
Still learning VBA and macros. Thank you for educating a brother.
Dropbox - Production sheet (TEST).xlsm
I need this file to be saved out on our server and be named after the contents of cell C3.K2.M1
The pathway is as follows;
"\\RWCAD\Rewinding Spreadsheets\RW PRODUCTION REPORTS"
The file is currently macro enabled, but once it is saved it does not have to be.
I've written something somewhat similar in the past, but i do not know how to add decimals in between the 3 cell values to automate the naming of the file.
I will submit the macro from before... I'm not positive, but maybe if we can use this one if we get the decimal-naming to work.
Option Explicit
Public Sub macSave()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range
Dim sFilename As String
Const sSheetName As String = "NEW PRODUCTION"
Const sCell As String = "C3"
Const sPath As String = _
"\\RWCAD\Rewinding Spreadsheets\Rewinding Excel Report"
Set WB = ThisWorkbook
Set SH = WB.Sheets(sSheetName)
Set Rng = SH.Range(sCell)
sFilename = sPath & Rng.Value & ".xlsm"
WB.SaveAs Filename:=sFilename, _
FileFormat:=52
End Sub
Still learning VBA and macros. Thank you for educating a brother.