Formula to get Number out of the tag

Good crew it's cool :) kamagra osterreich bestellen Obama also hits the road again at the end of next week, this time on official business. He's scheduled a bus trip through upstate New York and Pennsylvania to talk about making a college education more affordable. Thursday's stops include the State University of New York at Buffalo and Henninger High School in Syracuse. On Friday, Obama planned to answer questions at a town hall-style event at SUNY-Binghamton before a stop at Lackawanna College in Scranton, Pa. He is to be joined there by Vice President Joe Biden, a native of the northeastern Pennsylvania city. health.augo.au.dk During the course of the day police relaxed the security perimeter around the center of Lac-Megantic, a lakeside town near the border with Maine. Authorities said that over the next few days around 1,500 of the 2,000 people who had been evacuated would be allowed to go back home. clindamycin phosphate and benzoyl peroxide side effects Introduced following the Government’s 2004 Schwartz Report into fairness for university applicants, adjustment was originally devised for students who – whether due to a lack of good advice from their teachers or a sudden, unexpected improvement in the classroom – went for more conservative, less aspirational choices in their initial applications. doxycycline 20 mg india In the first study to closely examine the polyunsaturated fatty acid (PUFA) intake among U.S. children under the age of 5, Sarah Keim, PhD, principal investigator in the Center for Biobehavioral Health at The Research Institute ... quantum pills reviews ** The National Hockey League sold the Phoenix Coyotes onMonday to a group of investors headed by Canadian businessmenGeorge Gosbee and Anthony LeBlanc, successfully ending afour-year search for a new owner who would keep the team inArizona.

  Devbrat Tripathi

Hi, here is one more VBA UDF solution

Function EXTRACTHASNUMS(RefCell As String) As Long


While InStr(1, RefCell, "<") > 0


iStart = InStr(1, RefCell, "<")


iEnd = InStr(RefCell, ">")


StrRep = Mid(RefCell, iStart, iEnd - iStart + 1)


RefCell = WorksheetFunction.Substitute(RefCell, StrRep, "")


Wend


   EXTRACTHASNUMS = RefCell


End Function




  Asheesh Mattoo       06 Aug 2016       1       0     

For example, use

[B45] =MyExtract(A45, 2, "B", " ")

Function MyExtract(MyText As String, ItemNo As Integer, FrontOrBack As String, Optional MySeparator As String) As String

' This function will scan a string containing at least TWO words, each separated
' by a specified character and extract one of the words. It can extract the word
' (or SubString) counting from either the Back or Front of the text.
' [www.meadinkent.co.uk]
Dim LenText As Integer, n As Integer, CountSpaces As Integer
Dim MySt As Integer, MyFin As Integer, MyStep As Integer, Mk1 As Integer, Mk2 As Integer

' MySeparator was an optional parameter
If Len(MySeparator) = 0 Then MySeparator = " "

LenText = Len(MyText)
' You cannot extract a word if length is LT 3 chars
If LenText < 3 Then
MyExtract = "*"
GoTo MyEndBit
End If

' set the direction in which the text is examined
If UCase(FrontOrBack) = "F" Then
MySt = 2
MyFin = LenText - 1
MyStep = 1
Else
MyFin = 2
MySt = LenText - 1
MyStep = -1
End If

' identify the position of characters matching the separator
For n = MySt To MyFin Step MyStep
If Mid(MyText, n, 1) = MySeparator Then
CountSpaces = CountSpaces + 1
If CountSpaces = ItemNo - 1 Then Mk1 = n
If CountSpaces = ItemNo Then Mk2 = n
End If
Next n

If CountSpaces = 0 Then
MyExtract = "*"
GoTo MyEndBit
End If

If UCase(FrontOrBack) = "B" Then
n = Mk1
Mk1 = Mk2
Mk2 = n
End If

If Mk2 = 0 Then Mk2 = LenText + 1
Mk1 = Mk1 + 1

MyExtract = Mid(MyText, Mk1, Mk2 - Mk1)
MyEndBit:
End Function

  CA Vikram Shankar Mathur       31 Jul 2016       0       1     

Thank you for providing the solution of my question.

Finally i got the answer of my question through formula as well. you can use below mentioned formula to solve the problem-

=IFERROR(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(MID(B1,FIND("EventProductId",B1)-1,LEN(B1)),"""EventProductId""",""),"</object></collection>",""),"value",""),"field",""),"/",""),">",""),"name=",""),"<",""),"s","")),"No Product")


Thanks...


  Devbrat Tripathi       08 Aug 2016       0       1     

Thank you for providing the solution of my question.

Finally i got the answer of my question through formula as well. you can use below mentioned formula to solve the problem-

=IFERROR(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(MID(B1,FIND("EventProductId",B1)-1,LEN(B1)),"""EventProductId""",""),"</object></collection>",""),"value",""),"field",""),"/",""),">",""),"name=",""),"<",""),"s","")),"No Product")


Thanks...


  Devbrat Tripathi       08 Aug 2016       0       0     

Post Your Answers:

Please use the CODE HIGHLIGHT Button to format/highlight your codes if any