Using Save Invoice With New Name Macro But Need It To PDF Not XLSX
Aug 13, 2013
I am currently using some of Mr. Excels macro coding to firstly create consecutive invoice numbers and secondly save the new file into a destination folder and clear out the cells that have had data in them. This part seems to work flawlessly. I have noticed though that the new .xlsx file has the macro buttons viewable on it and to me looks unprofessional if i send out an invoice to a customer that has the buttons shown. So my resolution is to export the file as a PDF rather than the .xlsx.
My code is as follows
Code:
Sub NextInvoice() Range("H13").Value = Range("H13").Value + 1
Range("B24:H43").ClearContents
End Sub
Sub SaveInvWithNewName()
Dim NewFN As Variant
' Copy Invoice to a new workbook
What I am trying to do is that I have an excel file with macros and it is a read-only file. In order for the user to save, I want them to only be able to save as a .xlsx file as it disables all macros. If for whatever reason, the user wants to save the file as another .xlsm file, they should be allowed but before they save, a "are you sure you want to save as .xlsm?" message should pop up.
All the options in the save as box should still be available in case they want to save in that particular format. Just that the .xlsx should be the default.
I am still in the process of creating my Invoice, and now I want to add a proper save macro. I want to add a Macro button, which when clicked it copies that invoice sheet as it is and then places it at the end of the sheet tabs, so they're saved after the first 2 important parts of the invoice, and then saved in time order. If possible, i'd also like it to rename the invoice tab to the Customer's name/lastname IF Possible. I've attached the file so if someone fancys trying to do it for me, they can. I want these saved sheets to be seperate for each invoice/customer, and I want them to be in the same file as the invoice 'creator' it's self.
In my script below it saves each tab in Excel as a separate worksheet and titles the file the same as the tab name.
Is there a way to make it save as an .xlsx ***e unstead of a .xls file?
Dim wks As Worksheet Dim newWks As Worksheet For Each wks In ActiveWorkbook.Worksheets wks.Copy 'to a new workbook Set newWks = ActiveSheet With newWks
How can I save worksheet from existing workbook as a new workbook with extension .xls or .xlsx depending on the version of Excel on which the original was opened and no matter the extension of original?
My code that I was trying to create all above does not work, because even if I am using Excel 2007, 2010 or 2013 it will still be saving only as .xls.
Our business has a spreadsheet set up for invoicing. A Macro has been created to increase the invoice number, save to the desktop as a PDF with a file name taken from the cells
This is working on my colleagues mac but when we've loaded onto my computer it errors, when I debug I am getting the following error:
how to run my Macro over multiple (about 60) .xlsx files. I have been looking around, but haven't quite got anything working yet.
I have all the files in the same folder with similar names (i.e. Subject_01.xlsx, Subject_02.xlsx, etc.).
What I'd like is:
*open Subject_01 *run script (some calculations, copy/pasting, my script for this is working fine) *save file under a different name (i.e. Subject_01_processed.xlsx) *close file *again for Subject_02, Subject_03, etc.
Additionally, I have a second question: after I have the processed .xlsx files, I'd like to copy some cells from each .xlsx file (e.g. A1-H1) to a new file. There, I'd like the data from Subject_01 to for example be in cells A1-H1, from Subject_02 in cells A2-H2, etc.
When I prepare a file with macro's (to be used by other people), I save this file as a template with macro's with the extension *.xltm (template with macro). Therefore no one can overwrite my file. These other people can open this template (e.g. double-click, but not file-open). But when these people save this file, Excel automatically saves it as a normal Excel-file with the extension *.xlsx. Ok, a message is seen after pressing <enter> or clicking Save, but does normal users know, what they have to do then?
If I'm making a template with macro's, I want Excel to have this file saved as a file with macro's. Whatever did I make a file with macro's for? Is this a bug or is it done on purpose?
I have an Excel Invoice Template, saved as a template.
I have code that generates a new invoice number each time the template is opened in VBA Editor. The auto numbering system works great! However.... (here comes the sad part)
After I enter all the data I need on the invoice, I want to save a copy of the invoice in a different file folder, which I can no problem. The problem is, if I re-open the saved invoice, we will call it Invoice #100, excel asks me if I want to update, if I say either yes or no, the invoice number will change to Invoice #101. I'm sure you can see how this can cause a major problem if we need to compare information later on, finding the correct invoice would be almost impossible as it would not match the customers invoice number.
What I need to know is:
Is there code I can add to the existing code, to stop the increment on a saved invoice, but not on the original template?
I m making invoices and daily i have to make around 100 invoices, every time i have to select/copy the latest invoice and paste it downwards (as attached).
kindly tell me a macro so that i can click on button and invoice# 02 (as highlighted & attached) should be pasted on the place where i will keep my Curser. It should be pasted on the place where i will keep curser.
I'm having some trouble creating a macro that will save the worksheet under the name of the cell ("G4") that needs to change to the next ascending number (i.e. 101101, 101102, 101103, etc). Have a macro but wont function after saving and never saves as the new cell #.
with the following....In the first sheet of attached file I keep data regarding all invoice sheets next to the data sheet (not visible in this example). I like to print an invoice in all sheets (area H3-AI43) from a selected invoice sheet out of a drop-downlist in the "data"sheet. After printing the actual printdate must be placed in column F of the "data" sheet next to the sheet number. Would be great if this is possible! Maybe I'm not clear enough. The purpose is to print only 1 invoice from a selected sheet out of the drop-down list.....and not all invoices from all sheets!
I have a template invoice in excel. What I want is a macro code that when it is run the open template invoice should be sent to a specific email address !!
I'm trying to make a macro check if a file has been saved (ever). If so I want the macro to do a regular save (with already esatablished filename and location) before it proceeds with the rest of the macro. If the file hasnt been saved (if it runs from a new workbook) then I want it to pop up the save.as dialog, so that the user can choose the name and location of the file before the macro continues .
I'm trying to have a macro that opens the save as window, places the name in cell f5 and then allows you to save the workbook with cell f5 as the filename. I have managed to get the save as window to come up and the cell f5 as the name, but when I press save is doesn't. Here is what I have (also, is there a way to direct this to a specific folder).
I have a macro that copy one sheet of the Active workbook and sends it via email.
I need to add a code in this sheet so when one opens it from the email, with a command button to be able to save the file to specific, fixed folder on the local network with it’s original file name.
I have just received an eMail from my accountant and here file name extension is .xlsx. I have never seen this before. Can someone tell me why the x on the end of the extension? . Also, when it opens, a Message Box is displayed: File Conversion in process.
I am facing this error problem in my laptop. Error: Excel can't open the file (name).xlsx because the file format or file extension is not valid. Verify that the file has not been corrupted and that the file extension matches the format of file.
When every i am trying to open all the excel files are giving me this error. I try many software and change the extension. But no result. Same error message is coming. Really if its not fixed i will lose too much important data.
I have to download files from a database and save them in .xls format (the only format permitted to export from the database)
Given an open excel wb saved to my hard drive (or network drive) in non .xlsx format. (most likely .xls)
Switch the file to .xlsx format without loosing the open file. (re-open ok).
Caveats: -Don't want two files -Dnn't want to have the file name changed (except for the extension). -Don't want to remain in compatibility mode. -Don't want to wait a long time. -Don't want to have possibility of file corruption.
I just want to take my non .xlsx file and then, turn into a .xlsx file. (if I save the file as .xlsx I am still in compatibility mode until I re-open the file. I also will have two files---very annoying).
I am trying to use dir() in a While...wend to get a specific list of files to process, but I want the list to only include those with a .xls extension, not those ending in .xlsx. It seems that the file filter ".xls" doesn't exclude those files with a ".xlsx" extension.
Sample code demonstrating the problem (will show the problem if there is at least one cycle that meets a*.xls and one that meets a*.xlsx).
Is there a workaround to this at the dir() level? Or do I need to go ahead and open the file and test its contents?
Sub TestDir() On Error GoTo Nofile 'trap cancel, X-out of the dialog, etc. With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = False .InitialFileName = "a*.xls" .Show GetDir = .SelectedItems(1) End With On Error GoTo 0 'reset error handler
I'm having some troubles sending email as attachments from Excel using VBA where my workbooks have the XLSX name. I am getting the following message instead of the email with attachments:
FILE QUARANTINED
The original contents of this file have been replaced with this message because of its characteristics. File name: 'winmail.dat' Virus name: 'ScanTimeExceeded'
When I change the file extension to xls it is fine - I get the attachments on the email.
Here is my VBA:
With oLookMail
'.To = "busmgrs2@uwc.edu" '.CC = "finspec2@uwc.edu" .To = msToRecip .Subject = "Accounts Status Reports as of " & msAsOfDate .Body = "Attached are the AR Monthly Reports" .Attachments.Add "citpfile07usoffAccounts ReceivableAR Monthly Report 2004-05.xlsx"
My spreadsheet has 32 worksheets, I've recorded a macro to do the job "save, save as with specific name", but what I want is, when save as, I wanted the file name increase in one number, and the date in a specific range "H8:J8" the date should be the next saturday.
I am running into an issue were a file may be saved as .xls or .xlsm instead, but I still need to have the macro open it. Is there a way to adjust the above code, or other code for that matter, that will allow my macro to open any of these extensions?
