Tengo un archivo que no puedo subir pk contiene muchisimos datos y no procede pero os paso lo que pueda de capturas

 

 

 

para que en el TextBox  aparezca la fecha de hoy al darle userform.show

 

 

 

Hola @patriciomates!

Intenta de esta manera (modifica el formato de fecha según te convenga)

Private Sub UserForm_Initialize()
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With

Textbox1 = Format(Date, "DD/MM/YYYY")
...'más el código que tu tengas

With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
End With
End Sub

Suerte!

Editado el el 27 de febrero3 años por tierra_pampa

Hola de nuevo @patriciomates!

También tenía esta forma en algún formulario hecho;

Private Sub UserForm_Initialize()
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With

TextBox1 = DateValue(Now)

...'más el código que tu tengas

With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
End With
End Sub

Para cuando toque grabar en la planilla (creo que es tu problema del otro post) puedes intentar así:

hoja1.cells(1,1) = Cdbl(Textbox1.Text)

Suerte!

No se exactamente que sucede pero Cdbl dice que no coinciden los tipos Cstr no hace nada, voy a empezar a buscar una macro que cambie el formato de las celdas por separado al proceso de grabación de datos