Userform To Fill In Blanks On Template Document And Save To PDF?
Apr 4, 2014
I have a word document that is a rental agreement. Im trying to make an easy to use user form where a person can input the information and it populates in the correct areas and saves as a pdf. How I could put the word document into excel and have a userform populate designated areas.
I have been working on the following VBA code, which should copy specific charts from excel into specific places in a word-template.
I Am quite new with VBA, so I googled the code, changed a few things, and it works exactly as it should - except from one thing. When the Word-document is loaded from the template, I would like the document to be "saved as..." Instead of just opening the template. I have tried
I have a template document, created in MS Word. I want to generate, from Excel, a new document as would happen when you open the template from windows explorer or whatever ie. Template1.doc as opposed to Template.xlt.
The best I've managed to achieve is the opening of the template.
All I want is to generate a word document with built in word header and footer (header and footer style name is "alphabet") based on the values which i mention in excel(path,word file name and header content.
I have a list of people on sheet 1, column A. The corresponding information for each person is listed across 5 columns in sheet B (cols A:E). **The row numbers are consistent throughout the sheets (ie. Joe is listed in Row 5 on sheet 1, and his name and info is listed in Row 5 cols A:E on sheet 2).
Name June Sales Sales Quota YTD Sales Total June Payout
Joe $5000 $3000 $20,000 $4,000
Susan $4500 $3500 $21,000 $4,000
What I want to do is to customize this weekly report for each person: Joe gets only HIS information emailed to him in a "template" that would be standard for each person (see below) -- the template would be the words in blue with the corresponding info, and this would be put directly into the BODY of the email
Name June Sales Sales Quota YTD Sales Total June Payout
Joe $5000 $3000 $20,000 $4,000
This would be repeated for all people on the list (100+). I think I can figure out some email code, but it is getting the information into the SAME template for each person repeatedly (not sure how to write a loop for this including the template)
I need to create a macro that searches for blanks in column G, from row 2 to the last row of the worksheet, and then inserts the value 1 in these blank cells.
I have been copy pasting different solutions from this site and amended them a bit, but my excel skill are not sufficient for this.
I am trying to create a beforesave code within my template. The template has certain fields that are blank and when the end user enters data, I want them to be able to click on save or the blue disk and it saves it to a new location, based on their user and some of the cells within the form. I do not want the template to be saved with the data they input. The data they input is saved only when they click the blue disk and it saves to another location, with their username and certain cells in the form. Then the end user can continue using that same template for the next entry and so on. I have a beforeclose that asks them if they really want to close or not. The only time they would close, or hit the big red X is when they are done with all their entries for the day. Here is my code for beforesave:
I have been having a problem with a document which I have created as a xlt format which then is saved locally but because some users arent as computer literate I have found them saving the document in non macro enabled format which means all macros are removed causing me a huge issue. Is there a macro which will only allow the document to be saved as macro enabled?
I wasn't sure if I should put this question under "Excel Programing" or "Word Programing"... I am writing this program in excel, but the program references the word object library.
WHAT I AM TRYING TO DO: This program I'm making defines variables based on the values of a couple specfic cells. I want to save a newly created word document that this program generates, using the variables as its name.
I have a list of product codes. Some of the cells in this list are blank, and it is assumed that the blank row is the same product code as the one above it. Is there a formula I could use to have the cells fill themselves in?
Example
DO-566 DO-566 <Blank Cell> DG-233 <Blank Cell> <Blank Cell> .......... I've tried the following, but it only yeilded each of the cells having the same values. =if(isblank(A2),A1,A2). With this, I allowed circular references, but it still yeilds that same result stated above.
I have an Excel 2010 spreadsheet which I need to print to PDF. There is a simple "Save as" PDF option which always fails with just the message "Document not saved". I created a simple test sheet with just a few numbers on to check it isn't due to complexities with the particular workbook. This works on my home PC (Windows 7) but not on the Windows 7 Club PC which is where I need to run it to generate the output which eventually will go to the club's website.
It also fails the same way if I try to create an XPS file (although I don't want an XPS file).
This fails from the normal user interface "Save As". I also tried it from a VBA macro and run it: I get Run-time error '-2147467261 (80004003)' Document not saved
I've googled endlessly but all the references I tried failed to uncover a solution. I was a bit surprised that this doesn't seem particularly common and most of the reports seem to be a couple of years old or older (no workarounds were useful).
I have some great code that HalfAce provided a while back that I think will fit a project I am working on, but I can't see how to modify it to fit this one. I need to have it look at a location and provider and find the most "common" date. Then for that criteria fill in the lines with no dates with that "common" date. Here is the code that I need to modify for this
Sub FillInTheBlanks() Dim LstRw As Long, _ DescRng As Range, _ AccntRng As Range, _ Desc As Range, _ Accnt As Range
LstRw = Cells(Rows.Count, "B").End(xlUp).Row Set AccntRng = Range(Cells(2, "B"), Cells(LstRw, "B")) Set DescRng = Range(Cells(2, "I"), Cells(LstRw, "I"))
I am in need of a solution (probably VBA) that can fill a range of cells with a formula IF they are blank. Ideally that range is a named range I can define in Excel. If that is too hard, then a hard coded column I hand-edit the script for is tolerable. Also, ideally, this script auto-executes whenever data changes on the sheet.
You formula I will populate is: =IF(ISNA((VLOOKUP(B33,$A$32:$L$43,12,FALSE))+1),"",(VLOOKUP(B33,$A$32:$L$43,12,FALSE))+1) ..but a simpler formula can be stubbed in.
NOte that it does have relative references, so the script needs to adhere to normal EXCEL conventions of enumerating cell references.
If the script points to a refernce cell that contains the formula that is uber. Maybe it should do copy and paste instead of a string replacement in order to leverage EXCEL's referencing?
I'm stuck on this, and this would be VERY useful for many of my sheets to be able to point to a refernce cell containing a formula to fill in.
I am trying to use Pivot Tables for my data set, the only trouble is my data set is as follows:
Name Group A bbbc cdde fggg
B asde ccdd fffff
I have over 10,000 lines and wanted to know if I have to individually click the name and drag it down or is there a macro or formula to take the previous cell and fill down? This is the end result I would want to get all the previous cells to A to be filled in? Name Group A bbbc A cdde A fggg
I have a spreadsheet where coloumn A contains either a blank cell, or a "X". There may be anywhere from 1 - 10,000+ "x"'s, spaced in col. a, but they are not spaced evenly, for example A1 may have an "X" A3,A4, A25, A28, etc... I need to find a way to merge the cells from the X to the row above the next "X" (so the X, and all blank spaces below it).
I know how to do this as an if function, but do not know how to do that as part of a VB module. If No Value in Column R Then Insert "Phrase" Otherwise Do Nothing
picking things up. At the moment I am trying to create a macro using VBA to do the following in this exact order:
1. Delete Column A and B (once only) 2. Automatically pick up credit card number (In column A) 3. Copy all instances of this credit card number (and all data on same row) 4. Open a template I have set up 5. Paste the copied data onto a specific sheet on this template 6. Save as file name "xxxx - branch name - XXXX - DDMMMYY" 7. Repeat (loop?) this for all credit card numbers on the sheet.
There are approximately 90 credit cards, and I need a new workbook for each one to work on separately.
I have a long bit of code that at one point saves a Word document and then saves it again with a new name and the old (legacy) .doc extension.
This all works find when the user is running Office 2007. However, it errors out for using Office 2010. The reference libraries are all correct (as far as I know).
Code:
Dim myDoc As Word.Document Dim saveAsName as String
I am using a module to create and save a Word document from an Excel module. I'm using the following line to save the document which works fine but (and this is a big BUT)(to quote a TV programme from long ago) obviously everytime I save the document it will overwrite itself. Is there a way of adding the date it is saved on to the file name so it creates a new document each time.
objWordDoc.SaveAs Filename: = "WAGReport"
I have tried changing it like this but get an error message
Dim dtMyDate As Date dtMyDate = Format(Date, "DDMMYY") dtMyDate = Sheets("Client Master").Range("d2") objWordDoc.SaveAs Filename: = "WAGReport" & dtMyDate
I would like to find the blanks within a column. Using the available cell values above and below compute a sort of linear function then, using that linear function fill in the blanks in between. So the values are linearly increasing or decreasing (whatever the case maybe) to the next available nonblank cell value. spreadsheet attached.
I need a listbox or combobox in an excel form whos list is created from 2 ranges. for example first name is range a2:a500 second name is rangne b2:b500. the list box should list both coloums in a single list and return the row number. better still if it does not list blank ranges. i have never used a list or combo box before so please explain in terms a simplton can undrstand