fill Date "dd/mm/yyyy" in textboxes automatically when just write day

[Abdo]

Hi
I want when write day of date ,then will fill the current month & current year automatically without I enter manually .
for instance if I have textbox1 on userform , and write day "23" then will fill automatically like this 23/01/2023
I have this but is useless

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1.Text, "dd/mm/yyyy")
End Sub

I hope this is sens .

 

[rakesh seebaruth]

Sub AutoFillMonthYear()
Dim dateStr As String
dateStr = Range("textbox1").Value
Range("textbox1").Value = dateStr & "/" & Month(Date) & "/" & Year(Date)
End Sub

This code should be placed in the worksheet of the workbook and assigned to the textbox1 control so that it runs whenever the user enters in the day.

 

[Abdo]

thanks
gives error method range of object global failed in this line

dateStr = Range("textbox1").Value

 

[Abdo]

another choice guys ?

 

[rakesh seebaruth]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsNumeric(TextBox1.Value) Then
        TextBox1.Value = TextBox1.Value & "/" & Format(Date, "MM/yyyy")
    End If
End Sub