Excel Not Responding

J

JeremySun

Board Regular
Joined
Jul 1, 2011
Messages
98
Randomly my excel will "Not Respond" when using vba. Wonding if someone could look at my code and tell me if they can spot some errors. I'm a noob to vba so please be nice hahaha. Thank you in advance for any help you can give.

Code: 
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Sheet3.Range("B27").Value = "X"
Sheet3.TextBox1.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
If CheckBox11.Value = False Then
Sheet3.Range("B37").Value = ""
Sheet3.TextBox10.Value = ""
End If
If CheckBox12.Value = False Then
Sheet3.Range("B38").Value = ""
Sheet3.TextBox11.Value = ""
End If
If CheckBox13.Value = False Then
Sheet3.Range("B39").Value = ""
Sheet3.TextBox12.Value = ""
End If
If CheckBox14.Value = False Then
Sheet3.Range("B40").Value = ""
Sheet3.TextBox13.Value = ""
End If
If CheckBox15.Value = False Then
Sheet3.Range("B41").Value = ""
Sheet3.TextBox14.Value = ""
End If
If CheckBox16.Value = False Then
Sheet3.Range("B42").Value = ""
Sheet3.TextBox15.Value = ""
End If
If CheckBox17.Value = False Then
Sheet3.Range("B43").Value = ""
Sheet3.TextBox16.Value = ""
End If
If CheckBox18.Value = False Then
Sheet3.Range("B44").Value = ""
Sheet3.TextBox17.Value = ""
End If
If CheckBox19.Value = False Then
Sheet3.Range("B45").Value = ""
Sheet3.TextBox18.Value = ""
End If
If CheckBox20.Value = False Then
Sheet3.Range("B46").Value = ""
Sheet3.TextBox19.Value = ""
End If
If CheckBox21.Value = False Then
Sheet3.Range("B47").Value = ""
Sheet3.TextBox20.Value = ""
End If
If CheckBox22.Value = False Then
Sheet3.Range("B48").Value = ""
'Sheet3.TextBox21.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Sheet3.Range("B28").Value = "X"
Sheet3.TextBox2.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
If CheckBox11.Value = False Then
Sheet3.Range("B37").Value = ""
Sheet3.TextBox10.Value = ""
End If
If CheckBox12.Value = False Then
Sheet3.Range("B38").Value = ""
Sheet3.TextBox11.Value = ""
End If
If CheckBox13.Value = False Then
Sheet3.Range("B39").Value = ""
Sheet3.TextBox12.Value = ""
End If
If CheckBox14.Value = False Then
Sheet3.Range("B40").Value = ""
Sheet3.TextBox13.Value = ""
End If
If CheckBox15.Value = False Then
Sheet3.Range("B41").Value = ""
Sheet3.TextBox14.Value = ""
End If
If CheckBox16.Value = False Then
Sheet3.Range("B42").Value = ""
Sheet3.TextBox15.Value = ""
End If
If CheckBox17.Value = False Then
Sheet3.Range("B43").Value = ""
Sheet3.TextBox16.Value = ""
End If
If CheckBox18.Value = False Then
Sheet3.Range("B44").Value = ""
Sheet3.TextBox17.Value = ""
End If
If CheckBox19.Value = False Then
Sheet3.Range("B45").Value = ""
Sheet3.TextBox18.Value = ""
End If
If CheckBox20.Value = False Then
Sheet3.Range("B46").Value = ""
Sheet3.TextBox19.Value = ""
End If
If CheckBox21.Value = False Then
Sheet3.Range("B47").Value = ""
Sheet3.TextBox20.Value = ""
End If
If CheckBox22.Value = False Then
Sheet3.Range("B48").Value = ""
'Sheet3.TextBox21.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
Sheet3.Range("B29").Value = "X"
Sheet3.TextBox3.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox22.Value = False Then
Sheet3.Range("B48").Value = ""
'Sheet3.TextBox21.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then
Sheet3.Range("B30").Value = "X"
Sheet3.TextBox22.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
If CheckBox11.Value = False Then
Sheet3.Range("B37").Value = ""
Sheet3.TextBox10.Value = ""
End If
If CheckBox12.Value = False Then
Sheet3.Range("B38").Value = ""
Sheet3.TextBox11.Value = ""
End If
If CheckBox13.Value = False Then
Sheet3.Range("B39").Value = ""
Sheet3.TextBox12.Value = ""
End If
If CheckBox14.Value = False Then
Sheet3.Range("B40").Value = ""
Sheet3.TextBox13.Value = ""
End If
If CheckBox15.Value = False Then
Sheet3.Range("B41").Value = ""
Sheet3.TextBox14.Value = ""
End If
If CheckBox16.Value = False Then
Sheet3.Range("B42").Value = ""
Sheet3.TextBox15.Value = ""
End If
If CheckBox17.Value = False Then
Sheet3.Range("B43").Value = ""
Sheet3.TextBox16.Value = ""
End If
If CheckBox18.Value = False Then
Sheet3.Range("B44").Value = ""
Sheet3.TextBox17.Value = ""
End If
If CheckBox19.Value = False Then
Sheet3.Range("B45").Value = ""
Sheet3.TextBox18.Value = ""
End If
If CheckBox20.Value = False Then
Sheet3.Range("B46").Value = ""
Sheet3.TextBox19.Value = ""
End If
If CheckBox21.Value = False Then
Sheet3.Range("B47").Value = ""
Sheet3.TextBox20.Value = ""
End If
If CheckBox22.Value = False Then
Sheet3.Range("B48").Value = ""
'Sheet3.TextBox21.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox5_Click()
If CheckBox5.Value = True Then
Sheet3.Range("B31").Value = "X"
Sheet3.TextBox4.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
If CheckBox11.Value = False Then
Sheet3.Range("B37").Value = ""
Sheet3.TextBox10.Value = ""
End If
If CheckBox12.Value = False Then
Sheet3.Range("B38").Value = ""
Sheet3.TextBox11.Value = ""
End If
If CheckBox13.Value = False Then
Sheet3.Range("B39").Value = ""
Sheet3.TextBox12.Value = ""
End If
If CheckBox14.Value = False Then
Sheet3.Range("B40").Value = ""
Sheet3.TextBox13.Value = ""
End If
If CheckBox15.Value = False Then
Sheet3.Range("B41").Value = ""
Sheet3.TextBox14.Value = ""
End If
If CheckBox16.Value = False Then
Sheet3.Range("B42").Value = ""
Sheet3.TextBox15.Value = ""
End If
If CheckBox17.Value = False Then
Sheet3.Range("B43").Value = ""
Sheet3.TextBox16.Value = ""
End If
If CheckBox18.Value = False Then
Sheet3.Range("B44").Value = ""
Sheet3.TextBox17.Value = ""
End If
If CheckBox19.Value = False Then
Sheet3.Range("B45").Value = ""
Sheet3.TextBox18.Value = ""
End If
If CheckBox20.Value = False Then
Sheet3.Range("B46").Value = ""
Sheet3.TextBox19.Value = ""
End If
If CheckBox21.Value = False Then
Sheet3.Range("B47").Value = ""
Sheet3.TextBox20.Value = ""
End If
If CheckBox22.Value = False Then
Sheet3.Range("B48").Value = ""
'Sheet3.TextBox21.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox6_Click()
If CheckBox6.Value = True Then
Sheet3.Range("B32").Value = "X"
Sheet3.TextBox17.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox22.Value = False Then
Sheet3.Range("B48").Value = ""
'Sheet3.TextBox21.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox7_Click()
If CheckBox7.Value = True Then
Sheet3.Range("B33").Value = "X"
Sheet3.TextBox6.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox22.Value = False Then
Sheet3.Range("B48").Value = ""
'Sheet3.TextBox21.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox8_Click()
If CheckBox8.Value = True Then
Sheet3.Range("B34").Value = "X"
Sheet3.TextBox7.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox22.Value = False Then
Sheet3.Range("B48").Value = ""
'Sheet3.TextBox21.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox9_Click()
If CheckBox9.Value = True Then
Sheet3.Range("B35").Value = "X"
Sheet3.TextBox8.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox10_Click()
If CheckBox10.Value = True Then
Sheet3.Range("B36").Value = "X"
Sheet3.TextBox9.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox11_Click()
If CheckBox11.Value = True Then
Sheet3.Range("B37").Value = "X"
Sheet3.TextBox10.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox12_Click()
If CheckBox12.Value = True Then
Sheet3.Range("B38").Value = "X"
Sheet3.TextBox11.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
If CheckBox11.Value = False Then
Sheet3.Range("B37").Value = ""
Sheet3.TextBox10.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox13_Click()
If CheckBox13.Value = True Then
Sheet3.Range("B39").Value = "X"
Sheet3.TextBox12.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
If CheckBox11.Value = False Then
Sheet3.Range("B37").Value = ""
Sheet3.TextBox10.Value = ""
End If
If CheckBox12.Value = False Then
Sheet3.Range("B38").Value = ""
Sheet3.TextBox11.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox14_Click()
If CheckBox14.Value = True Then
Sheet3.Range("B40").Value = "X"
Sheet3.TextBox13.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
If CheckBox11.Value = False Then
Sheet3.Range("B37").Value = ""
Sheet3.TextBox10.Value = ""
End If
If CheckBox12.Value = False Then
Sheet3.Range("B38").Value = ""
Sheet3.TextBox11.Value = ""
End If
If CheckBox13.Value = False Then
Sheet3.Range("B39").Value = ""
Sheet3.TextBox12.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox15_Click()
If CheckBox15.Value = True Then
Sheet3.Range("B41").Value = "X"
Sheet3.TextBox14.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
If CheckBox11.Value = False Then
Sheet3.Range("B37").Value = ""
Sheet3.TextBox10.Value = ""
End If
If CheckBox12.Value = False Then
Sheet3.Range("B38").Value = ""
Sheet3.TextBox11.Value = ""
End If
If CheckBox13.Value = False Then
Sheet3.Range("B39").Value = ""
Sheet3.TextBox12.Value = ""
End If
If CheckBox14.Value = False Then
Sheet3.Range("B40").Value = ""
Sheet3.TextBox13.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox16_Click()
If CheckBox16.Value = True Then
Sheet3.Range("B42").Value = "X"
Sheet3.TextBox15.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
If CheckBox11.Value = False Then
Sheet3.Range("B37").Value = ""
Sheet3.TextBox10.Value = ""
End If
If CheckBox12.Value = False Then
Sheet3.Range("B38").Value = ""
Sheet3.TextBox11.Value = ""
End If
If CheckBox13.Value = False Then
Sheet3.Range("B39").Value = ""
Sheet3.TextBox12.Value = ""
End If
If CheckBox14.Value = False Then
Sheet3.Range("B40").Value = ""
Sheet3.TextBox13.Value = ""
End If
If CheckBox15.Value = False Then
Sheet3.Range("B41").Value = ""
Sheet3.TextBox14.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox17_Click()
If CheckBox17.Value = True Then
Sheet3.Range("B43").Value = "X"
Sheet3.TextBox16.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
If CheckBox11.Value = False Then
Sheet3.Range("B37").Value = ""
Sheet3.TextBox10.Value = ""
End If
If CheckBox12.Value = False Then
Sheet3.Range("B38").Value = ""
Sheet3.TextBox11.Value = ""
End If
If CheckBox13.Value = False Then
Sheet3.Range("B39").Value = ""
Sheet3.TextBox12.Value = ""
End If
If CheckBox14.Value = False Then
Sheet3.Range("B40").Value = ""
Sheet3.TextBox13.Value = ""
End If
If CheckBox15.Value = False Then
Sheet3.Range("B41").Value = ""
Sheet3.TextBox14.Value = ""
End If
If CheckBox16.Value = False Then
Sheet3.Range("B42").Value = ""
Sheet3.TextBox15.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox18_Click()
If CheckBox18.Value = True Then
Sheet3.Range("B44").Value = "X"
Sheet3.TextBox23.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
If CheckBox11.Value = False Then
Sheet3.Range("B37").Value = ""
Sheet3.TextBox10.Value = ""
End If
If CheckBox12.Value = False Then
Sheet3.Range("B38").Value = ""
Sheet3.TextBox11.Value = ""
End If
If CheckBox13.Value = False Then
Sheet3.Range("B39").Value = ""
Sheet3.TextBox12.Value = ""
End If
If CheckBox14.Value = False Then
Sheet3.Range("B40").Value = ""
Sheet3.TextBox13.Value = ""
End If
If CheckBox15.Value = False Then
Sheet3.Range("B41").Value = ""
Sheet3.TextBox14.Value = ""
End If
If CheckBox16.Value = False Then
Sheet3.Range("B42").Value = ""
Sheet3.TextBox15.Value = ""
End If
If CheckBox17.Value = False Then
Sheet3.Range("B43").Value = ""
Sheet3.TextBox16.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox19_Click()
If CheckBox19.Value = True Then
Sheet3.Range("B45").Value = "X"
Sheet3.TextBox18.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
If CheckBox11.Value = False Then
Sheet3.Range("B37").Value = ""
Sheet3.TextBox10.Value = ""
End If
If CheckBox12.Value = False Then
Sheet3.Range("B38").Value = ""
Sheet3.TextBox11.Value = ""
End If
If CheckBox13.Value = False Then
Sheet3.Range("B39").Value = ""
Sheet3.TextBox12.Value = ""
End If
If CheckBox14.Value = False Then
Sheet3.Range("B40").Value = ""
Sheet3.TextBox13.Value = ""
End If
If CheckBox15.Value = False Then
Sheet3.Range("B41").Value = ""
Sheet3.TextBox14.Value = ""
End If
If CheckBox16.Value = False Then
Sheet3.Range("B42").Value = ""
Sheet3.TextBox15.Value = ""
End If
If CheckBox17.Value = False Then
Sheet3.Range("B43").Value = ""
Sheet3.TextBox16.Value = ""
End If
If CheckBox18.Value = False Then
Sheet3.Range("B44").Value = ""
Sheet3.TextBox17.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox20_Click()
If CheckBox20.Value = True Then
Sheet3.Range("B46").Value = "X"
Sheet3.TextBox19.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
If CheckBox11.Value = False Then
Sheet3.Range("B37").Value = ""
Sheet3.TextBox10.Value = ""
End If
If CheckBox12.Value = False Then
Sheet3.Range("B38").Value = ""
Sheet3.TextBox11.Value = ""
End If
If CheckBox13.Value = False Then
Sheet3.Range("B39").Value = ""
Sheet3.TextBox12.Value = ""
End If
If CheckBox14.Value = False Then
Sheet3.Range("B40").Value = ""
Sheet3.TextBox13.Value = ""
End If
If CheckBox15.Value = False Then
Sheet3.Range("B41").Value = ""
Sheet3.TextBox14.Value = ""
End If
If CheckBox16.Value = False Then
Sheet3.Range("B42").Value = ""
Sheet3.TextBox15.Value = ""
End If
If CheckBox17.Value = False Then
Sheet3.Range("B43").Value = ""
Sheet3.TextBox16.Value = ""
End If
If CheckBox18.Value = False Then
Sheet3.Range("B44").Value = ""
Sheet3.TextBox17.Value = ""
End If
If CheckBox19.Value = False Then
Sheet3.Range("B45").Value = ""
Sheet3.TextBox18.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox21_Click()
If CheckBox21.Value = True Then
Sheet3.Range("B47").Value = "X"
Sheet3.TextBox20.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
If CheckBox11.Value = False Then
Sheet3.Range("B37").Value = ""
Sheet3.TextBox10.Value = ""
End If
If CheckBox12.Value = False Then
Sheet3.Range("B38").Value = ""
Sheet3.TextBox11.Value = ""
End If
If CheckBox13.Value = False Then
Sheet3.Range("B39").Value = ""
Sheet3.TextBox12.Value = ""
End If
If CheckBox14.Value = False Then
Sheet3.Range("B40").Value = ""
Sheet3.TextBox13.Value = ""
End If
If CheckBox15.Value = False Then
Sheet3.Range("B41").Value = ""
Sheet3.TextBox14.Value = ""
End If
If CheckBox16.Value = False Then
Sheet3.Range("B42").Value = ""
Sheet3.TextBox15.Value = ""
End If
If CheckBox17.Value = False Then
Sheet3.Range("B43").Value = ""
Sheet3.TextBox16.Value = ""
End If
If CheckBox18.Value = False Then
Sheet3.Range("B44").Value = ""
Sheet3.TextBox17.Value = ""
End If
If CheckBox19.Value = False Then
Sheet3.Range("B45").Value = ""
Sheet3.TextBox18.Value = ""
End If
If CheckBox20.Value = False Then
Sheet3.Range("B46").Value = ""
Sheet3.TextBox19.Value = ""
End If
Application.ScreenUpdating = True
End Sub
Private Sub CheckBox22_Click()
If CheckBox22.Value = True Then
Sheet3.Range("B48").Value = "X"
'Sheet3.TextBox21.Value = "X"
End If
Application.ScreenUpdating = False
If CheckBox1.Value = False Then
Sheet3.Range("B27").Value = ""
Sheet3.TextBox1.Value = ""
End If
If CheckBox2.Value = False Then
Sheet3.Range("B28").Value = ""
Sheet3.TextBox2.Value = ""
End If
If CheckBox3.Value = False Then
Sheet3.Range("B29").Value = ""
Sheet3.TextBox3.Value = ""
End If
If CheckBox4.Value = False Then
Sheet3.Range("B30").Value = ""
Sheet3.TextBox22.Value = ""
End If
If CheckBox5.Value = False Then
Sheet3.Range("B31").Value = ""
Sheet3.TextBox4.Value = ""
End If
If CheckBox6.Value = False Then
Sheet3.Range("B32").Value = ""
'Sheet3.TextBox5.Value = ""
End If
If CheckBox7.Value = False Then
Sheet3.Range("B33").Value = ""
Sheet3.TextBox6.Value = ""
End If
If CheckBox8.Value = False Then
Sheet3.Range("B34").Value = ""
Sheet3.TextBox7.Value = ""
End If
If CheckBox9.Value = False Then
Sheet3.Range("B35").Value = ""
Sheet3.TextBox8.Value = ""
End If
If CheckBox10.Value = False Then
Sheet3.Range("B36").Value = ""
Sheet3.TextBox9.Value = ""
End If
If CheckBox11.Value = False Then
Sheet3.Range("B37").Value = ""
Sheet3.TextBox10.Value = ""
End If
If CheckBox12.Value = False Then
Sheet3.Range("B38").Value = ""
Sheet3.TextBox11.Value = ""
End If
If CheckBox13.Value = False Then
Sheet3.Range("B39").Value = ""
Sheet3.TextBox12.Value = ""
End If
If CheckBox14.Value = False Then
Sheet3.Range("B40").Value = ""
Sheet3.TextBox13.Value = ""
End If
If CheckBox15.Value = False Then
Sheet3.Range("B41").Value = ""
Sheet3.TextBox14.Value = ""
End If
If CheckBox16.Value = False Then
Sheet3.Range("B42").Value = ""
Sheet3.TextBox15.Value = ""
End If
If CheckBox17.Value = False Then
Sheet3.Range("B43").Value = ""
Sheet3.TextBox16.Value = ""
End If
If CheckBox18.Value = False Then
Sheet3.Range("B44").Value = ""
Sheet3.TextBox17.Value = ""
End If
If CheckBox19.Value = False Then
Sheet3.Range("B45").Value = ""
Sheet3.TextBox18.Value = ""
End If
If CheckBox20.Value = False Then
Sheet3.Range("B46").Value = ""
Sheet3.TextBox19.Value = ""
End If
If CheckBox21.Value = False Then
Sheet3.Range("B47").Value = ""
Sheet3.TextBox20.Value = ""
End If
Application.ScreenUpdating = True
End Sub
 
