About Text Boxes in UserForms

[Dheepak]

Hi Team,

I have created a user form with Five text boxes and also i have a command button named as "Print". Whenever i'm clicking the command button Print, only the active text box needs to print with some content like "Hello".

I was aware that in excel sheet we have to use the code ActiveCell.Value = "Hello" , the same thing i want to happen in user form for the active text box.

Can someone please help on this with code?

Regards,
Dheepak

 

[Rick Rothstein]

Hi Team,

I have created a user form with Five text boxes and also i have a command button named as "Print". Whenever i'm clicking the command button Print, only the active text box needs to print with some content like "Hello".

I was aware that in excel sheet we have to use the code ActiveCell.Value = "Hello" , the same thing i want to happen in user form for the active text box.

Can someone please help on this with code?

If your code is executing from within the UserForm's module, you can refer to the active control using Me.ActiveControl, for example...

MsgBox Me.ActiveControl.Name

or

MsgBox Me.ActiveControl.Value

If you are executing code in a some other module (like a subroutine in a General Module), you should be able to do this by specifying the UserForm's name in place of the Me keyword, for example...

MsgBox UserForm1.ActiveControl.Name

 

[Dheepak]

Hi Rick,

Thank you so much for your quick turnaround. But when i tried this code, it reflecting a msgbox with Value as False. However, I want to fill the text box with the word "Hello" when i click the button which i created named as Print.

Below is the example form which i created:

Message 1: TextBox1
Message 2: TextBox2

(Command Button) Print Hello

So if i click Print Hello command button by placing the cursor in Textbox1, it has to print the word Hello in textbox1.

If i click Print Hello command button by placing the cursor in Textbox2, it has to print the word Hello in textbox2.

Could you place tell how to achieve this

Your Immediate Help is much appreciated!!!

Thanks & Regards,
Dheepak