I am trying to make a Dolch word exercise for low ability young adult students.
A simple word is mixed up in column A. They have to unscramble it and type correct spelling in column B which will come up with a Well done or Whoops in Column C. I have formatted all columns for text. Formula has worked in first row but not in subsequent ones.
eththeWell Doneotto=IF(B5="to","Well Done","Whoops")
I am using Windows XP and Office 2003.
I am looking to automate a process where information is sent to someone in a text format and they in turn transfer that data to an excel file. It basically looks like this (but includes a lot more info):
Service Request #: 123456
Instrument Type: New Instrument
Lot/Serial #: 123456
SR Type: Product Complaint
Service Coverage: Maintenance Agreement
The info on the left (text preceding the colon) is always the same but the values following the colon can change. The excel file has all of the text before the colon and they just enter the information into the cells. I am looking to make it so that an Excel macro (or maybe a word/outlook macro) automatically scans the text document and sends this info to the exact same cells in excel every time.
The text file is actually a message from an Oracle database and I am not going to be able to make any changes to the way the data comes in.
I have everything else like it is supposed to be, but in one cell a word is broken. I have tried everything and gone back through the tutorials. Excel 2007.
View 6 Replies View RelatedI'll try to simplify what I'm trying to do without getting into too much details that might be considered irrelevant to my question.
1. A set of VBA procedures are run successfully, and the results are compiled on a single w/s "mySheet" in a single w/b "myBook".
2. I intend to repeat 1. above 1,000s of times (same w/b, same w/s).
3. Consider a single run. The results of interest on "mySheet" are confined to a range, say, A20:K40, named "myInpRange", with a 7-digit run identifier ID automatically generated and stored in cell F5, say, F5 = 1234567
4. I've successfuly performed the following tasks manually:
...a) copy range A20:K40 of "mySheet"
...b) Open a new MS Word document
...c) Paste Special as Unformatted Text
...d) Save the Word file for this run As: LL_1234567.inp (="LL_" & F5 & ".inp")
...e) Close the Word file.
...f) Repeat a) to e) above for the next run.
Q: How to code a VBA Excel macro to handle Excel & Word, run from a button on the w/s "mySheet", and to perform the tasks a) to e) above ??
In case you might wonder why I do have to go through this trouble. Well, my next set of programs are DOS-Applications, which only allow their redirected input data files to be as described above.
I have a simple excel sheet with columns A (name1) B (name2) C (name3) D (name4) E (name5) F (text). A given name can only appear once in any given row.
I am looking for a vba code (Excel 2003) that would loop through cells in A1:E?? (number of rows varies, loop needs to find last non-empty row in column A) and look for a particular name (e.g. "Stefan Thomas"):
1) create new unnamed word doc
2) Put "New Annex" as a header (top right) in the new word doc
3) Insert text "List for Stefan Thomas" centered and underlined as the first line of the new word doc. The document will have two sections:
4) Insert text "Items in Column A" bolded and aligned to the left
5) Insert text "Items in Column B to E" bolded and aligned to the left below the section in 4
6) if "Stefan Thomas" is in column A, copy text in column F and paste in word doc as first bullet (below title "Items in Column A")
7) repeat step 6 for all other instances of "Stefan Thomas" in column A (append text as next bullet in section "Items in Column A")
8) If "Stefan Thomas" is in column B or C or D or E (can only appear once per row), copy text in column F and paste in word doc as first bullet (below title "Items in Column B to E")
9) repeat step 8 for all other instances of "Stefan Thomas" in column B or C or D or E (append text as next bullet in section "Items in Column B to E")
if you could indicate in the code how I can choose the type of bullet as well as space between bullets and font type
Let me start by stating that I am a novice at writing macro script. I am trying to write a script that will open and search a Word doc, find specific text in that document, and populate certain excel cells with that information.
Ex. of Word doc:
5.1.2.3 Install gasket [12], using bolt [5] and nut [8].
5.1.2.4 Uninstall gasket [12] and scrap gasket and fasteners.
I would like the script to search for and populate any number between the [ ] into a specific excel cell, also I would like it to identify and populate an excell cell with the associated step, e.g.: "5.1.2.3", which will be at the begining of that step (step could be several sentences long). Also, I would like the script to look for and identify/populate an excel cell with any number of words such as: "install", "uninstall", "break", "scrap", or "remove" also associated with that step.
How do I paste a text paragraph into Excel and give each individual word into its own cell?
View 6 Replies View RelatedI need to count how many times the word Test is in the range B4:H9 with
Range N2 = Test the formula below works if Test is only in the cell once.
=COUNTIF($B$4:$H$9,"*" & N2 & "*")
But I have data in cells like below, this is all in one cell, so how would I have it count all the times test is in the range when some cells have test 2 or more times in a single cell?
5
Test
8am-2pm
Test
5pm-10pm
I am trying to automate the below process:
1. I have a excel file with Japanese words in column A and their English equivalents in column B.
2. I am trying to create a Macro and assign it to a button. On pressing the button Macro should be able to:
3. open a form where I can enter location of a word file.
4. Macro should open the word file specified in (3).
5. Macro will pick up first Japanese word from excel file (Sheet 1 - A1)
6. Search for that word in Word file
7. Replace the Japanese words in Word file with their English equivalent from excel (B1)
8. Then it should search for second word (A2) and replace with its equivalent (B2) and so on till it reaches last filled cell in excel file column A.
After a lot of search I could find a code from net (Below), made a few changes, but it is not working.
========================================================
Private Sub OK_Click()
' Requires a reference to Microsoft Word xx.x Object Library
Dim sFile As String
[Code]....
I am in the middle of automating a process here at work, the program takes a word, "pencil" for example, from excel. It will then open up a word document with content already in it (premade template). The program will then find all instances of a string, "placepencilhere" for example, and will replace that instance with the string from excel.
Basically I want to be able to take a variable that has a stored string value from excel and use it to replace another variable in a word document.
I tried recording a replace (ctrl+f, replace tab) macro, copying the code, and inserting it into the excel vba code.. but I get a error message. Here is what I have:
---
I have an excel program that is supposed to count word instances in a word document. I can't seem to find the right declaration for a word document.
For example to declare a workbook in excel its
Dim wb As Work Book
I've tried
Dim doc As Word.Document
'or
Dim doc As Word.Application
as shown in some of the forum posts, but an error user-type not defined keeps displaying.
i have group of different set of data represented in Rows, and between each set there is 2 empty rows
i want my macro to go certain column W, where type of data is set, and title these group by placing that name in A column cell, that's just before first Row of set of data
Pool
Date
Cost
Time
Type
[Code]...
but please note that number of rows of each data type is variable could be 2, 3, or whatever
i need the Macro to name each set, with SuperMarket, Cloths .. etc
I have a textbox and would like to create an updating word count when a user types something into the text box. I want the word count to display in a lblword as the text is being typed.
Private Sub txtInput_Change()
cmdNext.Enabled = (txtInput.Text "")
'm_Validation
m_Response = txtInput.Text
' txtInput.Value = Format(m_Response, "dd mmm yy")
End Sub
I'm looking for a macro to search for records that does not contain the word hello world anywhere(any column & any row) on a spread sheet. Then I want to delete that record. I prefer not to use the autofilter function, if possible.
View 6 Replies View Relatedi have a set of data in excel.. i want that, when i click a command button on an active worksheet, it will be transferred in ms word all the data found in excel.
View 14 Replies View RelatedWhenever word wrap is applied the text is not visable in the cell. It
remains visable only in the bar above.
I have already confirmed autofit and it reduces the column to 1 character
wide.
I tried detect and repair on the installation and nothing.
I even upgraded from Excel 2k to Excel 2003 and no change.
I would like to do a text split for the name only in cells where contains the word "Name". For example: Name A&A Enterprize
Text split function for it is =MID(A1,FIND(" ",A1)+1,255)
so it only recognizes A&A Enterprize.
How would I add an IF, Then function (If the any cell contains the word Name, apply the text split function, for cells don't have the word Name, just leave it blank) if i have to do this for a large data file so i dont have to copy this function for every cell that contains the word Name.
I want to return the 7 letters of text that appears after the word Timer in cell A1. So cell A1 will be a sentence with the word Timer in it somewhere and I want to return the 7 characters after it appears.
View 2 Replies View RelatedI have random text strings which I need to extract the last part from in Excel.
The text string will be made up of code, but the word I need is always to the right of a prefix />
So for instance in A1 I have 76ruihfo:;.>6">/apple
I would want to extract "apple" from the string above into B1.
I have a VBA that opens a word document where I have a standard text, and some of the words are ment to change depending on who customer we have in mind.
It seems a bit unstable, sometimes it takes half of the words, if I add a sign like a comma after the word it seems to catch them better and manage to replace them.
Right now it doesn't change any of the words....
This is is:
Code:
Option Explicit
'the document
Dim Inv_doc As Object
[Code].....
I have a text string in a cell. it is comprised of a series of numbers and text. i would like to " cut" the first part of the string starting from the first space and paste in the cell to the left. For example.
range("b11") has the following: "This is my example"
I would like to perform the following:
range ("A11") would equal "This"
Range ("b11") would equal "is my example"
(note the space has been completly removed as well)
I have this excel sheet which I want to export to a word document. The following code has been used:
[Code].....
It creates a word document but it only copies and pastes a picture of the excel sheet. I want for the user to edit the word document values that are pasted from the Excel sheet. I know I need to change somewhere in the:
[Code] .....
How can I paste values from excel to word that can be modified inside of word?
ALSO:
How can I change the layout of the word document, for example if I want to add a header and a footer?
I am trying to do the following:
I am creating an order checklist in Excel. I want it that if the sales rep clicks on a certain field that a macro will populate the form that is needed. If the rep does not click on that box then the certain form will not be populated. Is this possible?
I have a database list, and run a bunch of formatting, inserting, formulas etc., to be able to have a Word Mail Merge be able to run against the data when finished. I'm automating the process and want to be able to open the Word document when the Excel piece is done, so the user doesn't have to navigate to the file manually.
Since Excel doesn't seem to automatically 'see' Word docs in the Open File dialog list, my Open File code below is getting an error of "File Format is Not Valid":
ChDir "O:UAIBDCustomer RelationsIDHome Office Indexing"
Workbooks.Open Filename:= _
"O:UAIBDCustomer RelationsIDHome Office IndexingID Home Office Indexing Mail Merge Template TESTING.docx"
I'm writing a spreadsheet which performs automatic reporting in Word at the moment and, having done this once before I thought it would be simple... Unfortunately however I seem to have run into the following problem:
I'm trying to have Excel paste in a table, then move down one line, enter a page break and then repeat for all of the tables it needs to paste.
Among a rather large sub which I re-used from another project is this bit of code which is relevant to this part:
Dim AppExcel As Window
Set AppExcel = ActiveWindow
Set appwd = CreateObject("Word.Application")
appwd.Visible = True
Set appwd = CreateObject("Word.Application")
appwd.Visible = True
appwd.Documents.Open Filename:=FileToOpen
'select test bookmark
appwd.activedocument.Bookmarks("test123").Select
The key bit is this segment, which is the part repeated for each table (it all works up to here)
For K = ActionFrom To ActionTo
Cells(3, 2) = K
Call SelectNode
LR = Sheets("Data_Entry").Cells(Rows.Count, "B").End(xlUp).Row
Worksheets("Data_Entry").Range("B7:I" & LR).Select
Selection.Copy
With appwd
.Selection.Paste
.Selection.MoveDown Unit:=wdLine, Count:=1
.Selection.InsertBreak Type:=wdPageBreak
End With
Next K
The two bits in red are what I am trying to now do, but Word keeps returning the error 'bad parameter'. I've tried doing it both in and out of the 'with' function and I can't seem to make it work...
I am looking for a formula or multiple formulas to perform an If/Then statement, adding and dividing. Example listed below.
If O8 = 'Y' then perform XXXX, otherwise, do nothing.
XXXX= in Y8 search for word 'apple' and add tally to AA46, in Y8 search for word 'orange' and add tally to AA47, in Y8 search for word 'banana' and add tally to AA48.
Take AA46/Y46 and put results in AB46.
If this could be put into on cell and perform all the needed actions, otherwise, multiple cell formulas is ok.
I have a very large list of top scorers for a sports team MS Word. The name and number of goals are both on the same line. Is there any possible way I can past them into Excel, so as they are pasted into 2 separate columns?
View 2 Replies View RelatedI currently have a large amount of data extracted from a performance tracking system. The columns I am concerned with are Page Title and Time (the time it takes the system to navigate to the this page).
I am trying to create a dashboard to show:
Webpage Title (each unique instance of the webpage)Aggregate Time (total time it takes for all instances)# of Hits (Each time the value appears in the data)Average Time (this formula I can handle; Aggregate Time/# of Hits)
The major issue is that the webpage is extracted as XYZ001 -- PAGE1, XYZ439 -- PAGE2, XYZ854 -- PAGE1, etc. Basically, I am only concerned with what comes after the --.
Here is an example of the two tabs.
DASHBOARD TAB:
Page Title
Aggregate Time
# of Hits
Avg. Time
PAGE1
[Code]...
Basically, I am looking for a formula that says,
For any instance in the Page Title column that contains PAGE3, add the amount in the Time column (i.e., 1.2 +.5).
I have a long list of client names in individual cells eg: A2 = Garden Homes Summary, A3 = Lakeland AG Summary etc etc. However I need to extract the client name without the word summary in it.
I know how to do this on an individual basis, but as there is a long list and different number of letters in each one.
I'm using excel to open a new word document, stick some text on different lines and then save and close. The trouble is, I want to bold the titles but when I do I either bold or unbold the entire document. The codes looks like this:
With wrdDoc
With .Content
.InsertAfter "TEST"
.Bold = True
End With
.Content.InsertAfter [Word_WordCount].Offset(0, 1).Value
.Content.InsertParagraphAfter
, etc....