Hello
The following code gives me Incorrect Function on the save line. What does
this mean and how do I fix it?

Dim strMonth As String
Dim strYear As String

Range("B36:X36").Select
Selection.Copy
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A4:X35").Select
Application.CutCopyMode = False
Selection.ClearContents

strMonth = InputBox("Enter Reporting Month 01-12")
strYear = InputBox("Enter Reporting Year")

ActiveWorkbook.SaveAs Filename:="G:\" & strYear & "\" & strYear & "-" &
strMonth & "\Turbine log " & strYear & "-" & strMonth & ".xlsm",
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Thanks!

Try the below. You dont need to declare the month as a string. Instead
declare as a numeric and use format function to zero pad...

Dim strFile as String

strfile = "G:\" & strYear & "\" & strYear & "-" & Format(strMonth, "00") & _
"\Turbine log " & strYear & "-" & Format(strMonth, "00") & ".xlsm"

ActiveWorkbook.SaveAs Filename:=strFile, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

If this post helps click Yes
---------------
Jacob Skaria


"Thanks" wrote:

> Hello
> The following code gives me Incorrect Function on the save line. What does
> this mean and how do I fix it?
>
> Dim strMonth As String
> Dim strYear As String
>
> Range("B36:X36").Select
> Selection.Copy
> Range("B3").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
> Range("A4:X35").Select
> Application.CutCopyMode = False
> Selection.ClearContents
>
> strMonth = InputBox("Enter Reporting Month 01-12")
> strYear = InputBox("Enter Reporting Year")
>
> ActiveWorkbook.SaveAs Filename:="G:\" & strYear & "\" & strYear & "-" &
> strMonth & "\Turbine log " & strYear & "-" & strMonth & ".xlsm",
> FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
>
> Thanks!
>
>
>

This will do..

ActiveWorkbook.SaveAs strFile, Fileformat:=52

If this post helps click Yes
---------------
Jacob Skaria


"Jacob Skaria" wrote:

> Try the below. You dont need to declare the month as a string. Instead
> declare as a numeric and use format function to zero pad...
>
> Dim strFile as String
>
> strfile = "G:\" & strYear & "\" & strYear & "-" & Format(strMonth, "00") & _
> "\Turbine log " & strYear & "-" & Format(strMonth, "00") & ".xlsm"
>
> ActiveWorkbook.SaveAs Filename:=strFile, _
> FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
>
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "Thanks" wrote:
>
> > Hello
> > The following code gives me Incorrect Function on the save line. What does
> > this mean and how do I fix it?
> >
> > Dim strMonth As String
> > Dim strYear As String
> >
> > Range("B36:X36").Select
> > Selection.Copy
> > Range("B3").Select
> > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> > SkipBlanks _
> > :=False, Transpose:=False
> > Range("A4:X35").Select
> > Application.CutCopyMode = False
> > Selection.ClearContents
> >
> > strMonth = InputBox("Enter Reporting Month 01-12")
> > strYear = InputBox("Enter Reporting Year")
> >
> > ActiveWorkbook.SaveAs Filename:="G:\" & strYear & "\" & strYear & "-" &
> > strMonth & "\Turbine log " & strYear & "-" & strMonth & ".xlsm",
> > FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
> >
> > Thanks!
> >
> >
> >

OK Almost have it. Your code worked through saving the file but I get
Application-defined or object-defined error after the save.

Thanks for your help


"Jacob Skaria" wrote:

> This will do..
>
> ActiveWorkbook.SaveAs strFile, Fileformat:=52
>
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "Jacob Skaria" wrote:
>
> > Try the below. You dont need to declare the month as a string. Instead
> > declare as a numeric and use format function to zero pad...
> >
> > Dim strFile as String
> >
> > strfile = "G:\" & strYear & "\" & strYear & "-" & Format(strMonth, "00") & _
> > "\Turbine log " & strYear & "-" & Format(strMonth, "00") & ".xlsm"
> >
> > ActiveWorkbook.SaveAs Filename:=strFile, _
> > FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
> >
> > If this post helps click Yes
> > ---------------
> > Jacob Skaria
> >
> >
> > "Thanks" wrote:
> >
> > > Hello
> > > The following code gives me Incorrect Function on the save line. What does
> > > this mean and how do I fix it?
> > >
> > > Dim strMonth As String
> > > Dim strYear As String
> > >
> > > Range("B36:X36").Select
> > > Selection.Copy
> > > Range("B3").Select
> > > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> > > SkipBlanks _
> > > :=False, Transpose:=False
> > > Range("A4:X35").Select
> > > Application.CutCopyMode = False
> > > Selection.ClearContents
> > >
> > > strMonth = InputBox("Enter Reporting Month 01-12")
> > > strYear = InputBox("Enter Reporting Year")
> > >
> > > ActiveWorkbook.SaveAs Filename:="G:\" & strYear & "\" & strYear & "-" &
> > > strMonth & "\Turbine log " & strYear & "-" & strMonth & ".xlsm",
> > > FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
> > >
> > > Thanks!
> > >
> > >
> > >

You can test the save code by assigning another file name to strFile (say
"c:\test.xlsm"). This shouldnt be a problem. Check your folder paths..

If this post helps click Yes
---------------
Jacob Skaria


"Thanks" wrote:

> OK Almost have it. Your code worked through saving the file but I get
> Application-defined or object-defined error after the save.
>
> Thanks for your help
>
>
> "Jacob Skaria" wrote:
>
> > This will do..
> >
> > ActiveWorkbook.SaveAs strFile, Fileformat:=52
> >
> > If this post helps click Yes
> > ---------------
> > Jacob Skaria
> >
> >
> > "Jacob Skaria" wrote:
> >
> > > Try the below. You dont need to declare the month as a string. Instead
> > > declare as a numeric and use format function to zero pad...
> > >
> > > Dim strFile as String
> > >
> > > strfile = "G:\" & strYear & "\" & strYear & "-" & Format(strMonth, "00") & _
> > > "\Turbine log " & strYear & "-" & Format(strMonth, "00") & ".xlsm"
> > >
> > > ActiveWorkbook.SaveAs Filename:=strFile, _
> > > FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
> > >
> > > If this post helps click Yes
> > > ---------------
> > > Jacob Skaria
> > >
> > >
> > > "Thanks" wrote:
> > >
> > > > Hello
> > > > The following code gives me Incorrect Function on the save line. What does
> > > > this mean and how do I fix it?
> > > >
> > > > Dim strMonth As String
> > > > Dim strYear As String
> > > >
> > > > Range("B36:X36").Select
> > > > Selection.Copy
> > > > Range("B3").Select
> > > > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> > > > SkipBlanks _
> > > > :=False, Transpose:=False
> > > > Range("A4:X35").Select
> > > > Application.CutCopyMode = False
> > > > Selection.ClearContents
> > > >
> > > > strMonth = InputBox("Enter Reporting Month 01-12")
> > > > strYear = InputBox("Enter Reporting Year")
> > > >
> > > > ActiveWorkbook.SaveAs Filename:="G:\" & strYear & "\" & strYear & "-" &
> > > > strMonth & "\Turbine log " & strYear & "-" & strMonth & ".xlsm",
> > > > FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
> > > >
> > > > Thanks!
> > > >
> > > >
> > > >