Celdas con dos formatos (Texto o Fecha)

[erpunta]

Tengo una macro que desde un txtbox ingresa un valor en una celda determinada, lo que ocurre que ese valor a veces es una fecha y a veces es texto.

Indica la caducidad de un elemento, entonces introduzco por ejemplo 01/01/2025, pero en ciertas ocasiones ese elemento no caduca y entonces escribo "NO EXPIRED", pero siempre me muestra el resultado como fecha 00/Jan/0000.

El codigo es TxtCYellow = CDate(.List(i, 13)) cuando es fecha, pero para introducir texto?

Gracias

[Israel Cassales]

Con la información explicada podrías usar una condición para verificar si el valor es una fecha o texto.

Dim Valor As Variant
Valor = .List(i, 13)

If IsDate(Valor) Then
    TxtCYellow = CDate(Valor)
Else
    TxtCYellow = CStr(Valor)
End If

Ese código, IsDate verifica si el valor es una fecha. Si es así, se utiliza CDate para convertirlo. Si no es una fecha, se asume que es texto y se utiliza CStr para convertirlo.

Haz pruebas.