userform: trasnferring textbox value to label field in next userform

**brillison** · 07-17-2008, 12:03 PM

Hello

I am creating a userform with a series of steps and command buttons. I want users to enter text for an ID # in the first pop-up (UserForm2). When they click NEXT (CommandButton1), I want the text/ID#(TextBox1, TextBox2,...TextBox6) to transfer into a label field (Label10,Label11,...Label15) in the next pop-up(UserForm1).

I have also written code for the TextBox values to populate in a database worksheet so that I can refer to those values later.

Can I write the code to transfer the text to the label in the same macro for CommandButton1?

Here is the code for clicking NEXT(CommandButton1):

Private Sub CommandButton1_Click()
Worksheets("Sheet2").Range("A2") = UserForm2.TextBox1.Value
Worksheets("Sheet2").Range("A3") = UserForm2.TextBox2.Value
Worksheets("Sheet2").Range("A4") = UserForm2.TextBox3.Value
Worksheets("Sheet2").Range("A5") = UserForm2.TextBox4.Value
Worksheets("Sheet2").Range("A6") = UserForm2.TextBox5.Value
Worksheets("Sheet2").Range("A7") = UserForm2.TextBox6.Value

UserForm2.Hide
UserForm1.Show

End Sub

**Leith Ross** · 07-17-2008, 01:34 PM

Hello brillison,

You can change the labels when UserForm1 is activate as long as UserForm2 is still loaded.

UserForm_Activate()
  'This goes in UserForm1  
    With UserForm2
      Label10.Caption = .TextBox1.Value
      Label11.Caption = .TextBox2.Value
      Label12.Caption = .TextBox3.Value
      Label13.Caption = .TextBox4.Value
      Lable14.Caption = .textBox5.Value
      Label15.Caption = .TextBox6.Value
  End With  
End Sub

Sincerely,
Leith Ross

**brillison** · 07-17-2008, 03:15 PM

My apologies for not wrapping the code. I inserted wrapped code below.

Private Sub CommandButton1_Click()
Worksheets("Sheet2").Range("A2") = UserForm2.TextBox1.Value
Worksheets("Sheet2").Range("A3") = UserForm2.TextBox2.Value
Worksheets("Sheet2").Range("A4") = UserForm2.TextBox3.Value
Worksheets("Sheet2").Range("A5") = UserForm2.TextBox4.Value
Worksheets("Sheet2").Range("A6") = UserForm2.TextBox5.Value
Worksheets("Sheet2").Range("A7") = UserForm2.TextBox6.Value

UserForm_Activate()
'This goes in UserForm1
With UserForm2
Label10.Caption = .TextBox1.Value
Label11.Caption = .TextBox2.Value
Label12.Caption = .TextBox3.Value
Label13.Caption = .TextBox4.Value
Lable14.Caption = .TextBox5.Value
Label15.Caption = .TextBox6.Value
End With

**mikerickson** · 07-17-2008, 03:19 PM

Putting this in the first userform (UserForm2) code module will pre-load the second userform (UserForm1)

Private Sub UserForm_Terminate()
With UserForm1
    .Label10.Caption = Me.TextBox1.Text
    .Label11.Caption = Me.TextBox2.Text
    .Label12.Caption = Me.TextBox3.Text
    .Label13.Caption = Me.TextBox4.Text
    .Label14.Caption = Me.TextBox5.Text
    .Label15.Caption = Me.TextBox6.Text
End With
End Sub

If UserForm1 is unloaded, this code will create an instance of UserForm1 (but not .Show it) and fill the labels' captions, so they will show when the line

UserForm1.Show

is exicuted.

If UserForm2 is already instanced, it will change the label's captions.

**brillison** · 07-17-2008, 03:44 PM

I am not the greatest at these macros. But it seems wherever I put the code, it doesn't populate the text on UserForm1. I am sure i am doing something wrong. I have attached the excel worksheet.

On Sheet 1, click "START POA&M COSTING" to start the macros.
Userform2 pops up.
Enter random text in each of the fields.
Click NEXT
Userform1 pops up blank.

Thank you for all your help and patience!

**mikerickson** · 07-17-2008, 04:02 PM

My appologies, I thought that UF2 was being unloaded rather than hidden.

This command button routine will put the data in UF1 labels

Private Sub CommandButton1_Click()
With UserForm1
    .Label10.Caption = Me.TextBox1.Text
    .Label11.Caption = Me.TextBox2.Text
    .Label12.Caption = Me.TextBox3.Text
    .Label13.Caption = Me.TextBox4.Text
    .Label14.Caption = Me.TextBox5.Text
    .Label15.Caption = Me.TextBox6.Text
End With
UserForm2.Hide
UserForm1.Show
End Sub

**brillison** · 07-17-2008, 04:10 PM

AWESOME!!!! It worked! Thank you so much for helping and training me!

**mikerickson** · 07-17-2008, 08:18 PM

Glad to help.

You might want to think about renaming the userforms and controls. A situation where UserForm2 calls UserForm1 can be confusing.
Using the name field of the Properties window you could change the name of CommandButton1 to butNext or something that relates to the purpose or caption on the controls.

Unfortunatly, the names need to match the names of the event routines, so you will need to change all the code to the new names. But six months from the end of the project, when you want to change something, meaningful control names will help you remember what you are did and how to modify.