VBA Code:
Private Sub cmdClose_Click()
End
End Sub
Private Sub cmdSubmit_Click()
'Priority Options
If Pri1.Value = "True" Then
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = Pri1.Caption
End If
If Pri2.Value = "True" Then
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = Pri2.Caption
End If
If Pri3.Value = "True" Then
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = Pri3.Caption
End If
If Pri4.Value = "True" Then
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = Pri4.Caption
End If
If Pri5.Value = "True" Then
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = Pri5.Caption
End If
If Pri6.Value = "True" Then
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = Pri6.Caption
End If
If Pri7.Value = "True" Then
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = Pri7.Caption
End If
If Pri8.Value = "True" Then
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = Pri8.Caption
End If
'ICAO Input
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = txticao.Text
'Tabs Options
If TabsGreen.Value = "True" Then
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = TabsGreen.Caption
End If
If TabsRed.Value = "True" Then
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = TabsRed.Caption
End If
If TabsDOD.Value = "True" Then
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = TabsDOD.Caption
End If
'Title Input
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = txtTitle.Text
'Document Name Input
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = txtDocumentName.Text
'Types Options
If TypesInt.Value = "True" Then
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = TypesInt.Caption
End If
If TypesMain.Value = "True" Then
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = TypesMain.Caption
End If
'Status Option
If StatusAssi.Value = "True" Then
Worksheets("Procedures").Cells(lastrow + 1, 2).Value = StatusAssi.Caption
End If
Call clearForm
End Sub
Sub clearForm()
Pri1.Value = "False"
Pri2.Value = "False"
Pri3.Value = "False"
Pri4.Value = "False"
Pri5.Value = "False"
Pri6.Value = "False"
Pri7.Value = "False"
Pri8.Value = "False"
txticao.Value = ""
TabsGreen.Value = "False"
TabsRed.Value = "False"
TabsDOD.Value = "False"
txtTitle.Value = ""
txtDocumentName.Value = ""
TypesInt.Value = "False"
TypesMain.Value = "False"
StatusAssi.Value = "False"
End Sub
This code does not kick back any errors but does not place the data into the table as I need it to. The button for the Form is located on worksheet "Dashboard". The data needs to be input to the corresponding cells/columns in worksheet "Procedures". I have a different version of this form working with text and drop downs but I am trying to switch to radio buttons to speed up the input process.