Sub mobile() Dim i As Integer Dim strPath Dim strFile Dim UB For i = 1 To 400 strPath = Cells(i, 1) '------------- stores the value of the cell in the variable *strpath (* iterates between A1:A400) strFile = Split(strPath, ".") '------------- splits the value to an array * strfile* usng '.' as the seperator UB = UBound(strFile) ' -------------stores the last value of the aray in * UB *Selection.Value = strFile(UB) ---- stores the value of UB in the selected cell i = i + 1 Next i End Sub
On Fri, Jun 24, 2011 at 4:11 PM, ICWAI Help <icwai.answ...@gmail.com> wrote: > Hi Ashish, > > i have below code but i dont know whts the wrong with this. > please chekc and guide me thansk for you continues help. > > Thanks, > Rakesh. > *Sub mobile() > Dim i As Integer > Dim strPath > Dim strFile > Dim UB > For i = 1 To 400 > strPath = Cells(i, 1) > strFile = Split(strPath, ".") > UB = UBound(strFile) > Selection.Value = strFile(UB) > i = i + 1 > Next i > End Sub* > > On Fri, Jun 24, 2011 at 2:58 PM, Brajesh Kumar Porwal < > brajeshkumarpor...@gmail.com> wrote: > >> Dear Expert, >> >> >> I need your help because I have more data of Multiple format. I want >> extract only 10 digit mobile number. >> >> Please find enclose example file. >> -- >> -- >> One Team One Dream One Goal >> >> Warm Regards, >> Brajesh >> 7503020750 >> >> Life is Very beautiful !!! >> ¨`•.•´¨) Always >> `•.¸(¨`•.•´¨) Keep >> (¨`•.•´¨)¸.•´ Smiling! >> `•.¸.•´. >> >> -- >> >> ---------------------------------------------------------------------------------- >> Some important links for excel users: >> 1. Follow us on TWITTER for tips tricks and links : >> http://twitter.com/exceldailytip >> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 >> 3. Excel tutorials at http://www.excel-macros.blogspot.com >> 4. Learn VBA Macros at http://www.quickvba.blogspot.com >> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com >> >> To post to this group, send email to excel-macros@googlegroups.com >> >> <><><><><><><><><><><><><><><><><><><><><><> >> Like our page on facebook , Just follow below link >> http://www.facebook.com/discussexcel >> > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > -- Regards Vasant -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel
