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.
View 1 RepliesI 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
Code:
.ActiveDocument.SaveAs Filename:=fname & ".doc"
The code is as follows:
Option Explicit
Sub EksporterTilWord()
Dim appWrd As Object
Dim objDoc As Object
Dim FilePath As String
Dim FileName As String
[Code] ...........
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.
Hello everyone,
I am at the end of finishing my first project in Excel/VBA. My manager wants me to document the complete project. I really don't know how to do that.
So Just wanted to know if there is any predefined 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.
View 1 Replies View RelatedI 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)
Amend this code? I want to save the word document, then save it as a pdf file, then delete the word document;
Code:
Sub E_W()
Dim strDate As String
Dim DirName As String
[Code]....
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 have numbers in Column A starting in row a1. Is it possible to fill the blanks with the preceding data with a macro? approx. 1500 rows
Before
a1:62700
a2:
a3:
a4:
a5:63000
a6:
a7:
a8:
a9:64000
After
a1:62700
a2:62700
a3:62700
a4:62700
a5:63000
a6:63000
a7:63000
a8:63000
a9:64000
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:
[Code] ......
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?
View 2 Replies View RelatedI 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 a little problem that i need to solve in VBA(because its a part of a bigger solution in VBA). I need to complete a table.
I have:.......................
How to fill or copy contents of
View 4 Replies View RelatedI 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).
See attached file for a better understanding.
I would like to use a formula in Column 1 (highlighted) which tells me if it relates to Fund 1 or Fund 2 using the Mapping table in column H.
Using the mapping table would be nice but no need to.
Excel Question.xlsx
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.
How sholud i fill blanks in cell?
Examble
AAAAAAA this must be 11 character long and the blank character must add after the last A so it's 11 character long.
AAAAA same to this.
How to calculate how many character in cell and fill so many embty blanks after that it is 11 character long?
at present i have data in column A That could look like
a1 = fred
a2 to a6 is blank
a7 =bill
a8 is blank
a9 = steve
a10 to a 20 is blank
what the idea is that a1 get copied to a2,a3,a4,a5,a6
a7 get copied to a8
a9 get copied to a10 to a20
these cells could vary on what information is in them and what cells contain information or not
my macro goes to a1 looks for the last cell with data in it then copies itto the cell below then loops back to a1 ans repeats itself
this macro takes about 1 minute to run as the column has about 5000 cells being used. is there a faster way to do this
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).
View 7 Replies View RelatedI 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
View 3 Replies View Relatedpicking 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.
Is it possible to open a template, prompt the user to enter data and have the template save itself as the user defined data?
View 5 Replies View RelatedI 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
saveAsName = "some text here" + ".doc"
myDoc.Save
myDoc.SaveAs fileName:=(saveAsName), FileFormat:=wdFormatDocument
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.
View 3 Replies View RelatedI 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
View 7 Replies View Related