LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 211
Default Extracting Digits From Text

What could be wrong with the following piece of code for a UDF?

Function NFW(RNG As Range)
Dim RSLT As String
RSLT = ""
For X = 1 To Len(RNG)
If Asc(Mid(RNG.Text, X, 1).Value) 47 And _
Asc(Mid(RNG.Text, X, 1).Value) < 58 Then
RSLT = RSLT & Mid(RNG.Text, X, 1)
End If
Next
NFW = RSLT
End Function

--
Thanx in advance,
Best Regards,

Faraz
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Extracting first two digits of a time entry!! roshinpp_77[_20_] Excel Programming 4 August 8th 06 01:29 PM
extracting digits to the right of a decima point Steve Excel Worksheet Functions 2 August 2nd 06 10:17 PM
extracting digits to the right of a decima point David Billigmeier Excel Worksheet Functions 0 August 2nd 06 10:05 PM
Extracting 1st 3-digits of postal code that begin with 0 Pcakes Excel Worksheet Functions 8 June 22nd 06 11:35 PM
extracting numbers with no more than 8-digits using advanced filtering Gauthier Excel Worksheet Functions 10 October 29th 04 10:06 PM


All times are GMT +1. The time now is 10:03 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"