Macro help please
 

Hello, i have a master excel template which users go in and save as when
completed.

Proposed macro - I want to create a macro for when pressed -

Save as a different excel sheet to a specific location and then hide
relevant columns and save the file as another name to a specific location.

I have tried to record a macro to do this but is doesnt work.

Help will be appreciated!!

Neil.

Please help.

Macro help please
 

Sub Macro()

ThisWorkbook.SaveCopyAs "c:\temp\" & "1.xls"
With ThisWorkbook.Worksheets("Sheet1")
Columns("B:B").EntireColumn.Hidden = True
Columns("D:D").EntireColumn.Hidden = True
End With
ThisWorkbook.SaveCopyAs "c:\temp\" & "2.xls"
End Sub


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


"Neil Holden" wrote:

Hello, i have a master excel template which users go in and save as when
completed.

Proposed macro - I want to create a macro for when pressed -

Save as a different excel sheet to a specific location and then hide
relevant columns and save the file as another name to a specific location.

I have tried to record a macro to do this but is doesnt work.

Help will be appreciated!!

Neil.

Please help.

Macro help please
 

Typo alert. The dots before the Columns() was lost:

Sub Macro()
ThisWorkbook.SaveCopyAs "c:\temp\" & "1.xls"
With ThisWorkbook.Worksheets("Sheet1")
.Columns("B:B").EntireColumn.Hidden = True
.Columns("D:D").EntireColumn.Hidden = True
End With
ThisWorkbook.SaveCopyAs "c:\temp\" & "2.xls"
End Sub

Jacob Skaria wrote:

Sub Macro()

ThisWorkbook.SaveCopyAs "c:\temp\" & "1.xls"
With ThisWorkbook.Worksheets("Sheet1")
Columns("B:B").EntireColumn.Hidden = True
Columns("D:D").EntireColumn.Hidden = True
End With
ThisWorkbook.SaveCopyAs "c:\temp\" & "2.xls"
End Sub

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

"Neil Holden" wrote:

Hello, i have a master excel template which users go in and save as when
completed.

Proposed macro - I want to create a macro for when pressed -

Save as a different excel sheet to a specific location and then hide
relevant columns and save the file as another name to a specific location.

I have tried to record a macro to do this but is doesnt work.

Help will be appreciated!!

Neil.

Please help.



--

Dave Peterson

Macro help please
 

Oops...Thanks Dave..

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


"Dave Peterson" wrote:

Typo alert. The dots before the Columns() was lost:

Sub Macro()
ThisWorkbook.SaveCopyAs "c:\temp\" & "1.xls"
With ThisWorkbook.Worksheets("Sheet1")
.Columns("B:B").EntireColumn.Hidden = True
.Columns("D:D").EntireColumn.Hidden = True
End With
ThisWorkbook.SaveCopyAs "c:\temp\" & "2.xls"
End Sub

Jacob Skaria wrote:

Sub Macro()

ThisWorkbook.SaveCopyAs "c:\temp\" & "1.xls"
With ThisWorkbook.Worksheets("Sheet1")
Columns("B:B").EntireColumn.Hidden = True
Columns("D:D").EntireColumn.Hidden = True
End With
ThisWorkbook.SaveCopyAs "c:\temp\" & "2.xls"
End Sub

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

"Neil Holden" wrote:

Hello, i have a master excel template which users go in and save as when
completed.

Proposed macro - I want to create a macro for when pressed -

Save as a different excel sheet to a specific location and then hide
relevant columns and save the file as another name to a specific location.

I have tried to record a macro to do this but is doesnt work.

Help will be appreciated!!

Neil.

Please help.



--

Dave Peterson

Macro help please
 

Hi thanks for that, i have got the hiding columns working fine, but i don't
want an excel name saving i want the user to type the name of the file?

Thanks again for your help.

Neil.


"Dave Peterson" wrote:

Typo alert. The dots before the Columns() was lost:

Sub Macro()
ThisWorkbook.SaveCopyAs "c:\temp\" & "1.xls"
With ThisWorkbook.Worksheets("Sheet1")
.Columns("B:B").EntireColumn.Hidden = True
.Columns("D:D").EntireColumn.Hidden = True
End With
ThisWorkbook.SaveCopyAs "c:\temp\" & "2.xls"
End Sub

Jacob Skaria wrote:

Sub Macro()

ThisWorkbook.SaveCopyAs "c:\temp\" & "1.xls"
With ThisWorkbook.Worksheets("Sheet1")
Columns("B:B").EntireColumn.Hidden = True
Columns("D:D").EntireColumn.Hidden = True
End With
ThisWorkbook.SaveCopyAs "c:\temp\" & "2.xls"
End Sub

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

"Neil Holden" wrote:

Hello, i have a master excel template which users go in and save as when
completed.

Proposed macro - I want to create a macro for when pressed -

Save as a different excel sheet to a specific location and then hide
relevant columns and save the file as another name to a specific location.

I have tried to record a macro to do this but is doesnt work.

Help will be appreciated!!

Neil.

Please help.



--

Dave Peterson