Private Sub ComboBox1_Change()
Sheet3.Range("d27").Value = frmshot.ComboBox1.Value
End Sub
Private Sub ComboBox2_Change()
Sheet3.Range("e27").Value = frmshot.ComboBox2.Value
End Sub
Private Sub ComboBox24_Change()
Sheet3.Range("e28").Value = frmshot.ComboBox24.Value
End Sub
Private Sub ComboBox25_Change()
Sheet3.Range("e29").Value = frmshot.ComboBox25.Value
End Sub
Private Sub ComboBox26_Change()
Sheet3.Range("e30").Value = frmshot.ComboBox26.Value
End Sub
Private Sub ComboBox27_Change()
Sheet3.Range("e31").Value = frmshot.ComboBox27.Value
End Sub
Private Sub ComboBox28_Change()
Sheet3.Range("e32").Value = frmshot.ComboBox28.Value
End Sub
Private Sub ComboBox29_Change()
Sheet3.Range("e33").Value = frmshot.ComboBox29.Value
End Sub
Private Sub ComboBox30_Change()
Sheet3.Range("e34").Value = frmshot.ComboBox30.Value
End Sub
Private Sub ComboBox31_Change()
Sheet3.Range("e35").Value = frmshot.ComboBox31.Value
End Sub
Private Sub ComboBox32_Change()
Sheet3.Range("e36").Value = frmshot.ComboBox32.Value
End Sub
Private Sub ComboBox33_Change()
Sheet3.Range("e37").Value = frmshot.ComboBox33.Value
End Sub
Private Sub ComboBox34_Change()
Sheet3.Range("e38").Value = frmshot.ComboBox34.Value
End Sub
Private Sub ComboBox35_Change()
Sheet3.Range("e39").Value = frmshot.ComboBox35.Value
End Sub
Private Sub ComboBox36_Change()
Sheet3.Range("e40").Value = frmshot.ComboBox36.Value
End Sub
Private Sub ComboBox37_Change()
Sheet3.Range("e41").Value = frmshot.ComboBox37.Value
End Sub
Private Sub ComboBox38_Change()
Sheet3.Range("e42").Value = frmshot.ComboBox38.Value
End Sub
Private Sub ComboBox39_Change()
Sheet3.Range("e43").Value = frmshot.ComboBox39.Value
End Sub
Private Sub ComboBox40_Change()
Sheet3.Range("e44").Value = frmshot.ComboBox40.Value
End Sub
Private Sub ComboBox41_Change()
Sheet3.Range("e45").Value = frmshot.ComboBox41.Value
End Sub
Private Sub ComboBox42_Change()
Sheet3.Range("e46").Value = frmshot.ComboBox42.Value
End Sub
Private Sub ComboBox43_Change()
Sheet3.Range("e47").Value = frmshot.ComboBox43.Value
End Sub
Private Sub ComboBox44_Change()
Sheet3.Range("e48").Value = frmshot.ComboBox44.Value
End Sub
Private Sub ComboBox45_Change()
Sheet3.Range("e48").Value = frmshot.ComboBox44.Value
End Sub
Private Sub ComboBox3_Change()
Sheet3.Range("d28").Value = frmshot.ComboBox3.Value
End Sub
Private Sub ComboBox4_Change()
Sheet3.Range("d29").Value = frmshot.ComboBox4.Value
End Sub
Private Sub ComboBox5_Change()
Sheet3.Range("d30").Value = frmshot.ComboBox5.Value
End Sub
Private Sub ComboBox6_Change()
Sheet3.Range("d31").Value = frmshot.ComboBox6.Value
End Sub
Private Sub ComboBox7_Change()
Sheet3.Range("d32").Value = frmshot.ComboBox7.Value
End Sub
Private Sub ComboBox8_Change()
Sheet3.Range("d33").Value = frmshot.ComboBox8.Value
End Sub
Private Sub ComboBox9_Change()
Sheet3.Range("d34").Value = frmshot.ComboBox9.Value
End Sub
Private Sub ComboBox10_Change()
Sheet3.Range("d35").Value = frmshot.ComboBox10.Value
End Sub
Private Sub ComboBox11_Change()
Sheet3.Range("d36").Value = frmshot.ComboBox11.Value
End Sub
Private Sub ComboBox12_Change()
Sheet3.Range("d37").Value = frmshot.ComboBox12.Value
End Sub
Private Sub ComboBox13_Change()
Sheet3.Range("d38").Value = frmshot.ComboBox13.Value
End Sub
Private Sub ComboBox14_Change()
Sheet3.Range("d39").Value = frmshot.ComboBox14.Value
End Sub
Private Sub ComboBox15_Change()
Sheet3.Range("d40").Value = frmshot.ComboBox15.Value
End Sub
Private Sub ComboBox16_Change()
Sheet3.Range("d41").Value = frmshot.ComboBox16.Value
End Sub
Private Sub ComboBox17_Change()
Sheet3.Range("d42").Value = frmshot.ComboBox17.Value
End Sub
Private Sub ComboBox18_Change()
Sheet3.Range("d43").Value = frmshot.ComboBox18.Value
End Sub
Private Sub ComboBox19_Change()
Sheet3.Range("d44").Value = frmshot.ComboBox19.Value
End Sub
Private Sub ComboBox20_Change()
Sheet3.Range("d45").Value = frmshot.ComboBox20.Value
End Sub
Private Sub ComboBox21_Change()
Sheet3.Range("d46").Value = frmshot.ComboBox21.Value
End Sub
Private Sub ComboBox22_Change()
Sheet3.Range("d47").Value = frmshot.ComboBox22.Value
End Sub
Private Sub ComboBox23_Change()
Sheet3.Range("d48").Value = frmshot.ComboBox23.Value
End Sub

