Paste data into worksheet then back into UserForm

[Kyle M]

[FONT=Times New Roman][SIZE=3]Private Sub CommandButton1_Click()[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]With Sheets("Sheet4")[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3].Range("A1").Value = TextBox1.Text[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3].Range("A7").Value = TextBox2.Text[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3].Range("A15").Value = TextBox3.Text[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3].Range("A21").Value = TextBox4.Text[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3].Range("A36").Value = TextBox5.Text[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3].Range("A40").Value = TextBox6.Text[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3].Range("A41").Value = TextBox7.Text[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]End With[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]Unload Me[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]UserForm4.Show[/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3]End Sub[/SIZE][/FONT]

The code above pastes data from a UserForm to Sheet4 when I click the command button. In the last line of this block of code, after I call UserForm4 again, I would like to have the data I pasted into Sheet4 to get pasted back into the TextBoxes in UserForm4. Is this possible? If so can you show me how?

 

[Smitty]

Just reverse this part in the form's Initialize event:

.Range("A1").Value = TextBox1.Text
.Range("A7").Value = TextBox2.Text
.Range("A15").Value = TextBox3.Text
.Range("A21").Value = TextBox4.Text
.Range("A36").Value = TextBox5.Text
.Range("A40").Value = TextBox6.Text
.Range("A41").Value = TextBox7.Text

HTH

 

[Norie]

The data should be in the textboxes until you unload it?

Or is UserForm4 a different userform?

If it is then just use it's Initialize event but 'reverse' the code

Private Sub UserForm_Intialize()
 
 With Sheets("Sheet4")
   TextBox1.Text = .Range("A1").Value
   TextBox2.Text = .Range("A7").Value
   TextBox3.Text = .Range("A15").Valu
   TextBox4.Text = .Range("A21").Value
   TextBox5.Text = .Range("A36").Value
   TextBox6.Text = .Range("A40").Value
   TextBox7.Text = .Range("A41").Value
 End With

End Sub

 

[Kyle M]

Thank you Smitty. Thank you Norie. Your feedback is helpful. Perhaps my error, when I try the code I got an error message that reads 'Invalid or unqualified reference' do you know why that might be?

 

[Norie]

Can you post the exact code you tried?

By the way, I was trying to say you might not need to repopulate the textboxes if it's only the one form.