View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Jim May Jim May is offline
external usenet poster
 
Posts: 477
Default Please help with removing text string

Paste this code into a Standard Module of your Workbook:

Public Function GetNumPart(c) As String
Dim i As Integer
Dim MyString As String

'Returning numeric value from string'
MyString = ""
For i = 1 To Len(c)
If InStr(1, "0123456789", Mid(c, i, 1), vbTextCompare) 0 Then
MyString = MyString + Mid(c, i, 1)
End If
Next i
GetNumPart = MyString
End Function

Then at a sheet
Example, if in cell A1 you had: Zorgia [NBK-R] (-89,113) Defending
In B1 enter =GetNumPart(A1)

B1 will (should) produce 89113



"excelator" wrote:


For example I have data MK12345 and would like to remove the text from
that so I only have the numerica value return.

What VBA code do I use?

PS: Is there a list somehwere which will list description of all the
functions available?


Thank you!


--
excelator
------------------------------------------------------------------------
excelator's Profile: http://www.excelforum.com/member.php...o&userid=37504
View this thread: http://www.excelforum.com/showthread...hreadid=571567