If error in UDF

**daboho** · 01-17-2018, 09:42 AM

I have data in col 1
a1= alex berbec
a2 = asoi
a3= john travolta
Etc

 Function UD(r as range)
UD = split(r.value, " ") (1)
End function

I want take split first split
In b1= berbex
In b2 =asoi
In b3 = travolta
But in A2 = alex udf will be error
How to else my udf

function UD ( r as range)
UD =iif(iserror(UD),r.value,split(r.value, " ")(1))
End function

But still error

**AlphaFrog** · 01-17-2018, 10:50 AM

Function UD(r As Range)
    Dim vSplit As Variant
    vSplit = Split(r.Value, " ")
    UD = vSplit(UBound(vSplit))
End Function

**daboho** · 01-17-2018, 10:52 AM

I am sorri alpha frog
In a10 = albert ender linon
In b10 = ender

**Norie** · 01-17-2018, 10:55 AM

Perhaps.

Function UD(r As Range)
    If InStr(r.Value, " ") Then
        UD = Split(r.value, " ") (1)
    End If
End Function

**daboho** · 01-17-2018, 11:22 AM

Norie
If name in A11 = norie and in B11 = norie
If name in a12 = norie prime b12 = prime
If name in a13 = norie prime ayg b13 =prime

**xlnitwit** · 01-17-2018, 10:57 AM

If you always want the second name if there is one, first otherwise, you might use

Function UD(r As Range)
    Dim v
    v = Split(r.Value, " ")
    UD = v(1 + (UBound(v) = 0))
End Function

**daboho** · 01-17-2018, 11:35 AM

Its right job xlnitwit

**AlphaFrog** · 01-17-2018, 12:48 PM

This non UDF formula may work as well.

Formula:

=IF(A1="","",IF(ISERROR(FIND(" ",A1)),A1,TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",50)),50,50))))

**daboho** · 01-17-2018, 08:37 PM

Thankyou friend

Re: If error in UDF