Hi!
Could you recommend a Macro that can trim contents of a Cell?
What Im trying to achieve is to create a VBA Macro to trim a Cell, leave only the text following "O:"
On Cell A1 I have this value:
"Location: C:\Test Folders O: Trevayne, Andrew"
I'd like this to be trimmed and have a return value on A2
Trevayne, Andrew
Can this be done via VBA and not by Formula?
Cheers,
Andrew
Last edited by Andrew.Trevayne; 10-10-2011 at 04:29 AM.
Maybe:
=MID(A4,SEARCH("O:",A4,1),2)
Why do you want to do this via VBA? Formulas are faster
with VBA try this
Sub Makro1() Dim cel, cel1 As Variant cel = Range("a1").Value cel1 = WorksheetFunction.Search("O:", cel) Range("a2").Value = Right(cel, Len(cel) - Len(Left(cel, cel1 + 2))) End Sub
Regards
tom1977
If You are satisfied with my solution click the small star icon on the left to say thanks.
As a VBA function:
Public Function ExtractStr(rng As Range) As String ExtractStr = Mid(rng.Value, InStr(1, rng.Value, "O:"), 2) End Function
Perfect! Just the way I wanted it! Thank you so much sir. ^^
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks