Excel VBA - Returning String Found In Regex Pattern
Jun 18, 2014
I have a string and a pattern. If a substring of the string is found in the pattern, the string is no longer valid. I would like to return a message stating which substring was found in the pattern.
String: K22+L09+P88+Q12+J56
Pattern: (N75|X02|A21|U67|L09|...)
Output Should Be: "J56 is an invalid code. Blah-Blah"
Code to test string against pattern:
Code:
Function Test_OPC(sCode, sPattern) As Boolean
Dim RegX As Object
Dim RegMC
[Code]....
View 2 Replies
ADVERTISEMENT
May 19, 2014
I 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.
View 6 Replies
View Related
Apr 30, 2013
I'm attempting to do work on pattern detection and actions based on how said patterns occur in a column. Here is what I would like excel to do for me:
Code:
Pattern W1
Example A1=A , A2=A , A3=B
Pattern L1 Consecutive "A" 3 or more
Example A4=A , A5=A , A6=A
Triggers on specific events:
While L1 tracking variable = 0 -- If L1 is found, mark a variable to -2 then set the corresponding cell in the column over to the value of the variable (-2)
While L1 tracking variable < 0 -- If consecutive L1s are found one after another, then (on each consecutive occurence) multiply the variable by 3, then set the corresponding cell in the column over to the value of the variable
If W1 is found while L1's variable is < 0, then multiply the value of the L1 tracking variable by -1 and add 1, then set the corresponding cell in the column over to the value of the L1 variable, then set L1's tracking variable to 0
If W1 is found while L1's variable is = 0, then set the corresponding cell in the column over to the value of 1
All data is in one column.
View 1 Replies
View Related
Apr 12, 2013
I created a vba procedure for a particular job but within that procedure I need to perform another task. I've been trying to come up with a regular expression but to no avail. I'm looking to loop through a range of cells for any string where there isn't a space before and after a hyphen. When occurance is matched, then replace with spaces. One exception to the rule would be if data is contained within parentheses, then ignore. There could be zero occurances in string to many.
ie.
abc - def ==> ok, s/b skipped
abc - def (nnn-mmmm ooo) ==> ok, s/b skipped
abc-def (nnn-mmmm ooo) ==> abc - def (nnn-mmmm ooo)
abc- def (nnn-mmmm ooo) ==> abc - def (nnn-mmmm ooo)
abc -def (nnn-mmmm ooo) ==> abc - def (nnn-mmmm ooo)
abc-def ==> abc - def
abc- def ==> abc - def
abc -def ==> abc - def
View 9 Replies
View Related
Nov 22, 2009
I have Userform1, Textbox1, Textbox2 and CommandButton1. Textbox1 is being manually inputted by users.
I would like that when I click Commandbutton1, that Textbox2 will be populated by whatever value was entered in Textbox1, except that the any string that matches any of the listed pattern below:
009???
017???
088???
078???
003???
663???
will be excluded. "?" here represent any 1 character.
So for example, if the user inputted "AA-90-088100ABC" in Textbox1, when CommandButton1 is clicked, Textbox2 should have the value:
"AA-90-ABC"
View 9 Replies
View Related
May 5, 2007
I am wanting to find within a cell the following pattern "ANNNN" - "A" meaning any alpha character A-Z and "N" meaning any numeric 0-9. The pattern ANNNN could be anywhere within the text. If the cell contains text with that pattern the text would be deposited in the adjacent cell. Lorem ipsum dolor sit A1234 amet, consectetuer adipiscing elit. Mauris tristique. Cum sociis
View 5 Replies
View Related
Oct 30, 2013
I have a list of 10k cells with Peoples names in various formats (Title,First name,initials,Surname etc and variations).
I am trying to identify the cells that have within the string the following : 'space','UpperCase Char','LowerCase Char','space' (eg Prof " Dc " Jones).
I need to then change the lowercase char to uppercase.
View 9 Replies
View Related
Sep 22, 2008
I keep getting a value of 0 for .Execute and .FoundFiles. I have had several experiences where it has correctly returned the number of files in the folder one day, and zero the next, even though there have always been files in the folder. The code returns the correct folder name so I know it is searching in the correct location, it just doesn't see the files that I know are there. Why don't I consistently get the correct number of files returned?
Sub Execute_Table_Load()
Dim File_Path As String
Dim Folder_Path As String
Dim i as Integer
Dim Document_List As String
Dim docName as String
Dim fs As FileSearch
File_Path = ThisWorkbook.Path
'Build a path to the folder where the word documents are:
Folder_Path = File_Path & "Test"
Set fs = Application.FileSearch
With fs
.NewSearch...........................
View 9 Replies
View Related
Apr 11, 2013
I have a spreadsheet which has "Employee: [agent 1 name]" in column A and it may or may not have the word "Break" in the same column before it mentions "Employee: [agent 2 name]". The amount of data between agent 1 and agent 2 varies and am needing code which will insert a row above "Employee: [agent 2 name]" if "Break" is not found, and add the word "Break" in column A on the inserted row. I would need this to loop through the spreadsheet until all 100+ agents have been searched.
I'm also needing this done for the word "Meeting" and would insert a row 2 rows above the next agent.
View 6 Replies
View Related
Jan 31, 2008
Find a short text string in a column of longer text strings and when that short text string is found return the longer text string that matches.
View 3 Replies
View Related
Mar 21, 2014
I have two lists, one has 250 items, the other 4500, both contain a String
I need to compare any word within a cell in the short list, against any word within a cell in the long list.
The returned value needs to display both the short list item, as well as the long list item for manual comparison by an analyst.
View 4 Replies
View Related
Jan 31, 2007
Pre-requisite: I would consider myself to be very poor with excel, based on what I've read on this forum and found on my web-searches. I have a worksheet that has a list of data on the left going vertically, then a summary of this data going horizontally across the top. It is not arranged in such a way that transposing the data will do what I want. I am pulling the 5th word out of the title of each block of the vertical data and need to show this word on the horizontal section.
When I use this formula to pull the 5th word: =MID(MID(MID(SUBSTITUTE(A2," ","^",4),1,256), FIND("^",SUBSTITUTE(A2," ","^",4)),256),2,FIND(" ",MID(MID(SUBSTITUTE(A2," ","^",4),1,256),FIND("^",SUBSTITUTE(A2," ","^",4)),256))-2)
I need to increase A2 to A30, then A58 (up by 28 every time) in every instance in that formula. The fill handle increases the values by 1, instead of 28 (even if I do 3 or 4 instances manually) How do I do this? I've run into this problem in other scenarios, and there HAS to be a way to get around it.
View 5 Replies
View Related
Mar 31, 2014
I am trying to do a sort of index match thing using VBA. What I am attempting to do is to use the prefix of a long number and try to find that exact prefix in a string array, and output that string array value. So this is what I have so far as a test:
[Code].....
So I can match the text exactly so if I put PREFIXB in cell A1 in this example, i will get the msg box saying "YES", but if I make it PREFIXB1231k4j3jj1kj32cj, it will display "NO". I want to get it so that PREFIXB will be displayed in the cell that I put the formula in. So if A1 = "PREFIX1AAA100CF" and cell B1 = "=ABC(A1)", cell B1 will display "PREFIX1AAA".
Now the thing is that these prefixes can have different lengths, but will never encompass the exact prefix of another. So if I had a prefix of: PRE1AB, I won't have a prefix of PRE1A.
View 2 Replies
View Related
Jul 15, 2014
I'm trying to repeat a pattern which outputs 4 equal numbers and then increments that number by 1 for another four row as follows
1
1
1
1
2
2
2
2
and so on
how to do this?
View 9 Replies
View Related
Apr 28, 2014
I am currently using this macro for deleting a row if a string is found:
[Code] .....
But I would like to be able to not delete that row, but also to delete the 13 row above that row, including that row too.
ROW 1
ROW 2
ROW 3
ROW 4
ROW 5
ROW 6
ROW 7
ROW 8
ROW 9
ROW 10
ROW 11
ROW 12
ROW 13
ROW 14 - NO MONEY
All this from No Money up to Row 1 will be delete, and loop.
View 3 Replies
View Related
Aug 25, 2013
We have a huge excel-sheet, containing disputes with customers. Everytime there is a dispute, the customers data will be transferred into the sheet. The sheet is organized like this:
DATE / NAME / ID / COMMENT / FREQUENCY (how often one customer appears in the list) /ID2 (ID combination of the date + ID) /Weekday
And here comes the task:
Find all customers who appear 10 work-days(Mo-Fr) in a row. So if a customer appears Mo-Fr and keeps on being in the list the next Monday etc. it still counts as "in a row". Same with official holidays. If a customer appears at a certain date he is "booked" and it doesnt matter if a appears a second time on that specific date.
Attached to this post you find an example in which you can see the structure of my excel sheet!
example.xls
Note: I had to use a german version of excel when I made this little example - thats why the formula in the collum "Frequency" says "Zahlenwenn" its the german version of COUNTIF
Excel 2003
View 7 Replies
View Related
Jun 4, 2014
I am using this code to remove a row if string is found, however, I would like to know how can I set it to do the same for all the worksheet in the same excel?
[Code] ....
View 5 Replies
View Related
Feb 8, 2012
I manage to do a proper search and the return value is correct, but the problem is when I don't get the correct value excel gives me an error, what I can add to make the result just to give me MsgBox "Not found"?
Code below:
Set Ran = Worksheets(2).Range("A:A").Find(CompName, lookat:=xlPart)
If Not Ran Is Nothing Then
MatchRow = Ran.Row
MatchCol = Ran.Column
End If
View 5 Replies
View Related
Jan 27, 2014
I have a macro that does exactly what I need it to do, but it takes a long time.
There are 4 horizontal sections. The top section (code not included) is the total of 3 sections which are segregated by location.
For the 3 sections:
rows 101 to 172 (section 1), 198 to 269 (section 2), & 295 to 366 (section 3) have the same formula for every other column starting with column F ending with column AT (sums hrs)
rows 173 to 194 (section 1), 270 to 269 (section 2), 367 to 388 (section 3) have the same formula for every other column starting with column G ending with column AU (sums dollar amount)
the columns are corresponding dates
Below is the code snippet that produces the results for section 1. I repeat the same code pattern for each section.
Dim r As Long
For r = 101 To 172
With LaborDetail.Cells(r, "F")
.FormulaR1C1 = "=SUMIFS('Data '!C17,'Data '!C38,RC1,'Data '!C37,R1C)"
.Value = .Value
[Code] .........
View 6 Replies
View Related
Sep 27, 2011
I have a find and replace function that removes + smybols from a coloum of strings. How can I remove the first instance of a space (if it later contains a +, too?
E.g.
Before: [ +Test +Test]
After: [+Test +Test]
Code:
Columns("D:D").Select
Selection.Replace What:="+", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
View 4 Replies
View Related
May 6, 2009
I have two different functions, first is importing website to excel and the a second is testing string according to pattern. Each one of them is working ok. I'm trying to find a word " finance" in URL and put it into cell "A1".
Sub ParseWebsite()
Application.DisplayAlerts = False
On Error Resume Next
For i = 1 To 10
SiteURL = "URL;http://www.cnn.com"
With ActiveSheet.QueryTables.Add(Connection:=SiteURL, Destination:=Range("A" & i))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False................
View 5 Replies
View Related
Jun 17, 2008
this line
Cells. Find(What:=searchterm, After:=Cells(1, 1), MatchCase:=False).Activate 'find pn that is stored in searchterm
causes a runtime error 91 when there are no results. "Object variable or with block variable not set"
Ideally, when there are no results, I would like to enter a loop, where I could provide a drop down list of fuzzy matches, but I am not sure excel can do fuzzy matches. I'd settle for just highlighting the row and moving on... any help?
Option Explicit
Sub Macro1()
ActiveSheet.Cells.Find(What:="AES", After:=Cells(1, 1), MatchCase:=False).Activate 'find the aes part number column
Dim aescolumn 'create variable for index value of aes column
aescolumn = ActiveCell.Column 'set variable to index number
View 3 Replies
View Related
Mar 25, 2013
Seems like this one should be pretty easy but I'm stuck... I just want to return a boolean based on whether the currently active cell contains the character "#". I've been trying to use the find method but I can't figure out how to convert a match or lack of a match to a boolean.
View 1 Replies
View Related
Jul 24, 2007
I have been trying a few formulas to return numbers from a string of text. The problem I am having is that there are more than one set of numbers that I need returned.
Here is an example of the text entered in F2
"K2PT bus structure [2 locations] & strain structure South West of L9L12-12 [1 location] / Use #4/0, std, cu conductor, connector Cat ID#10842 at structure leg & connector Cat ID#9655 at #4/0, std, cu gnd loop to connect #4/0, std, cu gnd loop to str leg."
What I need returned in a cell H2 is the numbers beside the Cat ID#
10842, 9655
I tried a Return Right Value formula, but I think because there are more than one possible value it isn't working properly.
View 5 Replies
View Related
Feb 12, 2014
I am trying to search through column "I" for numbers that are decimals, when the first decimal is found, use the row number that the first decimal appears in the string that populates the bookmarks stored in a word template I have created. The code I have so far checks for the decimal and then populates the bookmarks, however it requires me to input the ranges manually, meaning I can set them as the first row in my tabel. But if the decimal appears in the second row and not the first I'm bookmarking the wrong data. Here is the code I have so far;
[Code] ........
View 3 Replies
View Related
Aug 23, 2013
I am trying to count the number of specific words contained in a specific cell. If my data were static, and the list of keywords was short, there are many solutions such as using multiple instances of the length function as proposed by @shg here.
Suppose I have the following sheet: (column C is what I am trying to achieve)
A
B
C
1
[Code]....
That is, C2 will tell that B2 contained 3 of the keywords (1X beautiful, 2X happy) and so on.
View 9 Replies
View Related
Jun 4, 2014
If for example, I have a set of IDs like:
Bellen-234-B25R
Carlota-345-C20RDF
Quad-765-Q20LP
How would I return just the first 4 characters after the second dash? The closest I can get is ALL the characters after the second dash.
View 4 Replies
View Related
May 22, 2013
I need to return the specific text of a cell based upon the text in multiple cells.
Worksheet as follows:
Asphalt Sub:
BLDG1-Backwash 1
*BLDG1*
*Sub*
BLDG1-Backwash 1 OverEx
*BLDG2*
*Sub*
[Code].....
I have three columns thus far. I need to add another column and search all items in Column A using the criteria in Columns B and C. For instance I need to search for BLDG1-Backwash Sub: and place it into column D using the criteria in Columns B and C.
If possible, I would also like to remove both the words, BLDG1 and Sub from the result so then it only shows "Backwash".
My spreadsheet is much larger than this and I have muliple buildings I am dealing with, sometimes 30-40.
View 4 Replies
View Related
Aug 30, 2007
I have a summary worksheet consisting of columns that are referenced to other sheets within the same workbook.
If the cell in the 'referring' (original) sheet is blank then the forumula returns a zero instead of a blank in my summary worksheet, which is messing up some other calculations.
Is there a way to make these cells truly blank, or possibly into string variables instead, so that they do not interfere with my calculations?
View 13 Replies
View Related
Oct 30, 2013
I am trying to identify the row(s) where a match occurs when there can be multiple occurrences of the match.
A
B
C
1
john brown
Brown
True
2
Cathy Smith
3
Brown excavating company
4
XYZ Corp
5
Brown Advisors Inc.
The first test I ran in cell C1 with the information above was to determine if "Brown" was located in the range of A1:A5 using formula:
=IF(ISNUMBER(MATCH("*"&B1&"*",A1:A5,0))=TRUE,"True","False")
In the case of the word "Brown" it occurs in the range of A1:A5 three times, so the result of the above formula would be "True"
Now what I would like to do is return the locations, in this case the row number(s), where the word brown is contained range of A1:A5 because in the case of the word Brown, it occurs three separate times in the range of A1:A5. I would like the resulting value of the formula in this case to be "1, 3, 5" indicating the word Brown occurs in rows 1, 3, and 5. The formula also needs to work in case there is only one match as well.
I tried using the below array formula:
={MATCH(FALSE,ISERROR(SEARCH(B1,'Working List of Vendors'!$A$1:$A$5)),0)}
But it would only return the first occurrence of the match which in this case would be row 1, or "1"
View 8 Replies
View Related
