Copy / Paste from 1 userform to another

[Dustan]

Hello,

I am needing to do something and for the life of me, cant figure it out.

I have UserformA with TextBox1 on the userform
UserformA also has CommandButton1

when I click the CommandButton1, I want UserformB to open. I know how to do this,

Private Sub CommandButton1_Click()
Unload Me
UserformB.Show
End Sub

When UserformB opens, I want the value from TextBox1 in UserformA to be copied and pasted into TextBox22 on UserformB.

Can anyone help me with this?

Thanks in advance...

 

[PersonHere]

Others may offer a better way, but this is what I would do.

Private Sub CommandButton1_Click()
    Load UserFormB
    UserFormB.TextBox22.Value = Me.TextBox1.Value
    Unload Me
    UserFormB.Show
End Sub

Hope that helps.

 

[Dustan]

Thanks for the help! Works great!!!

With a little modification to fit my application this is what the final code looks like...

Dim test1 As String
Dim FoundRange As Range
    test1 = TextBox1.Value
    Set FoundRange = Sheets("52138_RRP").Range("A:A").Find(what:=test1, LookIn:=xlFormulas, lookat:=xlWhole)
    
    If FoundRange.Offset(0, 81).Value = "Meters" Then
    Load TrayLengthm
    TrayLengthm.TextBox1.Text = Me.TextBox1.Value
    Unload Me
    TrayLengthm.Show
    End If
    If FoundRange.Offset(0, 81).Value = "Feet" Then
    Load TrayLengthft
    TrayLengthft.TextBox1.Text = Me.TextBox1.Value
    Unload Me
    TrayLengthft.Show
    End If

 

[PersonHere]

Glad it helped.

As a quick note about your code, you don't have to end the first If statement. Rather, you can continue with ElseIf FoundRange.Offset(0.... = "Feet" Then....
Or, if those are the only two possibilities, you can just go straight to Else without doing an ElseIf or another If statement.

And so on. Just thought I'd throw that out there, just for some clean coding practices; doesn't affect the outcome at all.

 

[Dustan]

Thanks, I will keep that in mind.