Adding up values of textbox in Userform

M

Mark

I am using Excel 97.
I want a userform with textboxes. One of the textboxes
will display the sum of the other textboxes, if the
values of the textboxes are changed the sum textbox
changes.

On clicking a button the values are transposed onto a
worksheet.

Thanks

Mark
 
B

Bob Phillips

Something like

Private Sub TextBox1_Change()

TexBox5.Text = TextBox1.Text + _
TextBox2.Text + _
TextBox3.Text + _
TextBox4.Text +
End Sub

etc.

Private Sub CommandButton1_Click()
With Worksheets("Sheet1).
.Range("A1").Value = TextBox1.Text
.Range("B1").Value = TextBox2.Text
.Range("C1").Value = TextBox3.Text
.Range("D1").Value = TextBox4.Text
.Range("E1").Value = TextBox5.Text
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
C

Charles

Mark,

Here is what I came up with.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim i As Long
Dim myrng As Range
Worksheets("sheet1").Activate
Set myrng = Worksheets("sheet1").Cells(1, 1).CurrentRegion
For i = 1 To myrng.Rows.Count
Next i
With UserForm1
myrng(i, 1).Value = .TextBox3.Text
End With
End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger
ByVal Shift As Integer) 'tab key
Application.ScreenUpdating = False
Dim tb1 As Long
Dim tb2 As Long
If KeyCode = "9" Or KeyCode = "13" Then
tb1 = TextBox1
tb2 = TextBox2
With UserForm1
.TextBox3.Value = tb1 + tb2
End With
End If
End Sub

Every time you tab or hit the enter key on textbox2 the value o
textbox3 changes.
Click the commandbutton and it put texbox3 to the worksheet.

HTH

Charle
 
R

Ron de Bruin

Hi Mark

You must use this to make a value of the textbox text if you
want to sum them

TextBox5.Text = CDbl(TextBox1.Text) + _
CDbl(TextBox2.Text) + _
CDbl(TextBox3.Text) + _
CDbl(TextBox4.Text)
 
Top