Private Sub cmbAdd_Click()
'First empty cell in column A
Set c = MyData.Cells(MyData.Rows.Count, 1).Offset(1)
Application.ScreenUpdating = False
'write exercise entries to worksheet Data
With Me
c.Value = .TextBox1.Value
c.Offset(0, 1).Value = .TextBox2.Value
c.Offset(0, 2).Value = .TextBox3.Value
c.Offset(0, 3).Value = .TextBox4.Value
c.Offset(0, 4).Value = .TextBox5.Value
c.Offset(0, 5).Value = .TextBox6.Value
c.Offset(0, 6).Value = .TextBox7.Value
c.Offset(0, 7).Value = .TextBox8.Value
c.Offset(0, 8).Value = .TextBox9.Value
c.Offset(0, 9).Value = .TextBox10.Value
c.Offset(0, 10).Value = .TextBox11.Value
c.Offset(0, 11).Value = .TextBox12.Value
c.Offset(0, 12).Value = .TextBox13.Value
c.Offset(0, 13).Value = .CheckBox1.Value
c.Offset(0, 14).Value = .CheckBox2.Value
c.Offset(0, 15).Value = .CheckBox3.Value
c.Offset(0, 16).Value = .CheckBox4.Value
c.Offset(0, 17).Value = .CheckBox5.Value
c.Offset(0, 18).Value = .CheckBox6.Value
c.Offset(0, 19).Value = .CheckBox7.Value
c.Offset(0, 20).Value = .CheckBox8.Value
c.Offset(0, 21).Value = .CheckBox9.Value
c.Offset(0, 22).Value = .CheckBox10.Value
c.Offset(0, 23).Value = .CheckBox11.Value
c.Offset(0, 24).Value = .CheckBox12.Value
c.Offset(0, 25).Value = .CheckBox13.Value
c.Offset(0, 26).Value = .CheckBox14.Value
c.Offset(0, 27).Value = .CheckBox15.Value
c.Offset(0, 28).Value = .CheckBox16.Value
c.Offset(0, 29).Value = .CheckBox17.Value
c.Offset(0, 30).Value = .CheckBox18.Value
c.Offset(0, 31).Value = .CheckBox19.Value
c.Offset(0, 32).Value = .CheckBox20.Value
c.Offset(0, 33).Value = .CheckBox21.Value
c.Offset(0, 34).Value = .CheckBox22.Value
c.Offset(0, 35).Value = .CheckBox23.Value
c.Offset(0, 36).Value = .CheckBox24.Value
c.Offset(0, 37).Value = .Opt1.Value
c.Offset(0, 38).Value = .Opt2.Value
c.Offset(0, 39).Value = .Opt3.Value
c.Offset(0, 40).Value = .Opt4.Value
c.Offset(0, 41).Value = .Opt5.Value
c.Offset(0, 42).Value = .Opt6.Value
c.Offset(0, 43).Value = .Opt7.Value
c.Offset(0, 44).Value = .Opt8.Value
c.Offset(0, 45).Value = .Opt9.Value
c.Offset(0, 46).Value = .TextBox14.Value
End With
'clears the userform
ClearControls
'resize database
Set MyData = c.CurrentRegion
'Me.ScrollBar1.Max = MyData.Rows.Count
Application.ScreenUpdating = True
End Sub
Bookmarks