Try this Jindon function:
Function TextNum(ByVal txt As String, ByVal ref As Boolean) As String
With CreateObject("VBScript.RegExp")
.Pattern = IIf(ref = True, "\d+", "\D+")
.Global = True
TextNum = .replace(txt, "")
End With
End Function
=TextNum(A1,1)
1 for Text only, 0 for Numbers only
On Mar 30, 2:25 am, Abhidha Dixit <abhidha.di...@gmail.com> wrote:
> Dear All
>
> I am seeking for the reply of one queryy
> how to seperate alphats and no.
> eg: jdsdnc2123asdd
> iofruif68732fnvv
>
> thnks in advance
>
> regards
> Abhidha
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678
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
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
To unsubscribe, reply using "remove me" as the subject.
