Con formula seria asi =IF(ISNUMBER(A1),"Es un numero","No es numero")
Con codigo VBA
Código vb:
Ver originalIf IsNumeric(Left$(Cells(1, 1).Value, 1)) Then
MsgBox "Comienza con numero"
Else
MsgBox "Comienza con letra"
End If
O pon esta funcion personalizada en un modulo.
Código vb:
Ver originalFunction EMP_NUM(ByVal vVal As Variant) As String
If IsNumeric(Left$(vVal, 1)) = True Then
EMP_NUM = "Empieza con un numero"
Else
EMP_NUM = "Empieza con un caracter"
End If
End Function
Y la mandas llamar con formula mediante excel de la sig forma:
=EMP_NUM(A4)
y listo..
Comentas....