check the attachement
Function extractdate(x As String) Dim i, j, k, s, t As Integer x = x & " " i = Len(x) j = InStr(x, "%") For k = j To i If IsNumeric(Mid(x, k, 1)) Then s = k Exit For End If Next k For k = s + 1 To i If Mid(x, k, 1) = " " Then t = k Exit For End If Next k extractdate = Mid(x, s, t - s) End Function On Mon, Jan 24, 2011 at 5:20 PM, Manoj kumar <manoj.vishwakarma...@gmail.com > wrote: > Hope this may help you... > > > Regards, > Manoj Kumar > > > On Mon, Jan 24, 2011 at 1:04 PM, Chidurala, Shrinivas < > shrinivas.chidur...@citi.com> wrote: > >> Dear All, >> >> Please can any one help me to extract date in given securities by way of >> VBA code and formula. >> >> *Security* *Date* REC 07.60% *22JAN13* 22-Jan-2013 08.80% STATE BKOF >> BK&JAIPUR *05SEP11* FD GAIL INDIA LIMITED HDFC 0.00% *24AUG12* LIC >> HOUSING FINANCE 07.50% *10JUN13* >> >> Regards, >> Shrinivas >> >> -- >> >> ---------------------------------------------------------------------------------- >> 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* * * *Ashish Koul* *akoul*.*blogspot*.com <http://akoul.blogspot.com/> *akoul*.wordpress.com <http://akoul.wordpress.com/> My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830> P Before printing, think about the environment. -- ---------------------------------------------------------------------------------- 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
test.xls
Description: MS-Excel spreadsheet