Excel Forum

Code: Select all

Private Sub TextBox2_AfterUpdate()
TextBox9.Text = TextBox1.Text * TextBox2.Text
  TextBox9 = Format(CDbl(TextBox9), "0.00")
  TextBox10.Text = TextBox2.Text * 2 + TextBox1.Text * 2
  TextBox10 = Format(CDbl(TextBox10), "0.00")
  TextBox7.Text = TextBox1.Text * 2 + TextBox2.Text * 2
  TextBox7 = Format(CDbl(TextBox7), "0.00")
End Sub

Code: Select all

Private Sub CommandButton1_Click()
  Set Us = UserForm3
'  TextBox = us.Text
    'Copy The Data To The Database
'    End If
    Us.TextBox7.Value = UserForm4.TextBox1.Text
    Us.TextBox8.Value = UserForm4.ComboBox1.Text
    Us.TextBox9.Value = UserForm4.TextBox2.Text
End Sub

Code: Select all

Private Sub CommandButton1_Click()
  Set us = UserForm3
'  TextBox = us.Text
    'Copy The Data To The Database
'    End If
    us.TextBox7.Value = UserForm4.TextBox1.Text
    us.TextBox8.Value = UserForm4.ComboBox1.Text
    us.TextBox9.Value = UserForm4.TextBox2.Text
    us.TextBox5.SetFocus
    Unload Me
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    Set ws = Worksheets("S_Beam1")
  irow = ws.Cells(Rows.Count, 1) _
      .End(xlUp).Offset(9, 0).Row
  'Copy The Data To The Database
    If Range("D10") = "" Then
        ws.Cells(irow, 4).Value = 1
    Else
        ws.Cells(irow, 4).Value = Range("D9").End(xlDown) + 1
    End If
        ws.Cells(irow, 5).Value = Me.ComboBox5.Value
        ws.Cells(irow, 6).Value = Me.TextBox1.Value
        ws.Cells(irow, 7).Value = Me.TextBox2.Value
        
    Unload Me
    UserForm3.Show
End Sub

Code: Select all

'Other code
    irow = ws.Cells(Rows.Count, 4) _
      .End(xlUp).Offset(1, 0).Row
'Other code