I wrote some code which has compiled a LOT of text files telling me what computers have licence for certain software.
The name of the txt file is the computer name and data within is simple:
--------------------
Audit of GQL license
Audit of Visio license
Audit of Frontpage license
Audit of Project license
Audit of Visual .NET license
Audit of Word (Office) licenses
Found Office
--------------------
as we can see here this computer has 1 licence for OFFICE.
If the string "FOUND" is found then i want to be able to paste the licence name in a spreadsheet and in the next cell underneath paste the filename it was found in the e.g.
VISIO
comp1,comp2,comp3,comp4
WORD
Comp2, comp3, comp4, comp5....and so on......
I have a list of customers and account numbers contained within a cell. I need a formula if possible that searches from the right of the cell and then returns the all the numbers. e.g.
Arsenal1234Required formula result 1234 Liverpool2456Required formula result2456 Chelsea100564Required formula result100564
I can not use text to columns as they data is not consistant. Also worth noting is that the customer numbers vary fro 1 digit to 9 digits long.
I 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 have about 2000 rows of text. Each row is a short write up about prospective new business. There is a reference to a projected dollar amount Within 'MOST' of the write-ups. In order to generate a report about the potential dollars being projected, I need to find an easy way to extract the dollar amount from the text.
In most cases, the projected dollar amounts are preceded by "FY2014" then a "$". However, there are a handful of cases where there is no FY2014, but some variation of the year indicator. Most of the dollar amount entries are written is short text - FY2014 - $5k, 2014 $15k. While some others are written out - FY2014 - $ - $20,000. In still other cases, within the writeup reference is made to the amount of product projected to be shipped by using the dollar symbols. For example - Estimated ship totals $$ for FY2014 = $5k. I've tried writing some formulas, but as in the last example - the first dollar signs are recognized rather than the dollar sign immediately before the value.
Sample data - Estimated ship totals $$ for FY2014 = $5K New Customer Prospect 4/9/2012 Customer has still not decided if he
2014 $15K Funco 4/7/14 working on the program for the demo ...
Over 130 samples tested with about 90% accuracy. FY2014 Ship $$ = $20,000 at least. Setter Line has 7 plants ...
I have this data and want to extract the character after the letter Y if the string has a Y in it.
Example data Output
AU 2013 OD ANR B24 Y2 2 AU 2013 OD ANR B24 Y4 4 AU 2013 OD ANR B24 Y5 5 AU 2013 PD HLD NOV B SPA AU 2013 PD HLD NOV C SPA AU2013OD ANR B25 Y1 1 AU2013OD ANU B25 Y5 5 AU2013OD WCR FPVN B49 AU2013OD Y6 FPVN B49 6 AU2013OD WCR FPVN B40 AU2013OD WCR FPVN B43
Best approach for searching for a piece of string from a multi-lined cell. I am trying to do it via VBA but can't seem to figure it out. I tried FIND and Instr. I was thinking of converting the multiple lines into a single line then do an instr comparison from the result but I don't know how to do it.
Sample:
String to search = "MARY" Output Location value
Table: Location-----Names US ----------JOHN AND RINGO ----------MARTHA YULET
UK-----------JAMES THE FIRST -----------HENRY THE FIFTH -----------MARY HAD A LITTLE LAMB -----------JOHNNY BRAVO
Cells in column "Names" has multiple lines Cells in column "Location" are not merged....
I need to find a way to find the first nonzero character in the string, and what position it is in. For instance, in the above example, 2 is the first non-zero character, so the function would return 5, since the 2 is the fifth character into the string.
I'm trying to search for a string and move the entire data to another sheet. For example,
Loading... 1 2 3 4 5 6 7
Loading... 3 4 5 6 4 3
Loading... 6 7 8 9 5
What I'm trying to do is to search for the string "Loading..." and move the entire data from "Loading..." onward to another sheet. So the first; "Loading..." 1234567 will be in sheet 1, second; "Loading..." 345643 will be in sheet 2 and third; 'Loading..." 67895 will be in sheet 3.
I have a table of data that I need to find the leftmost and rightmost number in that are greater than a specified number in another cell. I've attached a spreadsheet to show what I've got to work with.
I need to do this 1 row at a time and have the outcome in descending cells on the right hand side of the 2 example rows.
I need to figure out a way to search for a string in column D and then paste the entire row that string is in to a new sheet. I'd like for this to continue until I paste all of the rows of that string into the next sheet. This is what I got so far, and when I run it, it says an error occurs and then it says either press enter or paste. After I hit enter, it pastes the first row to the next sheet, but that's it. Also should I be doing this with a button?
Code: Sub SearchForString() Dim LSearchRow As Integer Dim LCopyToRow As Integer
The Code below searches for a file and displays how many files by that name it found.
Sub Test() With Application.FileSearch .NewSearch .LookIn = "C:" .SearchSubFolders = True
.Filename = "Temp.txt"
If .Execute > 0 Then MsgBox ("Success: " & .FoundFiles.Count) Else MsgBox ("Fail") End If End With End Sub
However, Flashdrives are a common use among those that will use the code, such that I need the code to not only search the hard drive C: but all hard drives and flash drives. Using .Lookin = My Computer did not find the files stored on my Flash Drive. It finds it using .Lookin = "K:" but I can not rely on my flash drive always being K:. It does not find it using .Lookin = "PumaFlash" (Name of flash drive)
I'm looking for one of two things: Code that will Search all hard drives and flash drives (optical drives can be included) at once Code that will Find path for all hard drives and Flash drives and then search them separately
I have a number of project files that are maintained on the network.
These files are named "XXXXXX Project Name.XLS".
XXXXXX is the project number. This numbers are unique, so there is only one file per number within the directory. Project names are mostly unique, but sometimes they could be same for a specific site.
We recieve financial data in excel file format from home office. These reports reference only the project numbers, not the name.
I have created an excel program that extracts project numbers and related financial data from the report [from home office].
I would like to create a button or check box next to each project number in my program and link it to the respective file on our network. Once I access the local file on the network I could copy the financial data in its right place.
The problem is opening the file based on project number only, while the file names contain Project Name as well.
So, can I look up a file by only searching for first six characters of the name?
Or can the Hyperlink function work with some sort of wildcard? I can write the formulas to create the hyperlink and then write a macro to look for that file, but I need to be able to find and open the file by looking up only the first six characters.
I have been asked to fix a macro that is supposed to search column B and find any cells ending with .mov. Any row fitting the criteria is to be copied to Sheet2. The file is a internet traffic log and we are trying to determine the number of downloads we have on our video files, which are all .mov format. Sheet1 can exceed 3000 rows.
The sub i'm currently using does an instr search for a unique string in an xml file. This works fine but i'd like to speed up the search if possible because I have a large number of xml files to search. My problem is that i have very little experience in parsing xml.
I notice that if i load the xml file and look at the namespaces i see item(1) through about item(20) and the unique string is always contained in one of those items. Note that the number of items can be different for each xml file i load.
The xml file is loaded into an object i define as oInstance and i'd like to do something like:
Do counter = counter+1
if oInstance.namespaces.item(counter) = uniquestring then[code]....
is it possible to type a document name in a cell,then run a code that searches a root dir and sub folders, find the existing document and open it?? for example
I read in a txt file with the code below. There's some kind of special character in the last 3 lines of the input file that makes the macro crash. I don't need anything in those 3 rows. How can I delete them before my Do Until loop? ----- Sub Mytxt() Dim Mytxt As String Mytxt = Application.GetOpenFilename(FileFilter:="EXCEL files (*.txt),*.txt", Title:="Open the Report file you need")
If Mytxt = "" Then Exit Sub Workbooks.Open Filename:=Mytxt Open Mytxt For Input As #1 i = 1 Do Until (EOF(1) = True) Line Input #1, tempstr Cells(i, 1) = Mid(tempstr, 23, 5) Cells(i, 2) = Mid(tempstr, 25, 1) Cells(i, 3) = Mid(tempstr, 33, 3) i = i + 1 Loop Close 1 End Sub
I am trying to search through an excel worksheet using the code below. I have a Form containg a text boxes and a command button (SearchTxt, FindCmd). The VBA program is able to search through XL but (1) It does not set the next value or text in a the worksheet active
(2) It only finds a value or text as an entire cell and not as a set of characters in a cell.
I tried to use Cells.Find method that solves the above problems, but i get an error message-Object variable not set (91) .
Private Sub FindCmd_Click() Dim Rng1 As Variant
If SearchTxt.Text = "" Then MsgBox "Please enter Vendor Number.", vbOKOnly, "Error" End If
Set Rng1 = Range("A1:F10000").Find(what:=SearchTxt.Text, Lookat:=xlWhole, _ LookIn:=xlValues, SearchDirection:=xlNext) If Rng1 Is Nothing Then MsgBox "Cannot Find" & " " & SearchTxt.Text & ".", vbOKOnly, "Sorry" Else Rng1.Activate
I am trying to write a macro to open a specific file, but need to search multiple folders within folders to find it.
The file name I need to open is "Escalation Adherence-Details " & Format(Date, "mm-dd-yy") & ".xlsx".
I need to drill down to the Adherence Report folder and then have the macro search through folders for each year (2012, 2013, 2014, 2015, etc) and then each month within each year (1 January, 2 February, 3 March, etc), at which point I would then find that day's file.
So far I have the following:
Code: Sub Open_ESCL_Report()
Workbooks.Open Filename:=*****.****.****.******.comsharesPurchasingTeam XEscalationAdherence Report & "Escalation Adherence-Details " & Format(Date, "mm-dd-yy") & ".xlsx" End Sub
Each file is stored in it's respective month folder as .....Adherence Report(Year)(Month)(File).xlsx
I have doc with app 1000 rows of data, one col being product description. I want to simply search the entire description column for a particular string of characters and enter a 1 in a new adjacent column where there is a match. Where there is no match, I want a 0 or a blank.
I have an existing spreadsheet with a column of strings (actually VIN numbers). These numbers correllate to a bunch of text files, that can exist in one of three folders (UsernameDesktop1, 2, or 3) on my desktop. What I need the macro to do is:
1) get the filename from A2 (A1 is a heading row) 2) Find the appropriate text file in one of the three folders 3) Put the folder name into I2 4) Scan the text file for some strings, and copy some data that follows those strings into J2:O2 (I can handle programming this) 5) Close the text file 6) repeat above for the remainder of filenames (about 1800 files)
I want to search a longer text field for a shorter string that may be within it. However, I want to do this for multiple short strings.
For instance:
PhraseHidden word Please search the text for the hidden message: Blue The hidden word, Green, may be at any point And the word may be different lengths like Yellow
I have a table of the hidden words (Blue, Green, Yellow, Pink)
I know I could use search to find one word, but is there a way to look for multiple words, and return the value of which one it finds? I have many hidden words (and the list is dynamic) so I don't want to just split into multiple searches.
I have a column that is filled with text of varying lengths and I'd like to search through each cell in that column looking for a specific word or words. Unfortunately the length of the text varys greatly between each cell and there is very little uniformity so I need to be able to search through the entire entry in each cell and then highlight that row if a specific word or words are found.
I'd also like to be able to add a number "1" in another column on the same row if the search finds a word or words. Any help would be greatly appreciated.
If the cell only contains the exact word or string I'm looking for then it's easy but I can't figure out how to search through text in a cell that contains more than I'm looking for.
example: Lets say I'm loooking for "caught fire" column Q contains: 1 "The computer caught fire after several hours" 2 "A house on the hill caught fire"
If "caught fire" exists in the cell being checked, then highlight the row and put a 1 in a specific column, lets say J.
field B7 b7 ; field a8 @latestdate("PCP2EHSEAAAAh", jEnd); field b8 @if(a8 <jStart, @latest("PCP2EHSEAAAAh", jEnd), @avg("PCP2EHSEAAAAh", jStart, jEnd)); --------------------------------------------------------
I want to look through this text and copy out any 13 character codes that are present (e.g. "PCPACIMTAAABl" ,2 "PCP2EHSEAAAAh").
These codes all share the following characteristics,
1) they are all 13 characters in length 2) the last character in the code is always either a "l", "h" or a "c". 3) they contrain no spaces 4) the first 12 characters are always in CAPS (followed by a lower "l", "h" or a "c".
I have very large spread sheet with alot of data. My goal in this is to create a seperate simplier spread sheet with some basic information to work with day to day chasing.
My spread sheet will consist of 1 work book but to pages page 1 the main with all the info page 2 the simplified version.
The first column in the first page consists of company names. The first column in the second page is also company names. What I want to do on the second page is take certain pieces of data from page 1 on page 2 as well.
So for example page 2 column 1 will have company name and column 2 will have certificate number. On page 1 the certificate number is column 16
What I would like is for page2 to column 2 to do is search for page 2 column 1 text in page 1 and input the value of page 1 column 16.
I receive a spreadsheet with over 400 lines of data every month. One row (J) contains information from companies with account details. The problem is that the info uses different formats, so the data strings within the cells can be quite long (sometimes over 100 characters, including spaces, dashes and slashes). The one identifier within each data string is a name, usually somewhere in the middle.
So for example a reference to JOHN SMITH might be "123456-01-smith/john-01/01/10-London-Edinburgh" or "2010-01-01-123456/SMITHJOHNMR/123456". I have a list of names (Column Y) and what I need is some way (probably VBA) for Excel to look down the list of references and compare them to the list of names, and if one of the names appears anywhere with in a text string, to put the name in column K. So if 4546/JohnSmith-01/08/13 or Leeds-London-123SmithJohn789 appears, put John Smith in column K, if 0123-MrFredBlogs-0321-5 appears, put Fred Bolggs in column K.
