tengo 4 valores de texto en diferentes columnas deseo compararlos

a).- Si con "mayor" te refieres al que tenga más caracteres, puedes lograrlo
con:

Function miNombre(rango As Range)
Dim celda As Range
For Each celda In rango
If Len(celda) > Len(miNombre) Then miNombre = celda
Next celda
End Function

Debes llamar a la función con: =miNombre(rango_con_los_nombres)
b).- Si con "mayor" te refieres al que tenga mayor número de código en su
primer caracter, habria que modificar la función.

Saludos desde Tenerife (España).
********************************************
"Roberto" escribió en el mensaje
news:

tengo como resultado 4 valores de texto en distintas columnas deseo
compararlos y obtener el mayor en otra celta.

muchas gracias ASanVal, te puedo enviar la hoja de calculo para que la mires
y opines.

"AnSanVal" escribió:

a).- Si con "mayor" te refieres al que tenga más caracteres, puedes lograrlo
con:

Function miNombre(rango As Range)
Dim celda As Range
For Each celda In rango
If Len(celda) > Len(miNombre) Then miNombre = celda
Next celda
End Function

Debes llamar a la función con: =miNombre(rango_con_los_nombres)
b).- Si con "mayor" te refieres al que tenga mayor número de código en su
primer caracter, habria que modificar la función.

Saludos desde Tenerife (España).
********************************************
"Roberto" escribió en el mensaje
news:
> tengo como resultado 4 valores de texto en distintas columnas deseo
> compararlos y obtener el mayor en otra celta.