Llenar textbox automáticamente

51ck0n1n3t33n · el 28 de julio

Hola!!!

Estoy trabajando en una userform y quiero al dar click en un DTPicker y seleccionar una fecha, llenar automáticamente un TextBox con la fecha de un 363 días después, les dejo la macro que he trabajado:

Private Sub DTPicker1_Change()

If DTPicker1 = VBA.Date Then

TextBox13.Value = Sheets("Fecha").Range("A2")

End If

Sheets("Fecha").Range("A1").Value = DTPicker1.Value

End Sub

De acuerdo a lo que pongo aquí, según yo entiendo que al dar click en la fecha el TextBox se tendría que rellenar con la información que tengo en la hoja "Fecha" rango "A2", pero no me sale

Les agradezco de antemano

saludos,