I will have a cell that has company names in it and I need to parse each name an then do some work with them but when I started this project I was told each company will be seperated by some number of spaces.
Ex.) |Company1(534553) Company2(3544)|
Right now this is how I'm parsing a line like this:
I receive a flat text file every week which I would like to grab with excel and extract only the data I need and enter the data into separate cells and loop until I reach the end of the flat file. I got a subroutine written that allows me to open my text file and it will enter all the data however I need to know how to parse only the stuff I need and enter it into the right cells and loop until I reach the end of my text file. Here is what I have so far:
Sub testFSNew()
Dim fs As Object ' scripting.filesystemobject
Dim txtIn As Object ' scripting.textstream
Dim strFile As String 'File Name
Dim strLine As String 'Current line being read.
[code].....
Now so far this opens the text file and dumps all the data into an excel spreadsheet however when I say all I mean it dumps everything into the first cell and does not separate it, the following is an example of the text in the flat file. I will only put in the first 5 rows because their is 5000 rows in the real file.
HDR20120710
001010000366175270012008085197804171984102919730621DOE BJ52702B25713700000000016005
00101000036617JOHN 109080 55512345671978093000000001MACHINE REPAIR 4
001010000997885270002010384198910301989103019891030SMITH DS52501C257077S0000000000005
00101000099788ROBERT 109109 55523456781999082700000001ELECTICIAN-PROJECT COORD 4
Ok so the first problem is I don't need the first line it's a header line and if you will notice everyline of the file ends with either a 5 or a 4 but it is information about each employee, so the next line would end in a 5 and that would be the beginning of the next employee.
P.S. I noticed in the preview post that this message board truncated my flat file data, so keep in mind that each line is indeed 1 line ending in either 5 or a 4
If I have a cell that has the following information: DEF(352) HHY(24533) KLDD(3334)
And I extract that to a String with the following
Basically I have xml strings that are pulled out of a database all in the same format as below.
In between the 2 pharses below I need to pull out the value in between
For this example it is N.
A1<?xml version="1.0" encoding="iso-8859-1" ?>
<StudentPersonal_XML><BirthToThreeServices>
</BirthToThreeServices><EarlyInterventionParticipant>N</EarlyInterventionParticipant>
<LateReferralOther></LateReferralOther><LateReferralReason></LateReferralReason>
<Stu2<?xml version="1.0" encoding="iso-8859-1" ?><StudentPersonal_XML><BirthToThreeServices>
</BirthToThreeServices><EarlyInterventionParticipant>Y</EarlyInterventionParticipant>
<LateReferralOther></LateReferralOther><LateReferralReason></LateReferralReason>
Objective: To create a list of numbers based a cell which are present in an alpha-numeric string
Issues: "-" shows up at times without the context of numbers (i.e. MS-DRG)
Issues: I am not interested in float numbers (i.e. 37.63-37.66)
'Example data in cells (row 1 = A1, row 2 =A2, row 3 = A3, row 4 = A4)
MS-DRGs 767-768, 774-775
Rev 115, 125, 135, 145, 155, 655-656
Rev 174
MS-DRG 001 with ICD-9 37.63-37.66, 37.52
'Desired Results (row 1 = B1, row 2 =B2, row 3 = B3, row 4 = B4)
767,767,768,774,775
115, 125, 135, 145, 155, 655, 656
174
001
I need to parse text strings and format them.
The string looks like this and runs down an unknown number of rows in one column, Col A.
+000800-000900+00123456-000800+0012345650+000700
I want to parse this so that the results will be text to columns
80.0 90.0 1234.56 80.0 1234.56 50 70.0
I want to thank BrettH for creating this VB. I want to manipulate it to read every row in Col A that has data, and then I want to parse the data as shown above. BrettH's VB works but I couldn't modify it to read all the rows that had data. I tried looping the rows using a counter loop and also a For Each loop, but could'nt get it to work.
Sub ParseInCellMath()
Dim DefaultRange As String, UserRange As Range, OrigForm As String
Dim TempForm As String, NegString As String, NegStart As Integer
I receive a text file daily of between 100 to 50,000 rows. It is a combination of many smaller text files or " records". Each record contains a row containing the name and some particulars . From 1 to 5 rows below that row there may or may not be a row containing the score for that record.
Here is an example of what the rows look like;
4505329 64036593 150090 MS MARY SMITH AB Finished
CRP 3.0 SCORE: 400
From the first row I need to pull out the second string of digits (ex 64036593) and the person's name. From the second row I need to extract the score (400). I would like to copy the three pieces of information to 3 separate columns on another sheet.
Comments
1. the word "Finished" always appears at the end of the row with the name in it but it also appears at the end of every record in it's own row like this;
Finished No Note
2. the strings of digits in the first row can vary in length but there are always 3 of them and they are always seperated by spaces.
I need to extract all the names and scores and put them in a table. If a name is not followed by a score I need to put "no score".
I am working on modifying this code (below) that I found here: VB Macro to search webpage for text string
Code:
Option Explicit
Public stResultstr As String
Sub SearchForString()
Dim rngURL As Range
Dim cll As Range
Dim stCheck As String
Dim xmlHttp As Object
[Code]...
So right now I have the script prompt you for a URL range, then it asks you for what you want to search for, and I have it set to return the next 10 characters from that found point.
You can see here:
Code:
If InStr(1, stResult, stCheck, vbBinaryCompare) > intt Then
intt = InStr(1, stResult, stCheck, vbBinaryCompare) + Len(stCheck)
I began to create something to identify the last position of the found item because next I want to loop it to find the next occurance of the same thing and return the next 10 characters after it in the next cell to the right in that same row:
Code:
cll.Offset(, 1).Value = stResultstr
Again, what I want to do here is find and parse out every occurence of a string (inputbox) found on a web page url in column A. The parse occurrences will go to the right in cells C though ? for row N.
Sub test()
Dim rng, dest, c As Range
Dim result As String
Worksheets("sheet1").Activate
Set rng = Range([a1], [a1].End(xlDown))
Set dest = Range("d1")
result = ""
For Each c In rng
result = result & " " & c
Next
MsgBox result
dest = result
End Sub
the penultimate code statement "dest=result" does notwork the value of "result" is not entered in "dest" though no error comes up if I use "dest.value=result" it gives error "object required" If I use "range("d1")=result" it works.what is the theoretical mistake.
I really know nothing about vba so here goes. I would like to enter data in a row with 4 cells of info. then hit enter and return to the first cell and move the row down. all four cells must have data entered. and all four must move down. i tried some code as below i found and i modified but it did not work as expected. this moved the row down when returning the cursor to A2. It also should not copy the data style of the top row.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
[Code].....
This formula must be confirmed with CTRL+SHIFT+ENTER not just ENTER. You will see { } brackets appear.
View 3 Replies View RelatedI need to send a file to hundreds of users so that I can tell who has a particular add-in installed. This file will then be saved to a particular directory. The problem I'm having is controlling the error that occurs when the add-in is NOT installed. The below approach (using On Error Goto) clearly isn't the way to go. I need something like
If(Iserror(AddIns("AmartaSpecs") Then Cells(2,3)="No"
The code I have so far is:
Sub Amarta_Specs()
Dim a
'ActiveSheet.Shapes("Button 1").Delete
Cells(1, 1) = "Username"
Cells(1, 2) = "Computer Name"
Cells(1, 3) = "Add-in installed?"
Cells(2, 1) = Environ("Username")
Cells(2, 2) = Environ("Computername")
On Error GoTo Error
Set a = AddIns("AmartaSpecs")
Cells(2, 3) = "Yes"
Error:
Cells(2, 3) = "No"
ChDir "E:FinanceSQL Add-in test"
ActiveWorkbook.SaveAs Filename:="E:FinanceSQL Add-in test" & Environ("Username") & ".xls"
End Sub
I am trying to create a code in the Worksheet_change event. I have hundreds of rows of data in a sheet. Each row of data is one unique project. What I am trying to do is figure out if any cell in a specific row has changed, and place a date at the end of that row idicating the date of the change.
View 9 Replies View RelatedI have about 10,000 records which I need to split up into different fields, they are in the format prescribed below:
1 George Avenue
20-25 Alphingoton Close
Manors House
I want the above to be in this format:
Collumn 1 Collumn 2
1 George Avenue
20-25 Alphington Close
Manors House
Raw data:
1 acct01 John Doe 10
2 acct01 Hits 20
2 acct01 Runs 05
Goal:
1 acct01 John Doe 10 20 05
Searched answers but found nothing that helped. The following code results in the error - 1004 Reference is not valid. First cell is not empty and not the same as select.
' Sorting
oExcel.Columns("A:G").Select
On Error Resume Next
oExcel.Selection.Sort oExcel.Range("C2"), xlAscending, , , , xlSortNormal, xlSortNormal
If Err.Number > 0 Then
WScript.Echo "An Error Occured: " & Err.Number & " " & Err.Description
Err.Clear
End If
oExcel.Range("A2").Select
I work in the Oil and Gas industry and deal with large data tables that have "Location Codes" for lack of a better term.
The problem is that not all Databases use exactly the same format of code, they will however always have the following:
xx-xx-xx-xx ---> ie. a string of four numbers each seperated by a Dash.
This string sometimes will appear after a text name of varying length. With this in mind I would like to parse the four numbers into four different columns.
Things I've tried with some success:
Using the "Right" function to break off the location code off the end of the entire name, and then using the ".parse" command in VB to seperate the numbers at given intervals.
This is great for certain purposes however because the four numbers are not always 2 digits, and the ".parse" command cuts at given intervals it is hard to accurately parse an entire set of data.
Some examples of location Codes are given below:
9-23-78-11
WEST DOE 11-16-81-15
KNOPCIK 3-9-73-9
How to detect msgbox pup up event.
Does any function like msgbox.activate=true or somrthing can used.
I want to avoid msgbox show up and close msgbox automaticly.
I know
application.displayalters=False
But it's seem not to apply to msgbox close.
Trying to Parse text in Excel - Since there is no definitive length and no standard in the way the name is created , I am having tough time to use the Software reports.
A column is from software report,
I am looking for any option to arrive at values as appearing in F column.
I did B and C column but not sure is there any other efficient way of doing the same or any other formula to arrive at F - Desired Result.
I have a column that is a list of addresses. For example:
I need a formula to separate out the last words (city and state) from the rest of the address and put into a different cell.
I have an unusual request this time. Client wants this and I know it's dumb but this is what they need and I can't figure it out (not smart enough ).
They have the following as contacts in column A:
Belinda Jones & Grant Smith
Ken & Marie Johnson
Bart Simpson
They need this separated into a Contact 1 and Contact 2 so that it ends up like this:
Contact1 Contact 2
Belinda Jones & Grant Smith
Ken & Marie Johnson
Bart Simpson
This is a list of 10,000 names and I have no idea.
I'm looking for a worksheet function that will allow me to separate into another cell the characters between the second and third slash in the source cell. The number of characters varies, but the value I want is always between the second and third slash.
View 3 Replies View RelatedName They are all QC(Quality Control) then Rank
In cell A1:
Anderson, Bob QC, Top Gun
I need in B1:
Anderson, Bob
In C1:
Top Gun
What could I use to get these results? The QC, is consistant every time in each set of text.
Below are the addresses I get in Col H. For sample, just few of them.
GAINESVILLE TX 76240
Covington GA 30014
New York NY 10003
FISHERS IN 46037
BLOOMFIELD HILLS MI 48304
SAN DIEGO CA 92120
Chicago IL 60638
NORTH OLMSTED OH 44070
Toronto ON M9W 5E7
DEL RAY BEACH FL 33484
VALPARAISO IN 46385
MERIDIAN MS 39301
KERRVILLE TX 78028
Galveston TX 77554
FOREST HILLS NY 11375
MONTREAL QC H3A 1B4
As you can see, CITY name can be multiple words, STATE names are 2 Digit letters for both US and Canada, and ZIP Code is Numeric to US and Alpha numeric to Canada. I have all these in a single Column. I need to separate them into Col J,K, and L. I have the following formulae but these don't return exact parsing. For example; my formulas in order:
To parse CITY, '=LEFT(H15, FIND(" ",H15)-1)'
To parse State, '=MID(H15,LEN(J15)+2,FIND(" ",RIGHT(H15,LEN(H15)-LEN(J15)-2)))'
To parse ZIP, '=RIGHT(H15,LEN(H15)-LEN(J15)-LEN(K15)-2)'.
I searched this site and found the code below to check if a worksheet to be updated is already open. It works fine (gets the desired message) if the workbook is open, but if not open I get "Run-time Error 9, Subscript out of range". I've played with it for a couple hours,
VB:
Dim wBook As Workbook
'Check that Summary worksheet is available for update.
Set wBook = Workbooks("CommittedSummary.xls")
If wBook Is Nothing Then 'Not open
'Do nothing
Else 'It is open
i = MsgBox("The 'CommittedSummary.xls' workbook is already in use and
cannot be updated. Please try again when the workbook Is available", _
vbCritical, "Committed Request Edit")
Goto EndUpdate
End If
I have a column with employee id's. Sometimes two or more employee ID's are double. I need to dedect if there are ID numbers that appears more then ones. If I found such a number I can copy that.
Has someone an idea or is there a build in function to handle this?
How can I detect on an excel workbook which cell have links(formula =) to
other workbooks without have to put my cursor on top of each linked cell.
I have had a hard time finding this cells. I can see the links by choosing Edit
then links, and excel will display list of links, but it does not specify
which cells contain those links
I am doing a bit of data spring cleaning... I need some VBA that will look at column FT for duplicates. I want it then to keep only the most recent one, so it would delete the others rows completely. Column B contains a date and time. When removing the items it should make a copy of them to the sheet Delete Log.
View 1 Replies View RelatedI have a workbook with a few worksheets. In sheet1 I have a few ranges which are linked to different parts in the other excel sheets.
Is there anyway to check if a range is being used as a link in another sheet.
Eg.
In sheet1 , A1 i have a value Apple.
In sheet2, A1 I have linked it to sheet1 A1.
is it possible to detect the link in sheet2 A1 from Sheet1 A1? I tried using Trace dependents but all it shows me is the link symbol? An arrow with a small excel sheet.
Is there anyway to detect if the user has just printed. I have code which transfer data from the sheet to an access file when the user prints using the button I placed on the sheet, unfortunately some users are using the print button on the toolbar.
View 9 Replies View Related