Private Sub CommandButton1_Click()
Dim wdapp As New Word.Application 'new instance of Word
    Dim wddoc As Word.Document 'new Word document
    'Set wdDoc = wdApp.Documents.Add
    wdapp.Documents.Add.Content.PasteSpecial DataType:=wdPasteText
    Application.CutCopyMode = False
    wdapp.Visible = True
        With wdapp
            .Selection.Find.ClearFormatting
            .Selection.Find.Replacement.ClearFormatting
            With .Selection.Find
                .Text = """"
                .Replacement.Text = "" 'YourName is a variable declared earlier in this sub
            End With
            .Selection.Find.Execute Replace:=wdReplaceAll
        End With
    ThisWorkbook.Parent.Visible = True
End Sub
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
On Error Resume Next
Application.DisplayAlerts = False
    Sheets("My New Worksheet").Delete
    Application.DisplayAlerts = True
Sheet3.Activate
Dim ctrl As Control
For Each ctrl In Me.Controls
    If TypeName(ctrl) = "CheckBox" Then ctrl.Value = False
    Next
    
'Range("AM9:AM51,AQ9:AQ51,AP15:AP54").ClearContents
'Range("AQ9:AQ51,AP15:AP54").ClearContents
With Sheet3
Sheet3.TextBox1.Value = ""
Sheet3.TextBox2.Value = ""
Sheet3.TextBox3.Value = ""
Sheet3.TextBox4.Value = ""
'Sheet3.TextBox5.Value = ""
Sheet3.TextBox6.Value = ""
Sheet3.TextBox7.Value = ""
Sheet3.TextBox8.Value = ""
Sheet3.TextBox9.Value = ""
Sheet3.TextBox10.Value = ""
Sheet3.TextBox11.Value = ""
Sheet3.TextBox12.Value = ""
Sheet3.TextBox13.Value = ""
Sheet3.TextBox14.Value = ""
Sheet3.TextBox15.Value = ""
Sheet3.TextBox16.Value = ""
Sheet3.TextBox17.Value = ""
Sheet3.TextBox18.Value = ""
Sheet3.TextBox19.Value = ""
Sheet3.TextBox20.Value = ""
'Sheet3.TextBox21.Value = ""
Sheet3.TextBox22.Value = ""
Sheet3.TextBox23.Value = ""
Sheet3.Range("B27:B48").Value = ""
End With
'////////////////CHANGED////////////
'frmimm.CheckBox27.Value = False
'frmimm.CheckBox2.Value = False
'frmimm.CheckBox5.Value = False
'frmimm.CheckBox8.Value = False
'frmimm.CheckBox11.Value = False
'frmimm.CheckBox15.Value = False
'frmimm.CheckBox18.Value = False
'frmimm.CheckBox21.Value = False
'frmimm.CheckBox24.Value = False
'frmimm.CheckBox30.Value = False
'frmimm.CheckBox1.Value = False
'frmimm.CheckBox3.Value = False
'frmimm.CheckBox4.Value = False
'frmimm.CheckBox6.Value = False
'frmimm.CheckBox7.Value = False
'frmimm.CheckBox9.Value = False
'frmimm.CheckBox10.Value = False
'frmimm.CheckBox12.Value = False
'frmimm.CheckBox13.Value = False
'frmimm.CheckBox14.Value = False
'frmimm.CheckBox16.Value = False
'frmimm.CheckBox17.Value = False
'frmimm.CheckBox19.Value = False
'frmimm.CheckBox20.Value = False
'frmimm.CheckBox22.Value = False
'frmimm.CheckBox23.Value = False
'frmimm.CheckBox25.Value = False
'frmimm.CheckBox26.Value = False
'frmimm.CheckBox28.Value = False
'frmimm.CheckBox29.Value = False
'Sheet3.Range("am15:ap24").Value = ""
'////////////^CHANGED^///////////
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton3_Click()
On Error Resume Next
Application.DisplayAlerts = False
    Sheets("My New Worksheet").Delete
    Application.DisplayAlerts = True
On Error Resume Next
Application.ScreenUpdating = True
 Sheet3.AutoFilterMode = False
 On Error Resume Next
Worksheets.Add(After:=Worksheets(3)).Name = "My New Worksheet"
Sheet3.Activate
Range("K116:K153").Select
    ActiveWindow.SmallScroll Down:=-39
    Selection.AutoFilter
    ActiveSheet.Range("$K$116:$K$188").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SmallScroll Down:=12
    Selection.Copy
    Sheets("My New Worksheet").Select
    Cells.Select
    Range("A13").Activate
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Sheets("Sheet3").Select
    Selection.Copy
    Sheets("My New Worksheet").Select
    Sheets("My New Worksheet").Paste
    ActiveWindow.SmallScroll Down:=0
       Sheets("Sheet3").Select
    Selection.AutoFilter
    Sheets("My New Worksheet").Activate
ActiveSheet.Range("a1:a34").Copy
'Dim wdApp As Object
'Dim wdDoc As Object
'Set wdApp = CreateObject("Word.Application")
'wdApp.Visible = True
'Set wdDoc = wdApp.Documents.Add
'Dim wdapp As Object
'Dim wddoc As Object
'Set wdapp = CreateObject("Word.Application")
'Dim wdapp As New Word.Application 'new instance of Word
    'Dim wddoc As Word.Document 'new Word document
    'Set wddoc = wdapp.Documents.Add
   ' wdapp.Documents.Add.Content.PasteSpecial DataType:=wdPasteText
   ' Application.CutCopyMode = False
   ' wdapp.Visible = False
        'With wdapp
           ' .Selection.Find.ClearFormatting
           ' .Selection.Find.Replacement.ClearFormatting
           ' With .Selection.Find
           '    .Text = """"
           '   .Replacement.Text = "" 'YourName is a variable declared earlier in this sub
           ' End With
          '  .Selection.Find.Execute Replace:=wdReplaceAll
      '  End With
      '  wdApp.Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
      '  wdApp.Selection.ParagraphFormat.SpaceAfter = 0
      '  wdApp.Selection.ParagraphFormat.SpaceBefore = 0
  ' wdapp.Selection.WholeStory
  ' wdapp.WordBasic.OpenOrCloseParaBelow
   ' wdapp.Selection.Copy
   ' wdapp.Application.Quit (False)
