Trying to parse data I need from large text files- SOLVED

[d dubya]

Hi!
I'm brand new to the forum here. I work for a communications company, and I'm responsible over the next couple of days with monitoring our remote sites and how they are being impacted by Hurricane Sandy. One of my responsibilities is going through huge system reports, and parsing out the important data to send out to my coworkers. A VERY small sample of pertinent data that I'm looking for is below:

CELL 28 COMMERCIAL POWER FAIL
CELL 28 GENERATOR RUNNING
CELL 32 COMMERCIAL POWER FAIL
CELL 32 GENERATOR RUNNING
CELL 40 COMMERCIAL POWER FAIL
CELL 40 GENERATOR GENERATOR FAIL
CELL 40 BATTERIES ON DISCHARGE
CELL 40 HVAC FAIL
CELL 40 HIGH TEMP
CELL 68 COMMERCIAL POWER FAIL
CELL 68 GENERATOR RUNNING
CELL 68 GENERATOR LOW FUEL

How do I, when I paste this data into column A, have a list appear in another column showing, for example, all sites that have generators running, or all sites that have high temp alarms? Any help I could get on this wuold be greatly appreciated.

Thanks,
Dave

[d dubya]

I apologize, Jeff. I will read the forum rules and FAQ's before posting in the future.

I have edited the title of my post. Please let me know if you still see anything wrong with it.

Thanks,
Dave

[Norie]

Dave

What in the data represents a generator?

[mike7952]

Can you upload a sample of your workbook and show the expected results?

[FDibbins]

what codes do you want to display? you could have a series of columns with each "code" as a heading and then use this formula, copied down and across

=IF(ISNUMBER(SEARCH(B$1,$A2,1)),"Yes","")

i copied your example into A2:A13, and in B1 had a heading GENERATOR RUNNING

[xladept]

Hi D Dubya,

Here's a routine that if you write the phrase ie COMMERCIAL POWER FAIL on your sheet (or you could use it as a header)

then select that phrase - and run it, you'll get a listing of all the cells in A that contain that phrase.

Sub Sandy(): Dim P As String, i As Integer, A As Range, R As Range
Set A = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
P = Selection: i = ActiveCell.Row
For Each R In A
If InStr(1, R, Selection) Then
i = i + 1: Cells(i, ActiveCell.Column) = Left(R, 8)
End If: Next: End Sub

[d dubya]

FDibbins and xladept;
Thanks for your quick responses!. Both of these work for me.

I really appreciate it, as I was crunched for time.

Now to put it to use.

Thanks again,
Dave

[FDibbins]

you'r welcome. If this answered your question, please take a moment to mark the thread as "solved" - it helps keep things neet and tidy lol, and consider adding the reputation to those that helped (see points 2 & 3 below)

[xladept]

You're welcome!