Please post a NEW topic instead of "hijacking" another discussion thread.
P > >From: Rakesh Sharma <rksharma...@gmail.com> >To: excel-macros@googlegroups.com >Cc: intermediatec...@gmail.com >Sent: Thu, September 30, 2010 4:19:19 AM >Subject: Re: $$Excel-Macros$$ macro to save it to a particular drive / file >location. > >Hi , > > >I am rakesh from Jammu and i want to know more about macro, and i also want to >know how to use macro and whats the functions of macro, > > >and my another question is can we add 2 values in vlookup . > >please get the attached sheet for exp. > > >Rakesh Sharma > > >On Thu, Sept 30, 2010 at 1:00 PM, Johnnyboy5 <intermediatec...@gmail.com> wrote: > >I have a workbook "template" which when team members use it and >>then >>when they go to save it defaults to “my documents” and I would like to >>set >>up a macro to save it to a particular drive / file location. This is >>needed to stop team members saving to the wrong location etc. >> >>Below is one that works for a word template that I use, but I don’t >>think it will work with an Excel file. >> >> >>Excel 2003 >> >> >>Any Ideas ? >> >> >>John >> >> >> >>>>>>>>>>>>>>>>>>>> Credit to Graham Mayor >>>>>>>>>>>>>>>>>> >> >> >>For these macros. >> >>Sub FileSaveAs() >>Dim sPath As String >>sPath = "S:\Duty & Assessment\DAT ONLY" 'set the default save as path >>for the document >>On Error Resume Next >>ChDir sPath 'Change to the directory you wish to save in >>If Err.Number = 76 Then 'that folder doesn't exist >> >> >> MsgBox sPath & " is not available on this PC?" & vbCr & "Select >>the correct folder to save the document" >>End If >>With Dialogs(wdDialogFileSaveAs) >> >> >> .Name = sPath & "\" >> .Show 'show the save dialog >>End With >>End Sub >> >> >>Sub FileSave() >>Dim sPath As String >>sPath = "S:\Duty & Assessment\DAT ONLY" 'set the default save as path >>for the document >>On Error Resume Next >>If Len(ActiveDocument.Path) > 0 Then 'the document has been >>previously >>saved >> ActiveDocument.Save 'so save the changes >>Else 'The document has not been saved >> ChDir sPath 'Change to the directory you wish to save in >> If Err.Number = 76 Then 'that folder doesn't exist >> >> >> MsgBox sPath & " is not available on this PC?" & vbCr & >>"Select >>the correct folder to save the document" >> End If >> With Dialogs(wdDialogFileSaveAs) >> >> >> .Name = sPath & "\" >> .Show 'show the save dialog >> End With >>End If >>End Sub >> >> >>-- >>---------------------------------------------------------------------------------- >> >>Some important links for excel users: >>1. Follow us on TWITTER for tips tricks and links : >>http://twitter.com/exceldailytip >>2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 >>3. Excel tutorials at http://www.excel-macros.blogspot.com >>4. Learn VBA Macros at http://www.quickvba.blogspot.com >>5. Excel Tips and Tricks at http://exceldailytip.blogspot.com >> >>To post to this group, send email to excel-macros@googlegroups.com >> >><><><><><><><><><><><><><><><><><><><><><><> >>Like our page on facebook , Just follow below link >>http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts >> > > >-- > >Regards >Rakesh Sharma > >-- >---------------------------------------------------------------------------------- > >Some important links for excel users: >1. Follow us on TWITTER for tips tricks and links : >http://twitter.com/exceldailytip >2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 >3. Excel tutorials at http://www.excel-macros.blogspot.com >4. Learn VBA Macros at http://www.quickvba.blogspot.com >5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > >To post to this group, send email to excel-macros@googlegroups.com > ><><><><><><><><><><><><><><><><><><><><><><> >Like our page on facebook , Just follow below link >http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts > -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
