I want to be able to use a macro to read cells from a certain column so that it will evaluate a text string untill it hits a blank space, then copy the text that it found. I'd like it to work on Excel 2003 or later
View 9 RepliesHow can I evaluate just the first part of these stirings so I can just do something like Left("Ca",2)?
View 2 Replies View RelatedI am currently working on creating a dialogue which will allow the user to input a range of worksheets to use for a pivot table.
I want the user to be able to input a variable into the dialogue. For example, I want the input "n-5 - n-1" to mean the 6th from last to the 2nd from last sheets. I am trying to find n - ([0-9]+)? and replace it with Worksheets.Count - $1. In other words, if there are 10 sheets, I want to transform "n-5 - n-1" into "5 - 9".
Here is the code I have so far:
[Code] ....
This has been working for strings like "n" or "n-4" but not "4 - n-3" or "n-5 - n-1".
Here is the code I use afterwards to interpret the string once the n's have been replaced:
[Code] ....
I'm new to Regex and VBA in general.
I have the following in VBA:
Code:
ActiveCell.FormulaR1C1 = _
"=mod_a1&"" ""&mod_b1&"" ""&mod_c1&"" ""&mod_d1&"" ""&mod_e1&"" ""&mod_f1&"" ""&mod_f1&"" ""&mod_g1&"" ""&mod_h1&"" ""&TEXT(mod_i1,""m/dd/yyyy"")&"" ""&mod_j1&"" ""&TEXT(mod_k1,""h:mm:ss"")"
I only want the user to see the string, not the concatenation formula. So how do I get VBA to turn this formula into an actual string.
I have seen some functions using ByVal and Evaluate with this sort of thing but this is just different enough that I can't figure it out.
I m trying to evaluate part of a string to determine if a number and if 6 char's in length. If Yes, return the 6 digit number, else 0
My formula below returns a #VALUE! error
It worked before I added the 6 char length condition, but sometimes return values of greater length that I do not need.
=IF(AND(ISNUMBER(VALUE(LEFT(C1809, FIND(" ",C1809)-1))),LEN(VALUE(LEFT(C1809,FIND(" ",C1809)-1)))=6),VALUE(LEFT(C1809,FIND(" ",C1809)-1)),0)
I've been trying to get this SumProduct formula to return anything except an error for a while now.
=SUMPRODUCT(('Main Log'!$E$13:$E$17>=$C$2)*('Main Log'!$I$13:$I$17
I have 2 sheets (book1.xls and book2.xls) book1 has over 20 sheets and has my primary data. Book2 is for a report. The report I want to only display one sheet at a time, by me typing in which sheet to access.
What I want to have:
A2 = Sheet Name
C2 = ="'C:Excelfiles[book1.xls]"&$A$2&"'!$B$1" C2 should have the value from B1 on 'Sheet Name' from the file book1.xls
however, all C2 will display is the text, I cannot get it to actually do the reference. (appears as 'C:Excelfiles[book1.xls]Sheet Name'!$B$1 )
Is there a function to say, evaluate data output from another cell?
(less complicated example)
A1=1
A2=2
A3=A1+A2
A4=3 (formula to evaluate output of A3)
As per title, I am trying to compare a column of text cells which contain "Yes" or are empty and a columns of numbers. If they are "Yes" and "1" on the same row, I want to output an "OK" message. Excel seems happy with the following code but it does not work and returns an empty cell if the two conditions are true.
[Code] .....
Here's an interesting one:
A1 contains a text string which is both bold and unbold (
B1 is blank
I need a macro which scans the cells with text and copies the BOLD portions of the text string into the adjacent cell.
Example:
A1
The sky is blue
Macro is run
B1
sky blue
I need to create a macro to do the following:
Search the activecell for a text string (a), and then either paste in text string (b) at the end of the cell if (a) is found, or text string (c) if (a) is not found.
For example, if the activecell has "AA/" in it, I want the cell to become "AA/01" (pasting in "01" at the end), and if the cell has just "AA" in it, I want it to still become "AA/01" (pasting "/01" at the end). The macro will be linked to a commandbutton.
I have a column of data with letters in each cell, no numerical, only alpha. Now, some of those cells contain the letters "adj sub" as part of the text string in each cell. "Adj sub" is always at the beginning of the text string. As an example, a cell will look like this - "adj sub mhm". I want to delete rows whose cell description does not contain "adj sub" as part of the text in the cell.
View 5 Replies View RelatedI have a sheet in which some of the cells have two strings separated by a linefeed. I have come up with a cumbersome formula which will let me check if either of the two strings is a member of a list stored on another sheet. However, it fails if there is only one string in the cell, presumably as there is no linefeed for the formula to find. How can I modify the formula to cope with this situation?
There are also on occasions, three strings in the cell, but I can't seem to access the middle string with the formula. Simplified spreadsheet attached to show the problem. This must be formula-based, as we have a no VBA policy. If you think there is better way of doing this, please let me know.
I want to do it evaluate each row and if the last value for that row is X, then highlight that cell and the Server name for that row.
I have used conditional formatting but it seems that I cannot specify an option to look at the last cell in a row, evaluate that cell's value and then apply the formatting. I can only have conditional formatting highlight every cell in that row that matches the condition.
I only want the last cell, which represents the most current data, to be highlighted, as well as the category name, if the condition is met.
I have two sets of information, on one hand I have telephone numbers and in the other set I have prefixes and countries. My goal is to tell to which country each number belongs:
i.e.
Numbers Prefix Country
4476324125 44 UK
3354326544 33 France
9713425432 971 UAE
9143253245 91 India
1343543253 1 USA
4432412412
4924241214
7431242424
So I would need to add a column next to "Numbers" saying to which country each number belongs.
My list has a few thousand numbers and a couple of hundred prefixes.
I tried with some array formula, but cannot make it work.
Below is the code I started:
[Code] ......
The range contains a list of names. I want the sub to start with the first name and sum the value(long) which are in 7 columns to the left of the text string. Once this procedure has been done for the first name, it should go back up to the second name and do the same and so on. Once done I will return the name (cell A1 in another sheet) and its respective sum (cell B1 in another sheet) so that I have the list of names with their respective sum.
Sum function using an offset of 7 columns to the left?
I have a column in excel and I want to evaluate each cell in that column and if the cell.value = a specified value I would like for it to copy and paste it in the cell to the left. Below is the code I am using but it isn't working.
View 2 Replies View RelatedWhen using watch window to watch a formula that has multiple formula's in it, is there a way to see the result of 1 formula within the big formula?
E.g. say you have:
= SUMIF(A1:A11,"207",B1:B11)/COUNTIF(A1:A11,"207")
And you put a watch on that, but in watch window it shows the result of the whole formula, say if you want to watch only the SUMIF part?
Im using Excel 2003 by the way.
I was able to find the syntax to add a cell within a text string but I am having a formatting problem. The cells which I am adding were using formulas that left decimals. Although I turned off all of the decimals on the cell, the values when I used the cell within the text string included all of the decimals and in some cases 6 or more decimal places. Is there a way to keep the formatting of the cell?
View 11 Replies View RelatedI have a cell that is populated by clicking a button which pulls info from an external source over which I have no control. I need to confirm the selection made by the user contains one of four quarterly values: Mar, Jun, Sep or Dec. I have this but wanted to know if there is a better alternative or a way to shorten the code.
Code:
If InStr(1, UCase(celltxt), "MAR") Or InStr(1, UCase(celltxt), "JUN") _
Or InStr(1, UCase(celltxt), "SEP") Or InStr(1, UCase(celltxt), "DEC") Then
I want to remove a string of text from the front and rear of a cell value and would like to do it with one formula. I have tried using LEFT,RIGHT and LEN. I would Like to use the SUBSTITUTE formula as the user can define the actual string to be removed.
I can achieve want i want using two columns i would just like to be able to consolidate down to one.I have tried nesting the formulas but i always seem to get an error.
Characters to remove
Raw data
Output
Front
dog
dogcatmouse
cat
Rear
mouse
dogratmouse
rat
Assume that the table uses stadard naming conventions for Columns(a,b,c...) and Rows(1,2,3...)
I do have a price list for my inventory for each product code (only letters)
E.g. productA 100
productB 200
When I'm writing in the order list, I'm writing in a single cell product code + size e.g. productA 5, productB 7
I need to get the corresponding price for each cell.
I need to find a formula which will search a list of cells looking for a particular text string. If it doesn't find this text string it then needs to search for the next one. For instance if I had a list of product codes: ABCD1234, BCD1234, ABCD2345, CDE23456, BCD2345 I want the formula to look up and see if the cell contains the text ABCD and if so return ABCD as the value, if not I want it to go on and see if the cell contains BCD and return the value BCD, if not then go on and search the value CDE etc. It seems like an easy job to do manually but I have a list of over 3000 codes to do this.
View 4 Replies View RelatedI want a formula or function that will return a count value if a cell contains a string rather than returning a value if the cell equals a value. For example, =COUNTIF(A$1:A$19703,F1) returns a value to cells in column G if the value in column F equals any exactly matching value in A. I need a formula that works like the filter option "contains" so that if any cells in col A merely contain a string rather than exactly match or equal a string from column F I can get a count value returned.
View 9 Replies View RelatedIf I have a cell (a1) containing the text "Sage, Navision, Hardware" how do I write a sumif formula that will add up a set of numbers based on cell A1 containing the text string "Navision" (for example)
I am using VB and need to search each cell in the row for a string "U30". If it appears, then I need to grab that plus the next three digits, "U30XXX". Otherwise, I need to grab the last six in that row (=RIGHT(M2,6)). I am not sure how to structure the If statement in VB. I searched the forum and help files, but was not sure what to do from here. Currently, I have...
Range("I2").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[4],6)"
Range("I2").Select
Selection.AutoFill Destination:=Range("I2", Cells(Rows.Count, "I")), Type:=xlFillDefault
I'm trying to insert a random number into the unprotected cells on a worksheet depending on the type of number formatting in the cell. There are 4 basic cases:
Number formatted as percentNumber Formated general with no decimal placesNumber formatted general with two decimal placesNumber formatted in thousands
The code below only contains three criteria, I was trying to get that to work first....Based on this criteria I want to insert a random number of an appropriate size. Please find the vba below.
Sum randomnbr()
Dim F as String
For Each c In ActiveSheet.Range("A1:AK2500")
F = c.numberformat
If c.Locked = False And IsNumeric(c.Value) = True And c.EntireRow.Hidden = False And c.EntireColumn.Hidden = False Then
If F Like "*#,##0*" Then
c.Value = Round(Rnd, 0) * 1000000
If F Like "*%*" Then
c.Value = Round(Rnd, 2)
Else: c.Value = Round(Rnd, 2) * 1000
End If
End Sub
In A1, other code inserts the name of a Form control (textBox, comboBox etc), and in B1 it inserts the name of a Property that is always valid for the A1 control. I want to concatenate these two items to produce a formula in C1 that evaluates the current value of the Property on the running form and continues to update with each recalc. It's ok if I have to force a recalc to get the latest values.
The code feeding the items to A1 and B1 and which will be harvesting the Property values from C1 is running in the same Form that holds the controls being referenced.
So if A1= "Label1" and B1 = "BackColor", then in C1 I'd like the same result as if in VBA I said X = Label1.backcolor. I think that what I need is the Evaluate function, but I've read Arron's article on it I just can't seem to make it work here.
I have a column of cells that contain a long string of characters....I need to pull out text from this string and put it in subsequent columns. The symbol I am concerned with is >> For example.
If this string is in the first cell in column A:
>>abcd>>defgh>>ijkl
I would want a formula to return abcd in column b, defgh in column C, and ijkl in column d. >>this is a test>>make it work. in this example I would want "this is a test" returned in column B, and "make it work" ruturned in column C
I am trying to put text form 3 cells into 1 string. I got the 1st 2 but the 3rd I only want to extra the first part of the cell up to the 1st comma. This is what i have so far:
[Code] ......
For example cell E81 would contain "abc, def, ghi" . I want to add to the string above only "abc" and not the entire cell content.
I'm trying to write a bit of to take a text string collected from an inputbox, and paste it into a specific cell.
Should be easy but where my text string from the inputbox is "XYZ", when it enters it into the required cell it enters it as " ="XYZ" ".
Attempt at code is below -
Code:
Sub EmailEdit()
Dim Response As String
Response = Application.InputBox("Input administrator email address", , , , , , , 2)
'Check to see if Cancel was pressed.
If Response = "" Then
[Code] .....