Formulario TextBox no como texto si como fecha

Hola que tal quiero que por medio de un formulario poner la fecha en una celda pero que este valor me lo ponga como fecha y no como texto.
Tengo el Siguiente Ejemplo:
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Range("K1").Select
ActiveCell.FormulaR1C1 = TextBox1
Application.ScreenUpdating = True
Sin más por el momento y agradeciendo de antemano la atención.
1

1 respuesta

Respuesta
1
ActiveCell.Value = CDate(TextBox.Value)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas