Using the textbox tag property

[Belleke]

I want to fill all the textboxes in a userform that have a tag Yes with Date
Something like

Private Sub UserForm_Initialize()
For Each Ctrl In Controls
    If Ctrl.Tag = "Yes" Then Ctrl.value=format(Date,"dd-mm-yyyy")
next Ctrl
end sub

thanks in advance

 

[YasserKhalil]

I think Tag property has integer value. Try using 10 for example instead of Yes

 

[Debaser]

If you have other control types that might have a Yes tag that you want to exclude, then test the type:

PrivateSub UserForm_Initialize()
For Each Ctrl In Controls
   If TypeOf Ctrl Is MSForms.Textbox and Ctrl.Tag = "Yes" Then Ctrl.value = format(Date,"dd-mm-yyyy")
next Ctrl
end sub

 

[Belleke]

Hi Yaser and Debaser, thanks for the quick reply.
The combination of both answers did the trick.
I tryed the code of debraser this morning but without MSForms
Did't work.
I tryed Yasser sugestion
Didn'work
But the combination of both works
Using MSforms in the code and using integer as tag.
My problem is solved.
Have a nice day.

 

[Debaser]

Just for the record, Tag is not an Integer, it's a String property.

 

[Hui]

Why not use the .Text property?

 

[Belleke]

Hi Hui,
Not sure what you mean.
Do you have some example code?