Hmmm, I have added my If Then Statements to the "Add/Update" button and I am getting a "Compile Error: Expected End With" and then it hightlights the 'Private Sub AddUpdateCand_CommandButton_Click()'
'If Then Statements
If YesRelo_OptionButton.Value = True Then
.Range("H" & idx).Value = "Travel/Hotel Authorization Made"
.Range("AF" & idx).Value = " "
.Range("AG" & idx).Value = " "
Else
.Range("H" & idx).Value = "No Travel Necessary"
.Range("AF" & idx).Value = "*****"
.Range("AG" & idx).Value = "*****"
End If
If NoRelo_OptionButton.Value = True Then
.Range("H" & idx).Value = "No Travel Necessary"
.Range("AF" & idx).Value = "*****"
.Range("AG" & idx).Value = "*****"
Else
.Range("H" & idx).Value = "Travel/Hotel Authorization Made"
.Range("AF" & idx).Value = " "
.Range("AG" & idx).Value = " "
End If
If Cand_EmpStatus.Value = "Employee" Then
.Range("L" & idx).Value = "*****"
.Range("M" & idx).Value = "*****"
.Range("P" & idx).Value = "*****"
.Range("Q" & idx).Value = "No Drug Necessary"
End If
If Cand_EmpStatus.Value = "External" Then
.Range("R" & idx).Value = "*****"
.Range("S" & idx).Value = "*****"
.Range("T" & idx).Value = "*****"
.Range("U" & idx).Value = "*****"
.Range("Q" & idx).Value = "Drug Screening"
End If
If Cand_EmpStatus.Value = "Agency" Then
.Range("R" & idx).Value = " "
.Range("S" & idx).Value = " "
.Range("T" & idx).Value = " "
.Range("U" & idx).Value = " "
.Range("Q" & idx).Value = "Drug Screening"
End If
Bookmarks