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
ex
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% *22
