how to write an IF statement using containing rather than equals.
The code i'm trying to write is
If range("B" & x).value CONTAINS range(icol & "257").value Then
....
But I don't know how to write contains in VB.
Im looking to use vba to determin upper and lower quartiles, i know how to do this through excel "QUARTILE(B9:B59990,1)", but was wondering if anyone would of any code to do this in visual basic?
View 2 Replies View RelatedIs it possible to export Excel cell contents to Word fields in a protected Word document? For example...
What code would be needed to tell Excel to open up, copy and export the contents of A2 in the active sheet of a workbook to "Field 2" in a Word document named "Report 01" and then put the contents of B2 to "Field 2" etc?
Do both applications have to be opened up at the same time or is Excel able to open up Word on its own? Will the macro be able to....
1. Automatically open up the correct Word document?
2. Look ONLY in a certain folder for the "Report 01" Word document?
or
Bring up a "selection" box that allows you to select the document you wish Excel to export it's data to?
3. Close and save the Word Document without any user intervention?
I 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 have a bunch of cells in column b that have products.
Column B
Dell 24" lcd
vaio sony laptop
8.0 mpxl kodak camera
photoepsonprinter
Basically in Column A I want a formula that'll say.
If the word "dell" is somewhere in cell b1, then put the word "Dell" in cell a1.
If the word "sony" is somewhere in cell b1, then put the word "sony" in cell a1.
And then so on and so forth down through column A. The brand names are potentially endless, so is there a easy way to on like a seperate sheet make a list of brand names and have it pull from there?
Originally I made a if function that said if the brand name was contained in the cell then output the brand name, but that caps at 7 for the amount of brands i can use....
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.
How can I use the IF function, to make entering a word, space then word display correct and incorrect if not.
View 13 Replies View RelatedI need my macros to search for the word "Cancel" or "Cancelled" in columns "T" and "U". Once found, I need the macros to make that entire row an opaque shading.
There will be other wording in these cells that contain "Cancel" or "Cancelled". Is it possible for the macros to search in the sentence and find the words "Cancel" or "Cancelled"
I started on the code below but am stuck.
Have problems using find and the Dictionary
What Im trying to do is find a certain word in a string then return the number associated with that word
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 trying to write a sub for using vlookup. To enable the vlookup, I want to return a word in a cell to the cell in the next column. I use the InStr function, but it doesn't work. They all return as "Other".
Attached is the worksheet and here are the codes : Capture.JPG
[Code] .....
I'm having issues with some coding to work in excel 2003, 2007 & 2010 which will ensure that if cell E3 is changed to anything except "pool_car", then cell D12 is changed to 0.00.
So if a user originally selects "pool_car" in E3 and then enters a figure in D12 (which they are allowed to do using data validation), if they then choose to change the car type in E3, that D12 is then cleared of the figure they entered for the "pool_car".
I'm already using a similar code to clear other cells if another changes but am uncertain of who to change this coding or write other coding to suit.
I have to loop through a range in A, and if the letter "C" or the number "9" appears in the cell anywhere (it won't be a whole cell value) then I need column B to show "C".
I know how to do a whole value loop, but I'm stumped on a 'find X anywhere' search.
I would like to have a formula find a specific word in column L and return the sum from column E for the same fund from column C.
I tried using =SUMIF(L:L,"*annual*",E:E) but that gives me the sum of annual for the entire column. I need to be able to specify the fund.
word "annual" also appears in "semi annual" so I need to be able to separate the two.
I want to say if the word 'suitcase' is in column W (any row), place the word 'suitcase' in column Z, same row.
View 2 Replies View RelatedI 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:
---
Using the IF function in cell B1, if a condition is true in cell C1, How do I get Excel to put the word "Leave" in cell A1
View 9 Replies View RelatedAs you can see, in D5, I have the charactor chain SRG-DC01-RA-xxxxxxx, and in D6 I have the charactor chain SRG-DC43-RA-xxxxx.
With the formula that I have entered, I would have thought that E5 would have generated "Lawnton". I don't want the formula to pick up the SRG, the RA, or the number, just the DCXX component.
This is what I have now:
=IF(OR(ISNUMBER(SEARCH({"DC43","DC01"},D5))),"Erskine Park","Lawnton")
which has not changed a thing from:
=IF(OR(ISNUMBER(SEARCH({"DC43"},D5))),"Erskine Park")
Surely I am not far off the mark??
How do I highlight the word in B7 if I type a number or a letter in B7.
View 4 Replies View RelatedI have a set of data which contains " Account Heads" in Column "A" and "Data" in Column "B", "Data" contains "Account Heads" with some other text as well, i want to have the Account Head in Column "C" based on the "Account Heads" from "Data"
View 6 Replies View RelatedBasically I have columns A and columns B.
Column A contains a list of words
Column B is blank.
If a cell in column A contains a word like "univ", I want the number 1 to appear in the respective row in column 2.
If a cell in column A does not contain a word "univ", I want the number 0 to appear in the respective row in column 2.
I'm trying to figure out the best way to pull information from different worksheets. One field which I require has slight alterations between the sheets. I'd like to delete everything in the cell except for the very first word.
Here is a simple example (and I'd have this all through column A for instance)
Cell A1 = Multiple words here
Lets say I want to delete everything in the cell except the word "multiple"
I am working on doing a vlookup for values on another that may or may not be in a different order. Vlookup won't pick these words up, so I was wondering if anyone knew a solution or a way to alphabetize the words with each cell so that vlookup will work in all cases.
View 9 Replies View RelatedI have a list of print titles and a list of eBook titles. I need to do a lookup ot bring across the ISBN of the print book over to the eBook list so I can compare them. I have already done the standard Trim and vlookup, and the "*"&A2&"*" lookup but there are still about 70 titles I need to find. For instance:
Table 1
A1 = BATMAN STORY BOOK 1
B1 = 9780199134979
Table 2
A1 = BATMAN:BOOK 1 STORY
B2 = 9780199135589
Is there a way I can just look up BATMAN from A1 Table 2 so that it returns B1 from Table 1 (the ISBN) in a new cell?
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 found the below code and have tried adapting it without success.
Code:
Sub Colorize_Word()
Dim Found As Range, FirstFound As String
Dim FindWhat As String, MyColor As Long, Counter As Integer
MyColor = 3
FindWhat = LCase(InputBox("Find what word?", "Color word"))
[Code] ..........
This code finds any string in a cell of your choice and colors it red. I would really like to replace the string with my own string of text. I couldn't use the simple find and replace function as this replaces the WHOLE cell content not just one word.
I believe the line of code that needs editing most is this one
Do
Found.Characters(Counter, Len(FindWhat)).Font.ColorIndex = MyColor
Counter = InStr(Counter + 1, LCase(Found), FindWhat)
But I cannot figure out how to use the replace function with this.
I want to write a formula to reference a cell and only bring back the first word in that cell (could be 3 or 4 characters). So for the below example it would only bring back DHI. DHI US EQUITY
View 1 Replies View RelatedI am trying to figure out how to not allow a word to be type into a cell. I am relatively new to excel and I am working on a spreadsheet where I do not want the word TOMORROW to be allowed in a cell.
I have a column (10,000+) of customers. Some are schools. i need to know which are schools. if the customer is a school the cell contains the work "school" or "academy" or ""sch". Text-to-column cant work becasue the word could be anywhere in the cell. I need a fast way to do this. is there a simple code to find this and return the result in the adjacent cell?
View 9 Replies View RelatedI want to highlight some cell like in word we can animate some word