'AppActivate "(Privacy Act of 1974/FOUO)"
'Application.Wait (Now() + TimeValue("00:00:05"))
'SendKeys "%"
'Application.Wait (Now() + TimeValue("00:00:01"))
'SendKeys "a"
'Application.Wait (Now() + TimeValue("00:00:01"))
'SendKeys "n"
'Application.Wait (Now() + TimeValue("00:00:01"))
'SendKeys "%n"
'Application.Wait (Now() + TimeValue("00:00:01"))
'SendKeys "Nursing Note"
'SendKeys "{tab}"
'Application.Wait (Now() + TimeValue("00:00:01"))
'SendKeys "Immunizations Given"
'SendKeys "{tab}"
'Application.Wait (Now() + TimeValue("00:00:01"))
'SendKeys "^v"
Application.ScreenUpdating = False
Shell "notepad.exe", vbNormalFocus
Application.Wait (Now() + TimeValue("00:00:01"))
SendKeys "^v"
' SendKeys "^h"
'SendKeys ""
SendKeys "^a"
SendKeys "^c"
SendKeys "%{F4}{TAB}~"
'Excel.Application.WindowState = xlMinimized
'If Application.CutCopyMode = False Then
'MsgBox "You can now Paste into AddNote"
        Application.DisplayAlerts = False
    'Sheets("My New Worksheet").Delete
    Application.DisplayAlerts = True
