When updating a worksheet, how do I create a link updating the sa.
A worksheet residing on my C drive is also on my company intranet. How do I
make changes to the C drive copy and have the same changes incorporated in the intranet copy? |
Copy the file after you have saved it?
-- HTH RP (remove nothere from the email address if mailing direct) "Phlashh" wrote in message ... A worksheet residing on my C drive is also on my company intranet. How do I make changes to the C drive copy and have the same changes incorporated in the intranet copy? |
Or copy when you save it?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Saves the current file to a backup folder and the default folder 'Note that any backup is overwritten Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs Filename:="intranet path\" & _ ActiveWorkbook.Name ActiveWorkbook.Save Application.DisplayAlerts = True End Sub Gord Dibben Excel MVP On Tue, 25 Jan 2005 17:17:35 -0000, "Bob Phillips" wrote: Copy the file after you have saved it? -- HTH RP (remove nothere from the email address if mailing direct) "Phlashh" wrote in message ... A worksheet residing on my C drive is also on my company intranet. How do I make changes to the C drive copy and have the same changes incorporated in the intranet copy? |
Thank you Gord, Where would I insert this code? in the primary sheet?
"Gord Dibben" wrote: Or copy when you save it? Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Saves the current file to a backup folder and the default folder 'Note that any backup is overwritten Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs Filename:="intranet path\" & _ ActiveWorkbook.Name ActiveWorkbook.Save Application.DisplayAlerts = True End Sub Gord Dibben Excel MVP On Tue, 25 Jan 2005 17:17:35 -0000, "Bob Phillips" wrote: Copy the file after you have saved it? -- HTH RP (remove nothere from the email address if mailing direct) "Phlashh" wrote in message ... A worksheet residing on my C drive is also on my company intranet. How do I make changes to the C drive copy and have the same changes incorporated in the intranet copy? |
Gord,
I meant in the windows environment :-) Process, not automation! Bob "Gord Dibben" <gorddibbATshawDOTca wrote in message ... Or copy when you save it? Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Saves the current file to a backup folder and the default folder 'Note that any backup is overwritten Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs Filename:="intranet path\" & _ ActiveWorkbook.Name ActiveWorkbook.Save Application.DisplayAlerts = True End Sub Gord Dibben Excel MVP On Tue, 25 Jan 2005 17:17:35 -0000, "Bob Phillips" wrote: Copy the file after you have saved it? -- HTH RP (remove nothere from the email address if mailing direct) "Phlashh" wrote in message ... A worksheet residing on my C drive is also on my company intranet. How do I make changes to the C drive copy and have the same changes incorporated in the intranet copy? |
It would be saved in the ThisWorkbook module.
With workbook open and window maximized, right-click on the Excel icon left of "File" and select "View Code". Paste in there. Note: "intranet path" must be adjusted for your actual path. Gord On Tue, 25 Jan 2005 12:25:03 -0800, "phlashh" wrote: Thank you Gord, Where would I insert this code? in the primary sheet? "Gord Dibben" wrote: Or copy when you save it? Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Saves the current file to a backup folder and the default folder 'Note that any backup is overwritten Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs Filename:="intranet path\" & _ ActiveWorkbook.Name ActiveWorkbook.Save Application.DisplayAlerts = True End Sub Gord Dibben Excel MVP On Tue, 25 Jan 2005 17:17:35 -0000, "Bob Phillips" wrote: Copy the file after you have saved it? -- HTH RP (remove nothere from the email address if mailing direct) "Phlashh" wrote in message ... A worksheet residing on my C drive is also on my company intranet. How do I make changes to the C drive copy and have the same changes incorporated in the intranet copy? |
I knew that<g
Just offered an alternative for automation in case OP wanted it. Gord On Tue, 25 Jan 2005 21:06:24 -0000, "Bob Phillips" wrote: Gord, I meant in the windows environment :-) Process, not automation! Bob "Gord Dibben" <gorddibbATshawDOTca wrote in message .. . Or copy when you save it? Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Saves the current file to a backup folder and the default folder 'Note that any backup is overwritten Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs Filename:="intranet path\" & _ ActiveWorkbook.Name ActiveWorkbook.Save Application.DisplayAlerts = True End Sub Gord Dibben Excel MVP On Tue, 25 Jan 2005 17:17:35 -0000, "Bob Phillips" wrote: Copy the file after you have saved it? -- HTH RP (remove nothere from the email address if mailing direct) "Phlashh" wrote in message ... A worksheet residing on my C drive is also on my company intranet. How do I make changes to the C drive copy and have the same changes incorporated in the intranet copy? |
I thought you did, but sometimes it helps to spell out our thoughts for the
originators (just in case <g). And anyway, it's good to share a crack between old stagers (ebg Bob "Gord Dibben" <gorddibbATshawDOTca wrote in message ... I knew that<g Just offered an alternative for automation in case OP wanted it. Gord On Tue, 25 Jan 2005 21:06:24 -0000, "Bob Phillips" wrote: Gord, I meant in the windows environment :-) Process, not automation! Bob "Gord Dibben" <gorddibbATshawDOTca wrote in message .. . Or copy when you save it? Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Saves the current file to a backup folder and the default folder 'Note that any backup is overwritten Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs Filename:="intranet path\" & _ ActiveWorkbook.Name ActiveWorkbook.Save Application.DisplayAlerts = True End Sub Gord Dibben Excel MVP On Tue, 25 Jan 2005 17:17:35 -0000, "Bob Phillips" wrote: Copy the file after you have saved it? -- HTH RP (remove nothere from the email address if mailing direct) "Phlashh" wrote in message ... A worksheet residing on my C drive is also on my company intranet. How do I make changes to the C drive copy and have the same changes incorporated in the intranet copy? |
Thank you so much for your help. BUT, I do have another question:
instead of saving the whole workbook to the "backup" drive, how would I just save one worksheet of a workbook? "Gord Dibben" wrote: I knew that<g Just offered an alternative for automation in case OP wanted it. Gord On Tue, 25 Jan 2005 21:06:24 -0000, "Bob Phillips" wrote: Gord, I meant in the windows environment :-) Process, not automation! Bob "Gord Dibben" <gorddibbATshawDOTca wrote in message .. . Or copy when you save it? Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Saves the current file to a backup folder and the default folder 'Note that any backup is overwritten Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs Filename:="intranet path\" & _ ActiveWorkbook.Name ActiveWorkbook.Save Application.DisplayAlerts = True End Sub Gord Dibben Excel MVP On Tue, 25 Jan 2005 17:17:35 -0000, "Bob Phillips" wrote: Copy the file after you have saved it? -- HTH RP (remove nothere from the email address if mailing direct) "Phlashh" wrote in message ... A worksheet residing on my C drive is also on my company intranet. How do I make changes to the C drive copy and have the same changes incorporated in the intranet copy? |
You have to copy the worksheet to a new workbook and save that
Worksheets("Sheet1").Copy ActiveWorkbook.SaveAs Filename:="myFile.xls" -- HTH RP (remove nothere from the email address if mailing direct) "phlashh1" wrote in message ... Thank you so much for your help. BUT, I do have another question: instead of saving the whole workbook to the "backup" drive, how would I just save one worksheet of a workbook? "Gord Dibben" wrote: I knew that<g Just offered an alternative for automation in case OP wanted it. Gord On Tue, 25 Jan 2005 21:06:24 -0000, "Bob Phillips" wrote: Gord, I meant in the windows environment :-) Process, not automation! Bob "Gord Dibben" <gorddibbATshawDOTca wrote in message .. . Or copy when you save it? Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Saves the current file to a backup folder and the default folder 'Note that any backup is overwritten Application.DisplayAlerts = False ActiveWorkbook.SaveCopyAs Filename:="intranet path\" & _ ActiveWorkbook.Name ActiveWorkbook.Save Application.DisplayAlerts = True End Sub Gord Dibben Excel MVP On Tue, 25 Jan 2005 17:17:35 -0000, "Bob Phillips" wrote: Copy the file after you have saved it? -- HTH RP (remove nothere from the email address if mailing direct) "Phlashh" wrote in message ... A worksheet residing on my C drive is also on my company intranet. How do I make changes to the C drive copy and have the same changes incorporated in the intranet copy? |
All times are GMT +1. The time now is 07:15 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com