Question and need help

[Ks1102]

Hi, pls help
Question If the range cells contents anything how would I just only get the value in that which number = 4 digi.
For example
Cells (1,1).value = (Wellington 0930 Mr.Roger )

Cells (2,2) = cells(1,1)……don’t know how to present the statement !!! Result = 0930

Do any idea?

 

[nuked]

You could create your own function. Put this in a new module:

Option Explicit

Function GetNumber(rng As Range) As Double
Dim var As Variant
Dim l As Long
var = Split(rng, " ")
For l = LBound(var) To UBound(var)
    If IsNumeric(var(l)) Then
        
        GetNumber = var(l)
        Exit Function
    
    End If
    
Next l
End Function

Then use it like this on your worksheet =GetNumber(A1)

 

[Ks1102]

You could create your own function. Put this in a new module:

Option Explicit

Function GetNumber(rng As Range) As Double
Dim var As Variant
Dim l As Long
var = Split(rng, " ")
For l = LBound(var) To UBound(var)
    If IsNumeric(var(l)) Then
        
        GetNumber = var(l)
        Exit Function
    
    End If
    
Next l
End Function

Then use it like this on your worksheet =GetNumber(A1)

Thanks very much as it very imaging

 

[Ks1102]

Thanks very much as it very imaging

May i asked help again as Error below what i built for module as
Sub P()
Dim GetNumber As WorksheetFunction
For I = 1 To 13
Cells(I, 5) = WorksheetFunction.GetNumber.Cells(I, 4)
Next I
End Sub