Application.ScreenUpdating = True
Sheet3.Range("BB1").Value = Sheet3.Range("BB1").Value + 1
If Sheet3.Range("BB1").Value = 3 Then
Sheet3.Range("BB1").Value = 0
Application.ScreenUpdating = False
On Error Resume Next
Application.DisplayAlerts = False
    Sheets("My New Worksheet").Delete
    Application.DisplayAlerts = True
Sheet3.Activate
Dim ctrl As Control
For Each ctrl In Me.Controls
    If TypeName(ctrl) = "CheckBox" Then ctrl.Value = False
    Next
    
'Range("AM9:AM51,AQ9:AQ51,AP15:AP54").ClearContents
'Range("AQ9:AQ51,AP15:AP54").ClearContents
With Sheet3
Sheet3.TextBox1.Value = ""
Sheet3.TextBox2.Value = ""
Sheet3.TextBox3.Value = ""
Sheet3.TextBox4.Value = ""
'Sheet3.TextBox5.Value = ""
Sheet3.TextBox6.Value = ""
Sheet3.TextBox7.Value = ""
Sheet3.TextBox8.Value = ""
Sheet3.TextBox9.Value = ""
Sheet3.TextBox10.Value = ""
Sheet3.TextBox11.Value = ""
Sheet3.TextBox12.Value = ""
Sheet3.TextBox13.Value = ""
Sheet3.TextBox14.Value = ""
Sheet3.TextBox15.Value = ""
Sheet3.TextBox16.Value = ""
Sheet3.TextBox17.Value = ""
Sheet3.TextBox18.Value = ""
Sheet3.TextBox19.Value = ""
Sheet3.TextBox20.Value = ""
'Sheet3.TextBox21.Value = ""
Sheet3.TextBox22.Value = ""
Sheet3.TextBox23.Value = ""
Sheet3.Range("B27:B48").Value = ""
End With
'////////////////CHANGED////////////
'frmimm.CheckBox27.Value = False
'frmimm.CheckBox2.Value = False
'frmimm.CheckBox5.Value = False
'frmimm.CheckBox8.Value = False
'frmimm.CheckBox11.Value = False
'frmimm.CheckBox15.Value = False
'frmimm.CheckBox18.Value = False
'frmimm.CheckBox21.Value = False
'frmimm.CheckBox24.Value = False
'frmimm.CheckBox30.Value = False
'frmimm.CheckBox1.Value = False
'frmimm.CheckBox3.Value = False
'frmimm.CheckBox4.Value = False
'frmimm.CheckBox6.Value = False
'frmimm.CheckBox7.Value = False
'frmimm.CheckBox9.Value = False
'frmimm.CheckBox10.Value = False
'frmimm.CheckBox12.Value = False
'frmimm.CheckBox13.Value = False
'frmimm.CheckBox14.Value = False
'frmimm.CheckBox16.Value = False
'frmimm.CheckBox17.Value = False
'frmimm.CheckBox19.Value = False
'frmimm.CheckBox20.Value = False
'frmimm.CheckBox22.Value = False
'frmimm.CheckBox23.Value = False
'frmimm.CheckBox25.Value = False
'frmimm.CheckBox26.Value = False
'frmimm.CheckBox28.Value = False
'frmimm.CheckBox29.Value = False
'Sheet3.Range("am15:ap24").Value = ""
'////////////^CHANGED^///////////
Application.ScreenUpdating = True
End If
Exit Sub
End Sub
Private Sub CommandButton4_Click()
frmMain.Show
frmshot.Hide
End Sub
Private Sub CommandButton5_Click()
frmimm.Show vbModeless
Sheet3.Activate
frmshot.Hide
frmMain.Hide
End Sub
Private Sub expdate_Change()
Sheet3.Range("h27").Value = expdate.Value
End Sub
Private Sub exp2_Change()
Sheet3.Range("h28").Value = exp2.Value
End Sub
Sub exp3_Change()
Sheet3.Range("h29").Value = exp3.Value
End Sub
Sub exp4_change()
Sheet3.Range("h30").Value = exp4.Value
End Sub
Sub exp5_change()
Sheet3.Range("h31").Value = exp5.Value
End Sub
Sub exp6_change()
Sheet3.Range("h32").Value = exp6.Value
End Sub
Sub exp7_change()
Sheet3.Range("h33").Value = exp7.Value
End Sub
Sub exp8_change()
Sheet3.Range("h34").Value = exp8.Value
End Sub
Sub exp9_change()
Sheet3.Range("h35").Value = exp9.Value
End Sub
Sub exp10_change()
Sheet3.Range("h36").Value = exp10.Value
End Sub
Sub exp11_change()
Sheet3.Range("h37").Value = exp11.Value
End Sub
Sub exp12_change()
Sheet3.Range("h38").Value = exp12.Value
End Sub
Sub exp13_change()
Sheet3.Range("h39").Value = exp13.Value
End Sub
Sub exp14_change()
Sheet3.Range("h40").Value = exp14.Value
End Sub
Sub exp15_change()
Sheet3.Range("h41").Value = exp15.Value
End Sub
Sub exp16_change()
Sheet3.Range("h42").Value = exp16.Value
End Sub
Sub exp17_change()
Sheet3.Range("h43").Value = exp17.Value
End Sub
Sub exp18_change()
Sheet3.Range("h44").Value = exp18.Value
End Sub
Sub exp19_change()
Sheet3.Range("h45").Value = exp19.Value
End Sub
Sub exp20_change()
Sheet3.Range("h46").Value = exp20.Value
End Sub
Sub exp21_Change()
Sheet3.Range("h47").Value = exp21.Value
End Sub
Sub exp22_change()
Sheet3.Range("h48").Value = exp22.Value
End Sub

