Text box and command button to copy

[czeihne]

I know how to copy text box with command button. I have 200 text boxes and 200 command buttons which is a very long version of doing so.

Is there any way to it like

Textbox(a) is for commandbutton(a)

Like a function or something

I had to do it manually every time I add, textboxes for all 200 of them



Dim txt1 as New DataObject
Txt1.setText Textbox1.text
txt1.putinclioboard
End sub

Is there a shortcut?

[Bernie Deitrick]

You can create a class module that creates a collection of command buttons that all use the same click event. You just need to set the Tag value of each commandbutton to the numeric part of the textbox name.

Change UserForm1 to your actual userform name.

In a standard code module:

Please Login or Register  to view this content.

In a new class module named clsCmdButton

Please Login or Register  to view this content.

[czeihne]

Thanks for the code. I can't open this website on my work laptop so I cant uplaod like a copy of what I had there.

i tried to create and use the code below, can you help me check as when I run it, it does not copy what's on the text box. I've attached a file