newfn

This is beginning part of a macro that worked fine in a xlsm file. To share the code saved it as a Personal Macro. Problem is it fails at the 3rd line. Line1 worked fine, so sheet is there. Run-time Error 9 subscript out of range error ActiveSheet.Name = "Not Quoted" Dim wsSummary As Worksheet...

Hi there, I have a macro that works fine but it seems everytime I do other work and come back to it I get this message "sub or function not defined". I have debugged it and get the following, this is the macro. I am using a Mac computer and suspect the problem may be related. Sub...

Ok so here it is... I have a pretty complex set of tables strewn across three different sheets. I use my barcode scanner to scan items into a list on one page, It uses that to populate an invoice with data across 3 pages Page 1 will reference the scanned barcode to find a match on page 3, It...

Sub SavNewInvWithNewName() Dim NewFN As Variant ' Copy New Invoice to a new workbook ActiveSheet.Copy NewFN = "C:\Documents\HOUSING" & Range("I7").Value & ".xlsx" ActiveWorkbook.SaveAs NewFN, FileFormat:=xlXMLSpreadsheet ActiveWorkbook.Close NextInvoice End Sub

Hello everybody! I am having trouble saving my quotations to to xlsm and pdf at the same time. I've figured out how to save to xlsx & pdf, but I can't figure out the code on myself. I use this code to save to xlsx & pdf: Sub SaveInvoiceBothWays() Dim NewFN As Variant ' Create the...

Hi all, I am trying to create invoices for some freelance work I am doing. Here is my plan: I plan to create a document in Excel that will have a starting Invoice number. I will have a button to generate an invoice, auto incrementing the invoice number each time, and then saving the file as...

Hi I have the following code which I found and it works by copying the active sheet and saving as a new file name, however I'd like to save the whole workbook as a new file name. I also don't know how to change the word Invoice to Cost Estimate? Any help much appreciated. Sub NextInvoice()...

I am trying to save an invoice file as the invoice number (H9) and the customer name (H2). I found this in a different post on here: Sub SaveInvoiceWithNewName() Dim NewFN As Variant ' Copy Invoice to a New Workbook ActiveSheet.Copy NewFN = "C:\aaa\Inv" & Range("E5").Value &...

Sir, I am creating a Automatic Invoice and i merge some cell for beauty of my Invoice but when i assign a button into macro, it says the macro can not work for merge cells. So how to save my file to keep merge cells .If you have any solution for that please give me information. Below i mentioned...

This is the Current Code I am running for my "Next Invoice", the only problem I am Having it only save one of the two work sheets I am using...Can you give a not so smart guy a little help and saving both "Invoice" worksheet and CustomerCopy" worksheet? Sub NextInvoice() Range("J1").Value =...

Hi All, So I have this code: Sub SaveFilewithNewName() Dim NewFN As Variant Dim NewPth As String Dim WRK2 As Workbook PostToRegister 'Copy File to New Path and Filename ActiveSheet.Copy 'Change File Path to Server File Path when ready NewPth =...

Sub SaveInvWithNewName() Dim NewFN As Variant ' Copy Invoice to a new workbook ActiveSheet.Copy NewFN = "C:\Users\Donny\Google Drive\Data\Invoice" & Range("B15").Value & “.xlsx” ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close...

Hello, I am trying to write a bit of code to place a file that I have saved within the code as an attachment on a email and extract the address from the file to place in the to box. this is the code as it stands: - Sub SaveAndEmail() Dim NewFN As Variant NewFN = "O:\Sports Centre\Purchase...