Private Sub Label26_Click()
End Sub
Private Sub lotnumber_Change()
Sheet3.Range("f27").Value = lotnumber.Value
End Sub
Private Sub manufacturer_Change()
Sheet3.Range("g27").Value = manufacturer.Value
End Sub
Private Sub TextBox1_Change()
Sheet3.Range("f28").Value = TextBox1.Value
End Sub
Private Sub TextBox2_Change()
Sheet3.Range("f29").Value = TextBox2.Value
End Sub
Private Sub TextBox21_Change()
Sheet3.Range("f48").Value = TextBox21.Value
End Sub

Private Sub TextBox22_Change()
Sheet3.Range("g28").Value = TextBox22.Value
End Sub
Private Sub TextBox23_Change()
Sheet3.Range("g29").Value = TextBox23.Value
End Sub
Private Sub TextBox24_Change()
Sheet3.Range("g30").Value = TextBox24.Value
End Sub
Private Sub TextBox25_Change()
Sheet3.Range("g31").Value = TextBox25.Value
End Sub
Private Sub TextBox26_Change()
Sheet3.Range("g32").Value = TextBox26.Value
End Sub
Private Sub TextBox27_Change()
Sheet3.Range("g33").Value = TextBox27.Value
End Sub
Private Sub TextBox28_Change()
Sheet3.Range("g34").Value = TextBox28.Value
End Sub
Private Sub TextBox29_Change()
Sheet3.Range("g35").Value = TextBox29.Value
End Sub
Private Sub TextBox30_Change()
Sheet3.Range("g36").Value = TextBox30.Value
End Sub
Private Sub TextBox31_Change()
Sheet3.Range("g37").Value = TextBox31.Value
End Sub
Private Sub TextBox32_Change()
Sheet3.Range("g38").Value = TextBox32.Value
End Sub
Private Sub TextBox33_Change()
Sheet3.Range("g39").Value = TextBox33.Value
End Sub
Private Sub TextBox34_Change()
Sheet3.Range("g40").Value = TextBox34.Value
End Sub
Private Sub TextBox35_Change()
Sheet3.Range("g41").Value = TextBox35.Value
End Sub
Private Sub TextBox36_Change()
Sheet3.Range("g42").Value = TextBox36.Value
End Sub
Private Sub TextBox37_Change()
Sheet3.Range("g43").Value = TextBox37.Value
End Sub
Private Sub TextBox38_Change()
Sheet3.Range("g44").Value = TextBox38.Value
End Sub
Private Sub TextBox39_Change()
Sheet3.Range("g45").Value = TextBox39.Value
End Sub
Private Sub TextBox40_Change()
Sheet3.Range("g46").Value = TextBox40.Value
End Sub
Private Sub TextBox41_Change()
Sheet3.Range("g47").Value = TextBox41.Value
End Sub
Private Sub TextBox42_Change()
Sheet3.Range("g48").Value = TextBox42.Value
End Sub
Private Sub TextBox3_Change()
Sheet3.Range("f30").Value = TextBox3.Value
End Sub
Private Sub TextBox4_Change()
Sheet3.Range("f31").Value = TextBox4.Value
End Sub
Private Sub TextBox43_Change()
Sheet3.Range("i28").Value = TextBox43.Value
End Sub
Private Sub textbox44_change()
 Sheet3.Range("i29").Value = TextBox44.Value
End Sub
Private Sub textbox45_change()
Sheet3.Range("i30").Value = TextBox45.Value
End Sub
Private Sub textbox46_change()
 Sheet3.Range("i31").Value = TextBox46.Value
End Sub
Private Sub textbox47_change()
Sheet3.Range("i32").Value = TextBox47.Value
End Sub
Private Sub textbox48_change()
Sheet3.Range("i33").Value = TextBox48.Value
End Sub
Private Sub textbox49_change()
Sheet3.Range("i34").Value = TextBox49.Value
End Sub
Private Sub TextBox50_change()
Sheet3.Range("i35").Value = TextBox50.Value
End Sub
Private Sub TextBox51_change()
Sheet3.Range("i36").Value = TextBox51.Value
End Sub
Sub textbox52_change()
Sheet3.Range("i37").Value = TextBox52.Value
End Sub
Sub textbox53_change()
Sheet3.Range("i38").Value = TextBox53.Value
End Sub
Sub textbox54_change()
Sheet3.Range("i39").Value = TextBox54.Value
End Sub
Sub textbox55_change()
Sheet3.Range("i40").Value = TextBox55.Value
End Sub
Sub textbox56_change()
Sheet3.Range("i41").Value = TextBox56.Value
End Sub
Private Sub textbox57_change()
Sheet3.Range("i42").Value = TextBox57.Value
End Sub
Sub textbox58_change()
Sheet3.Range("i43").Value = TextBox58.Value
End Sub
Sub textbox59_change()
Sheet3.Range("i44").Value = TextBox59.Value
End Sub
Sub textbox60_change()
Sheet3.Range("i45").Value = TextBox60.Value
End Sub
Private Sub textbox61_change()
Sheet3.Range("i46").Value = TextBox61.Value
End Sub
Private Sub textbox62_change()
 Sheet3.Range("i47").Value = TextBox62.Value
