Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / General Excel Questions / March 2008

Tip: Looking for answers? Try searching our database.

VBA to split contents of cell

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Brennan - 14 Mar 2008 19:24 GMT
I have huge sheet with thousands of non-standard lines of text.  Some of the
lines have the following line in a cell:

ProjID=MFG-Company-DA-33 ProjType=BBAA Uplift=0 CostType=Time Mgr=Smith

I would like to understand how to write the VBA that will skip the lines
that don't match this format and then Break out the items that do.  This is
what I have so far.

some sort of loop statement here

If activecell.value (left(5))="projID" then
' this is where a need the help. I want to move everything after ProjID= to
Type= to the next column then move everything after Type= to Uplift= to a
column 2 columns away and so on for the rest of the line.  

else activecell.offset (-1,0)

loop

End if

Thanks for the help.   I would use text to columns, but only few of the
cells follow the format listed above.  Thanks
acbservices@gmail.com - 14 Mar 2008 19:47 GMT
Use Autofilter to check the left side of the string. It should be
faster than looping through all the cells.

PB
Brennan - 14 Mar 2008 20:25 GMT
PB,

Thanks for the reply.  I'm trying to automate this so I change the value of
those cells and leave the cells that do not fit the format are not changed.  
If I autofilter and then do the text to columns, it would still affect the
non conforming cells.  Any advise?  Thanks in advance.

B
Ron Rosenfeld - 14 Mar 2008 20:32 GMT
>I have huge sheet with thousands of non-standard lines of text.  Some of the
>lines have the following line in a cell:
[quoted text clipped - 20 lines]
>Thanks for the help.   I would use text to columns, but only few of the
>cells follow the format listed above.  Thanks

You haven't specifically defined your format, and I'm not clear if you want the
label to be extracted also, but I made these assumptions to attract the various
segments:

Each segment to be extracted is preceded by a specific ?????= and followed by a
<space>.

The ?????= labels all occur in the order given, and there are five of them in
each relevant line.

If the pattern doesn't match, extract nothing.

That being the case, the macro below will extract the relevant data, from lines
that match the format above:

========================================
Option Explicit
Sub SplitSome()
Dim rg As Range
Dim c As Range
Dim i As Long

'set up the range to process
'can be done in a variety of ways
'below assumes the range is contiguous
'and in one column

Set rg = Selection(1, 1)
Set rg = Range(rg.End(xlUp), rg.End(xlDown))

'set up pattern for regex engine
Dim re As Object, mc As Object
Dim Str As String
Set re = CreateObject("vbscript.regexp")
   re.Global = True
   re.Pattern =
"ProjID=(.*?)\s+ProjType=(.*?)\s+Uplift=(.*)\s+CostType=(.*?)\s+Mgr=(.*)\s*"
'check all lines
For Each c In rg
   Str = c.Value
'if the pattern doesn't match, will return nothing
If re.test(Str) = True Then
   Set mc = re.Execute(Str)
       'there must be five segments
           For i = 1 To 5
               c.Offset(0, i * 2).Value = mc(0).submatches(i - 1)
           Next i
End If
Next c

End Sub
=========================================
--ron
Brennan - 14 Mar 2008 20:47 GMT
Outstanding - thank you.  Very helpful!

b
gavin - 14 Mar 2008 21:07 GMT
> Outstanding - thank you.  Very helpful!

I am constantly amazed at the knowledge of the people here. I consider
myself to be an adept intermediate Excel user - but sometimes I don't even
understand the questions asked here never mind the solutions  :-)
Ron Rosenfeld - 15 Mar 2008 01:03 GMT
>> Outstanding - thank you.  Very helpful!
>
>I am constantly amazed at the knowledge of the people here. I consider
>myself to be an adept intermediate Excel user - but sometimes I don't even
>understand the questions asked here never mind the solutions  :-)

Me too.

And sometimes it can be very tough to figure out the question.
--ron
Ron Rosenfeld - 15 Mar 2008 01:01 GMT
>Outstanding - thank you.  Very helpful!
>
>b

Glad to help.  Let me know if it requires any "tweaking".
--ron
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.