Textbox datwe auto update

[Patriot2879]

Hi good morning, I have the code below which is in my textbox, but it doesn't auto update,can you help me please?

Private Sub TextBox10_GotFocus()
If Me.TextBox10.Value = "" Then
   Me.TextBox10.Value = Format(Date, "dd/mm/yyyy")
 End If

End Sub

 

[silentwolf]

Hi,
GotFocus is not the right event for this.

Put it into userform initilize event and it works.

Private Sub UserForm_Initialize()
        If Me.TextBox1.Value = "" Then
            Me.TextBox1.Value = Format(Date, "dd/mm/yyyy")
        End If
End Sub

 

[Patriot2879]

HI havn't got a userform my textbox is in Sheet1. will this make a difference?

 

[silentwolf]

Hi yes it does in Sheet1 there is no initialize event.
Should this textbox receive the date when you open it oder what do you like to achive?
Every event driggers in different situations so it is important to understand when you like what to happen.
With your code it changes the textbox value wenn that textbox get the focuse as the event says..
So you need to let us know what exactly what you like to happen.

 

[Patriot2879]

Hi thank you ,what I want Is the textbox which is in sheet1 in excel, so when the spreadsheet Is opened to show the current date

 

[silentwolf]

Hi,
than you need this event.

Private Sub Worksheet_Activate()
        If Me.TextBox1.Value = "" Then
            Me.TextBox1.Value = Format(Date, "dd/mm/yyyy")
        End If
End Sub

On the top left dropdown you select worksheet and on the right dropdown you select activate. Just in case you don't know how to get there.

HTH

 

[Patriot2879]

Hi sorry thanks again I cant find the drop down for worksheet, and the activate bit, im in the developer tab and to the left I have the visual basic button

 

[Patriot2879]

Do I put the code in Thisworkbook or Sheet1? how do I activate, sorry I am still new to this.

 

[silentwolf]

Hi,
no Problem we all where new to this .)
Doppelclick on the worksheet in the VP Editor then it opens the worksheet module.
On top you have Option Explicit hopefully and above there you see a dropdown (Allgemein) in german not sure what it says in english but klick on it and it shows worksheet. Select worksheet and on the righthand you see another dropdown there you select activate and click on it.

You should see something like that

Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

on Sub Worksheet_Activate() you enter your code the worksheet_SelectionChange Event just delete and you are set to go

HTH

 

[silentwolf]

Hi not sure if you found it?

https://exceloffthegrid.com/private-vs-public-in-vba/