End Sub
Sub textbox63_change()
Sheet3.Range("i48").Value = TextBox63.Value
End Sub
Private Sub TextBox5_Change()
Sheet3.Range("f32").Value = TextBox5.Value
End Sub
Private Sub TextBox6_Change()
Sheet3.Range("f33").Value = TextBox6.Value
End Sub
Private Sub TextBox7_Change()
Sheet3.Range("f34").Value = TextBox7.Value
End Sub
Private Sub TextBox8_Change()
Sheet3.Range("f35").Value = TextBox8.Value
End Sub
Private Sub TextBox9_Change()
Sheet3.Range("f36").Value = TextBox9.Value
End Sub
Private Sub TextBox10_Change()
Sheet3.Range("f37").Value = TextBox10.Value
End Sub
Private Sub TextBox11_Change()
Sheet3.Range("f38").Value = TextBox11.Value
End Sub
Private Sub TextBox12_Change()
Sheet3.Range("f39").Value = TextBox12.Value
End Sub
Private Sub TextBox13_Change()
Sheet3.Range("f40").Value = TextBox13.Value
End Sub
Private Sub TextBox14_Change()
Sheet3.Range("f41").Value = TextBox14.Value
End Sub
Private Sub TextBox15_Change()
Sheet3.Range("f42").Value = TextBox15.Value
End Sub
Private Sub TextBox16_Change()
Sheet3.Range("f43").Value = TextBox16.Value
End Sub
Private Sub TextBox17_Change()
Sheet3.Range("f44").Value = TextBox17.Value
End Sub
Private Sub TextBox18_Change()
Sheet3.Range("f45").Value = TextBox18.Value
End Sub
Private Sub TextBox19_Change()
Sheet3.Range("f46").Value = TextBox19.Value
End Sub
Private Sub TextBox20_Change()
Sheet3.Range("f47").Value = TextBox20.Value
End Sub
Private Sub UserForm_Activate()
Sheet3.Visible = xlSheetVisible
Sheet3.Activate
Excel.Application.Visible = False
Application.ScreenUpdating = False
TextBox43.Value = Sheet3.Range("i28").Value
TextBox44.Value = Sheet3.Range("i29").Value
TextBox45.Value = Sheet3.Range("i30").Value
TextBox46.Value = Sheet3.Range("i31").Value
TextBox47.Value = Sheet3.Range("i32").Value
TextBox48.Value = Sheet3.Range("i33").Value
TextBox49.Value = Sheet3.Range("i34").Value
TextBox50.Value = Sheet3.Range("i35").Value
TextBox51.Value = Sheet3.Range("i36").Value
TextBox52.Value = Sheet3.Range("i37").Value
TextBox53.Value = Sheet3.Range("i38").Value
TextBox54.Value = Sheet3.Range("i39").Value
TextBox55.Value = Sheet3.Range("i40").Value
TextBox56.Value = Sheet3.Range("i41").Value
TextBox57.Value = Sheet3.Range("i42").Value
TextBox58.Value = Sheet3.Range("i43").Value
TextBox59.Value = Sheet3.Range("i44").Value
TextBox60.Value = Sheet3.Range("i45").Value
TextBox61.Value = Sheet3.Range("i46").Value
TextBox62.Value = Sheet3.Range("i47").Value
TextBox63.Value = Sheet3.Range("i48").Value
Label30.Caption = Sheet3.Range("c48").Value
Label29.Caption = Sheet3.Range("c47").Value
Label28.Caption = Sheet3.Range("c46").Value
Label27.Caption = Sheet3.Range("c45").Value
Label26.Caption = Sheet3.Range("c44").Value
Label25.Caption = Sheet3.Range("c43").Value
Label24.Caption = Sheet3.Range("c42").Value
Label23.Caption = Sheet3.Range("c41").Value
Label22.Caption = Sheet3.Range("c40").Value
Label21.Caption = Sheet3.Range("c39").Value
Label20.Caption = Sheet3.Range("c38").Value
Label19.Caption = Sheet3.Range("c37").Value
Label18.Caption = Sheet3.Range("c36").Value
Label17.Caption = Sheet3.Range("c35").Value
Label16.Caption = Sheet3.Range("c34").Value
Label15.Caption = Sheet3.Range("c33").Value
Label14.Caption = Sheet3.Range("c32").Value
Label13.Caption = Sheet3.Range("c31").Value
Label12.Caption = Sheet3.Range("c30").Value
Label11.Caption = Sheet3.Range("c29").Value
Label10.Caption = Sheet3.Range("c28").Value
visdate.Value = Sheet3.Range("i27").Value
expdate.Value = Sheet3.Range("h27").Value
exp2.Value = Sheet3.Range("h28").Value
exp3.Value = Sheet3.Range("h29").Value
exp4.Value = Sheet3.Range("h30").Value
exp5.Value = Sheet3.Range("h31").Value
exp6.Value = Sheet3.Range("h32").Value
exp7.Value = Sheet3.Range("h33").Value
exp8.Value = Sheet3.Range("h34").Value
exp9.Value = Sheet3.Range("h35").Value
exp10.Value = Sheet3.Range("h36").Value
exp11.Value = Sheet3.Range("h37").Value
exp12.Value = Sheet3.Range("h38").Value
exp13.Value = Sheet3.Range("h39").Value
exp14.Value = Sheet3.Range("h40").Value
exp15.Value = Sheet3.Range("h41").Value
exp16.Value = Sheet3.Range("h42").Value
exp17.Value = Sheet3.Range("h43").Value
exp18.Value = Sheet3.Range("h44").Value
exp19.Value = Sheet3.Range("h45").Value
exp20.Value = Sheet3.Range("h46").Value
exp21.Value = Sheet3.Range("h47").Value
exp22.Value = Sheet3.Range("h48").Value
manufacturer.Value = Sheet3.Range("g27").Value
TextBox22.Value = Sheet3.Range("g28").Value
TextBox23.Value = Sheet3.Range("g29").Value
TextBox24.Value = Sheet3.Range("g30").Value
TextBox25.Value = Sheet3.Range("g31").Value
TextBox26.Value = Sheet3.Range("g32").Value
TextBox27.Value = Sheet3.Range("g33").Value
TextBox28.Value = Sheet3.Range("g34").Value
TextBox29.Value = Sheet3.Range("g35").Value
TextBox30.Value = Sheet3.Range("g36").Value
TextBox31.Value = Sheet3.Range("g37").Value
TextBox32.Value = Sheet3.Range("g38").Value
TextBox33.Value = Sheet3.Range("g39").Value
TextBox34.Value = Sheet3.Range("g40").Value
TextBox35.Value = Sheet3.Range("g41").Value
TextBox36.Value = Sheet3.Range("g42").Value
TextBox37.Value = Sheet3.Range("g43").Value
TextBox38.Value = Sheet3.Range("g44").Value
TextBox39.Value = Sheet3.Range("g45").Value
TextBox40.Value = Sheet3.Range("g46").Value
TextBox41.Value = Sheet3.Range("g47").Value
TextBox42.Value = Sheet3.Range("g48").Value
TextBox1.Value = Sheet3.Range("f28").Value
TextBox2.Value = Sheet3.Range("f29").Value
TextBox3.Value = Sheet3.Range("f30").Value
TextBox4.Value = Sheet3.Range("f31").Value
TextBox5.Value = Sheet3.Range("f32").Value
TextBox6.Value = Sheet3.Range("f33").Value
TextBox7.Value = Sheet3.Range("f34").Value
TextBox8.Value = Sheet3.Range("f35").Value
TextBox9.Value = Sheet3.Range("f36").Value
TextBox10.Value = Sheet3.Range("f37").Value
TextBox11.Value = Sheet3.Range("f38").Value
TextBox12.Value = Sheet3.Range("f39").Value
TextBox13.Value = Sheet3.Range("f40").Value
TextBox14.Value = Sheet3.Range("f41").Value
TextBox15.Value = Sheet3.Range("f42").Value
TextBox16.Value = Sheet3.Range("f43").Value
TextBox17.Value = Sheet3.Range("f44").Value
TextBox18.Value = Sheet3.Range("f45").Value
TextBox19.Value = Sheet3.Range("f46").Value
TextBox20.Value = Sheet3.Range("f47").Value
TextBox21.Value = Sheet3.Range("f48").Value
Label9.Caption = Sheet3.Range("c27").Value
Dim rngColor As Range
  Dim ws As Worksheet
  Set ws = Worksheets("sheet3")
  For Each rngColor In ws.Range("AG10:AG21")
    Me.ComboBox1.AddItem rngColor.Value
    Me.ComboBox3.AddItem rngColor.Value
    Me.ComboBox4.AddItem rngColor.Value
    Me.ComboBox5.AddItem rngColor.Value
    Me.ComboBox6.AddItem rngColor.Value
    Me.ComboBox7.AddItem rngColor.Value
    Me.ComboBox8.AddItem rngColor.Value
    Me.ComboBox9.AddItem rngColor.Value
    Me.ComboBox10.AddItem rngColor.Value
    Me.ComboBox11.AddItem rngColor.Value
    Me.ComboBox12.AddItem rngColor.Value
    Me.ComboBox13.AddItem rngColor.Value
    Me.ComboBox14.AddItem rngColor.Value
    Me.ComboBox15.AddItem rngColor.Value
    Me.ComboBox16.AddItem rngColor.Value
    Me.ComboBox17.AddItem rngColor.Value
    Me.ComboBox18.AddItem rngColor.Value
    Me.ComboBox19.AddItem rngColor.Value
    Me.ComboBox20.AddItem rngColor.Value
    Me.ComboBox21.AddItem rngColor.Value
    Me.ComboBox22.AddItem rngColor.Value
    Me.ComboBox23.AddItem rngColor.Value
  Next rngColor
