Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 163
Default 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.


  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 8,520
Default 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.


  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 35,218
Default 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
  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 8,520
Default 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

  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 163
Default 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

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Macro recorded... tabs & file names changed, macro hangs Steve Excel Worksheet Functions 3 October 30th 09 11:41 AM
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort Gavin Excel Worksheet Functions 0 May 17th 07 01:20 PM
Need syntax for RUNning a Word macro with an argument, called from an Excel macro Steve[_84_] Excel Programming 3 July 6th 06 07:42 PM
how to count/sum by function/macro to get the number of record to do copy/paste in macro tango Excel Programming 1 October 15th 04 01:16 PM
Start Macro / Stop Macro / Restart Macro Pete[_13_] Excel Programming 2 November 21st 03 05:04 PM


All times are GMT +1. The time now is 01:06 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"