Saltar al contenido

Hacer un If

publicado

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!!!!

Featured Replies

publicado
  • Autor

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!

publicado

 

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

 

publicado
  • Autor
Hace 22 minutos , Macro Antonio dijo:

 


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

 

Perfecta solución. Mil gracias.

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.