Dim rngdose As Range
  Set ws = Worksheets("sheet3")
  For Each rngdose In ws.Range("AH10:AH19")
    Me.ComboBox2.AddItem rngdose.Value
    Me.ComboBox24.AddItem rngdose.Value
    Me.ComboBox25.AddItem rngdose.Value
    Me.ComboBox26.AddItem rngdose.Value
    Me.ComboBox27.AddItem rngdose.Value
    Me.ComboBox28.AddItem rngdose.Value
    Me.ComboBox29.AddItem rngdose.Value
    Me.ComboBox30.AddItem rngdose.Value
    Me.ComboBox31.AddItem rngdose.Value
    Me.ComboBox32.AddItem rngdose.Value
    Me.ComboBox33.AddItem rngdose.Value
    Me.ComboBox34.AddItem rngdose.Value
    Me.ComboBox35.AddItem rngdose.Value
    Me.ComboBox36.AddItem rngdose.Value
    Me.ComboBox37.AddItem rngdose.Value
    Me.ComboBox38.AddItem rngdose.Value
    Me.ComboBox39.AddItem rngdose.Value
    Me.ComboBox40.AddItem rngdose.Value
    Me.ComboBox41.AddItem rngdose.Value
    Me.ComboBox42.AddItem rngdose.Value
    Me.ComboBox43.AddItem rngdose.Value
    Me.ComboBox44.AddItem rngdose.Value
  Next rngdose
  ComboBox1.Value = Sheet3.Range("d27").Value
  ComboBox3.Value = Sheet3.Range("d28").Value
  ComboBox4.Value = Sheet3.Range("d29").Value
  ComboBox5.Value = Sheet3.Range("d30").Value
  ComboBox6.Value = Sheet3.Range("d31").Value
  ComboBox7.Value = Sheet3.Range("d32").Value
  ComboBox8.Value = Sheet3.Range("d33").Value
  ComboBox9.Value = Sheet3.Range("d34").Value
  ComboBox10.Value = Sheet3.Range("d35").Value
  ComboBox11.Value = Sheet3.Range("d36").Value
  ComboBox12.Value = Sheet3.Range("d37").Value
  ComboBox13.Value = Sheet3.Range("d38").Value
  ComboBox14.Value = Sheet3.Range("d39").Value
  ComboBox15.Value = Sheet3.Range("d40").Value
  ComboBox16.Value = Sheet3.Range("d41").Value
  ComboBox17.Value = Sheet3.Range("d42").Value
  ComboBox18.Value = Sheet3.Range("d43").Value
  ComboBox19.Value = Sheet3.Range("d44").Value
  ComboBox20.Value = Sheet3.Range("d45").Value
  ComboBox21.Value = Sheet3.Range("d46").Value
  ComboBox22.Value = Sheet3.Range("d47").Value
  ComboBox23.Value = Sheet3.Range("d48").Value
  ComboBox2.Value = Sheet3.Range("e27").Value
  ComboBox24.Value = Sheet3.Range("e28").Value
  ComboBox25.Value = Sheet3.Range("e29").Value
  ComboBox26.Value = Sheet3.Range("e30").Value
  ComboBox27.Value = Sheet3.Range("e31").Value
  ComboBox28.Value = Sheet3.Range("e32").Value
  ComboBox29.Value = Sheet3.Range("e33").Value
  ComboBox30.Value = Sheet3.Range("e34").Value
  ComboBox31.Value = Sheet3.Range("e35").Value
  ComboBox32.Value = Sheet3.Range("e36").Value
  ComboBox33.Value = Sheet3.Range("e37").Value
  ComboBox34.Value = Sheet3.Range("e38").Value
  ComboBox35.Value = Sheet3.Range("e39").Value
  ComboBox36.Value = Sheet3.Range("e40").Value
  ComboBox37.Value = Sheet3.Range("e41").Value
  ComboBox38.Value = Sheet3.Range("e42").Value
  ComboBox39.Value = Sheet3.Range("e43").Value
  ComboBox40.Value = Sheet3.Range("e44").Value
  ComboBox41.Value = Sheet3.Range("e45").Value
  ComboBox42.Value = Sheet3.Range("e46").Value
  ComboBox43.Value = Sheet3.Range("e47").Value
  ComboBox44.Value = Sheet3.Range("e48").Value
  lotnumber.Value = Sheet3.Range("f27").Value
  Application.ScreenUpdating = True
End Sub

Private Sub UserForm_Deactivate()
Sheet5.Activate
Sheet2.Visible = xlSheetVisible
Sheet1.Visible = xlSheetHidden
Sheet3.Visible = xlSheetHidden
Excel.Application.Visible = False
End Sub
Private Sub visdate_Change()
Sheet3.Range("i27").Value = visdate.Value
End Sub
 

Excel Facts

Get help while writing formula
Click the italics "fx" icon to the left of the formula bar to open the Functions Arguments dialog. Help is displayed for each argument.
You must log in or register to reply here.

Similar threads

B
  • Solved
Getting Macros to run automatically
Replies
3
Views
289
mumps
mumps
Robyrubyjane
  • Question
search data not only based on first word in search engine VBA
Replies
2
Views
233
Robyrubyjane
Robyrubyjane
B
  • Solved
VBA Help - Same Function needed for multiple sheets
Replies
2
Views
291
birdman15
B
I
  • Question
Add button to increment textbox value by 1
2
Replies
13
Views
94
Artik
Artik
I
  • Question
Textbox wont allow set focus on it after trying to clear textboxes
2
Replies
13
Views
110
ipbr21054
I

Forum statistics

Threads
1,216,111
Messages
6,128,899
Members
449,477
Latest member
panjongshing

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top