Current Code for week 1:
Private Sub LbrOptionBtn1_Click()
Select Case Frame2.ActiveControl.Name
Case "LbrOptionBtn1"
UserForm2.Hide
UserForm1.Show
End Select
Private Sub DataButton1_Click()
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("LaborDelivery Worksheet")
' Inserts Data to very hidden labor worksheet
irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 2).Row
With ws
.Range("B" & irow) = TextBox1.Value
.Range("B" & irow + 1) = TextBox2.Value
.Range("B" & irow + 2) = TextBox3.Value
.Range("B" & irow + 3) = TextBox4.Value
End Sub.Range("B" & irow + 4) = TextBox5.Value
.Range("B" & irow + 5) = TextBox6.Value
.Range("B" & irow + 6) = TextBox7.Value
.Range("C" & irow + 1) = TextBox8.Value
.Range("C" & irow + 2) = TextBox9.Value
.Range("C" & irow + 3) = TextBox10.Value
.Range("C" & irow + 4) = TextBox11.Value
.Range("C" & irow + 5) = TextBox12.Value
.Range("D" & irow) = TextBox13.Value
.Range("D" & irow + 1) = TextBox14.Value
.Range("D" & irow + 2) = TextBox15.Value
.Range("D" & irow + 3) = TextBox16.Value
.Range("D" & irow + 4) = TextBox17.Value
.Range("D" & irow + 5) = TextBox18.Value
.Range("D" & irow + 6) = TextBox19.Value
End With
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox17.Value = ""
TextBox18.Value = ""
TextBox19.Value = ""
Unload Me
End Sub
Private Sub LbrOptionBtn1_Click()
Select Case Frame2.ActiveControl.Name
Case "LbrOptionBtn1"
UserForm2.Hide
UserForm1.Show
End Select
Private Sub DataButton1_Click()
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("LaborDelivery Worksheet")
' Inserts Data to very hidden labor worksheet
irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 2).Row
With ws
.Range("B" & irow) = TextBox1.Value
.Range("B" & irow + 1) = TextBox2.Value
.Range("B" & irow + 2) = TextBox3.Value
.Range("B" & irow + 3) = TextBox4.Value
End Sub.Range("B" & irow + 4) = TextBox5.Value
.Range("B" & irow + 5) = TextBox6.Value
.Range("B" & irow + 6) = TextBox7.Value
.Range("C" & irow + 1) = TextBox8.Value
.Range("C" & irow + 2) = TextBox9.Value
.Range("C" & irow + 3) = TextBox10.Value
.Range("C" & irow + 4) = TextBox11.Value
.Range("C" & irow + 5) = TextBox12.Value
.Range("D" & irow) = TextBox13.Value
.Range("D" & irow + 1) = TextBox14.Value
.Range("D" & irow + 2) = TextBox15.Value
.Range("D" & irow + 3) = TextBox16.Value
.Range("D" & irow + 4) = TextBox17.Value
.Range("D" & irow + 5) = TextBox18.Value
.Range("D" & irow + 6) = TextBox19.Value
End With
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox17.Value = ""
TextBox18.Value = ""
TextBox19.Value = ""
Unload Me
End Sub
Last edited: