Distinction if VBA or user enter textbox

[Kamolga]

Hi,

I have 4 textboxes in a userform1. When I click in one of them

[LEFT][COLOR=#222222][FONT=Verdana]textbox1_enter[/FONT][/COLOR][/LEFT]

, I have a separate datepicker userform2 that shows and puts its value in the textbox. It took time but that works.

My issue is that when I initialize userform1, I would like to have specific dates in the textboxes

textbox1.value=Range("A1").value

but that launch my datepicker userform. I tried

[LEFT][COLOR=#222222][FONT=Verdana]textbox1_change [/FONT][/COLOR][/LEFT]

but have the same result.

I wish I could use the same the same effect as Application.EnableEvents=false to have the enter/change.

I have a button Ok, that I try to put focus on before and after without any success

BtnOK.SetFocus

Any idea is welcome

 

[jonathann3891]

You have to use userform initialize for this:

My issue is that when I initialize userform1, I would like to have specific dates in the textboxes

Setting the "OK" button as default may do it for you.

I have a button Ok, that I try to put focus on before and after without any success

 

[Fluff]

Try changing your textbox to an Exit event

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

 

[RoryA]

You can use a control variable like Enableevents. Declare a boolean at the top of the userform module, then start each event with:

if boolean_variable then exit sub

Thus, whenever you want to stop controls from reacting to your code, simply set the variable to True, do what you need, then set it back to False.

 

[Kamolga]

Thank you very much.

Setting the "OK" button as default may do it for you.​

No luck on that one, it was on default.

The

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)​

works for me: indeed I have no datepicker showing up when I initialize userform1 anymore and I know how to get the datepicker but another user would type the date and when finished, would leave and activate the datepicker which would overwrite his date and become useless.

if boolean_variable then exit sub​

that is the last one I tried and it works perfectly.

Thanks again!