A
Adeptus - ExcelForums.com
Here is a new code I have written.
What I'd like is to know if there's some code that I can put in to
make all checkboxes = false, or ensure that you can't have multiple
checkboxes checked.
Private Sub CommandButton66_Click()
Dim LastRow As Object
If CheckBox1 = "True" Then
Sheets("U14 Single").Select
Else
GoTo 2
End If
2
If CheckBox2 = "True" Then
Sheets("U14 Large").Select
Else
GoTo 3
End If
3
If CheckBox3 = "True" Then
Sheets("14-18 Single").Select
Else
GoTo 4
End If
4
If CheckBox4 = "True" Then
Sheets("14-18 Large").Select
Else
GoTo 5
End If
5
If CheckBox5 = "True" Then
Sheets("Open Single").Select
Else
GoTo 6
End If
6
If CheckBox6 = "True" Then
Sheets("Open Large").Select
End If
Set LastRow = Range("A400").End(xlUp)
LastRow.Offset(1, 0).Value = TextBox1.Text
LastRow.Offset(1, 1).Value = TextBox2.Text
LastRow.Offset(1, 2).Value = TextBox3.Text
MsgBox "Entry successfully written to Data Table"
response = MsgBox("Do you want to print the Entry
Certificate now?", vbYesNo)
If response = vbYes Then
Range("A" & Range("E3"),
"C" & Range("E3")).Select
Selection.Copy
Sheets("Printout").Select
Range("M12").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=True
Range("A1").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
Collate:=True
Sheets("U14 Single").Select
Range("A5").Select
MsgBox "Entry successfully printed!"
End If
response = MsgBox("Do you want to input another
Entry?", _
vbYesNo)
If response = vbYes Then
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.SetFocus
Else
Unload Me
End If
End Sub
What I'd like is to know if there's some code that I can put in to
make all checkboxes = false, or ensure that you can't have multiple
checkboxes checked.
Private Sub CommandButton66_Click()
Dim LastRow As Object
If CheckBox1 = "True" Then
Sheets("U14 Single").Select
Else
GoTo 2
End If
2
If CheckBox2 = "True" Then
Sheets("U14 Large").Select
Else
GoTo 3
End If
3
If CheckBox3 = "True" Then
Sheets("14-18 Single").Select
Else
GoTo 4
End If
4
If CheckBox4 = "True" Then
Sheets("14-18 Large").Select
Else
GoTo 5
End If
5
If CheckBox5 = "True" Then
Sheets("Open Single").Select
Else
GoTo 6
End If
6
If CheckBox6 = "True" Then
Sheets("Open Large").Select
End If
Set LastRow = Range("A400").End(xlUp)
LastRow.Offset(1, 0).Value = TextBox1.Text
LastRow.Offset(1, 1).Value = TextBox2.Text
LastRow.Offset(1, 2).Value = TextBox3.Text
MsgBox "Entry successfully written to Data Table"
response = MsgBox("Do you want to print the Entry
Certificate now?", vbYesNo)
If response = vbYes Then
Range("A" & Range("E3"),
"C" & Range("E3")).Select
Selection.Copy
Sheets("Printout").Select
Range("M12").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=True
Range("A1").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
Collate:=True
Sheets("U14 Single").Select
Range("A5").Select
MsgBox "Entry successfully printed!"
End If
response = MsgBox("Do you want to input another
Entry?", _
vbYesNo)
If response = vbYes Then
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox1.SetFocus
Else
Unload Me
End If
End Sub