Formula matricial, creo

Puedes hacer esta formula personalizada:

Public Function PrimerDistinto(ByVal rngRango As Range, ByVal lngValor As
Long) As String
Dim rngCelda As Range

For Each rngCelda In rngRango
If rngCelda.Value <> lngValor Then
PrimerDistinto = rngCelda.AddressLocal
Exit For
End If
Next
End Function

Donde rngRango corresponde al rango de búsqueda, y lngValor corresponde al
valor del elemento de criterio.

Saludos,

Marco Escobar.


"Rene Moreno" wrote in message
news:
> Hola de nuevo grupo
> Como puedo obtener con una formula el primer elemento diferente de algo

> un rango
> en este caso quiero que mediante la formula me devuelva "X1" o la

> de "X1"
>
> Col. A
> 1
> 1
> 1
> X1
> 1
> X2
> etc
>
> Gracias de nuevo por la ayuda.
> Hoy e estado muy pregunton.
>
> Rene Moreno
> ____________________________________________________
> Para responder elimine el texto NOSPAM de la dirección de envío
>
>