I’d like to add TextBox34.Value= Sheet1 AG:37 to this Private Sub TextBox2_AfterUpdate() Dim iRow As Long Dim WS As Worksheet Set WS = Worksheets("Sheet2") iRow = WS.Cells(Rows.Count, 1) _ .End(xlUp).Offset(0, 0).Row WS.Cells(iRow, 2).Value = Me.TextBox2.Value WS.Cells(iRow, 3).Value = Me.TextBox3.Value TextBox4.Value = WS.Cells(iRow, 4).Value End Sub I haven't tried everything yet

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

UserForm TextBox Values from multiple WS

Thread starter Big Lar
Start date Apr 19, 2011

Big Lar

Well-known Member

Apr 19, 2011

I’d like to add TextBox34.Value= Sheet1 AG:37 to this<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com

ffice

ffice" /><o

></o

>
<o

></o

Rich (BB code):

Private Sub TextBox2_AfterUpdate()<o:p></o:p>
Dim iRow As Long<o:p></o:p>
Dim WS As Worksheet<o:p></o:p>
Set WS = Worksheets("Sheet2")<o:p></o:p>
iRow = WS.Cells(Rows.Count, 1) _<o:p></o:p>
.End(xlUp).Offset(0, 0).Row<o:p></o:p>
<o:p></o:p>
WS.Cells(iRow, 2).Value = Me.TextBox2.Value<o:p></o:p>
WS.Cells(iRow, 3).Value = Me.TextBox3.Value<o:p></o:p>
TextBox4.Value = WS.Cells(iRow, 4).Value<o:p></o:p>
<o:p></o:p>
End Sub<o:p></o:p>