Primer valor no vacio de un rango

Esta función nos permite encontrar el primer valor distinto a vacío en un rango y nos devuelve su valor

Public Function Primero(Rango As Range) As Variant
    'devuelve el primer valor no vacio de un rango
    'abelorteu@informaticaea.com
 
    Dim obj_Cell As Range
    'Recorremos las celdas del rango seleccionado en busca de un valor no blanco
    For Each obj_Cell In Rango.Cells
        If obj_Cell.Text <> "" Then
            Primero = obj_Cell.Text 'Encontrado el primer valor
            Exit For 'Escapamos del FOR
        End If
    Next
End Function

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *