Hacer un If

[Elena 86]

Hola,

aquí tengo un proyecto que estoy intentando terminar:

Con su ayuda conseguí hacerlo pero necesito que también se pueda dejar el campo vacío. Si el campo lo dejas sin poner una fecha da un error y yo quiero dejar la opción de que se pueda poner o no la fecha en cada apartado de visita.

Espero vuestra ayuda. Gracias!!!!

[Elena 86]

Ninguna idea?

 

Básicamente lo que busco es lo siguiente:

En el Initialize tengo:
Private Sub UserForm_Initialize()
TextBox19 = Format(TextBox19, "dd/mm/aaaa")

 

Y después en el comando de un botón cuando se hace click lo siguiente:

Private Sub CommandButton1_Click()
ActiveCell.Offset(0, 20) = CDate(TextBox19)

 

Entonces si en ese TextBox no pongo una fecha me da un error "No coinciden los tipos"

Lo que necesito es que si no pongo ningún valor no de ese dato. ¿Es esto posible?

Gracias de antemano!

[Antoni]

 

If IsDate(TextBox19) Then ActiveCell.Offset(0, 20) = CDate(TextBox19) 

 

[Elena 86]

Hace 22 minutos , Macro Antonio dijo:

 

If IsDate(TextBox19) Then ActiveCell.Offset(0, 20) = CDate(TextBox19) 

 

Perfecta solución. Mil gracias.