Message box VBA

[DarrenF]

Hello,

I have created a form in excel and have cells E3, E7 and E19 that are drop downs that need to require information to be selected. E3 has "Select Name", E7 has "Select Reason" and E19 has "Select Yes/No". Can I have a message box that would pop up if any of those boxes have those key words still in them after they press the submit button (button already created)? I also have a text field in E8, if someone tries to submit with it being blank, can I have a message pop up?

Thanks!
Darren

 

[DarrenF]

I believe I've figured it out. However, I would like to have the information corrected before the process for saving happens. What's happening now is the message box will pop, but once you click ok, it will save. I don't want it to be saved until the correct information is selected or input. This is what I have:

Sub Submit_ALL()
Procedure1
Procedure2
Procedure3
Procedure4
Procedure5
Procedure6
Procedure7
End Sub


Sub Procedure1()


If Range("E3").Text = "SELECT NAME" Then
MsgBox ("Please select your name.")
End If

End Sub


Sub Procedure2()


If Range("E7").Text = "SELECT REASON" Then
MsgBox ("Please select the reason for the call.")
End If


End Sub


Sub Procedure3()


If Range("E19").Text = "SELECT YES/NO" Then
MsgBox ("Please select if the call was avoidable.")
End If


End Sub


Sub Procedure4()


If Range("E8").Value <> "0" Then
MsgBox ("Please add a comment about your call.")
End If


End Sub


Sub Procedure5()
Range("K1").Value = Now()
Range("M1").Value = Now()

End Sub


Sub Procedure6()
Dim Dates As String
Dim Time As String
Dim CSTechName As String
Dim CallerName As String
Dim CallerSupervisor As String
Dim CallerPosition As String
Dim ReasonForTheCall As String
Dim StepsTakenToResolve As String
Dim WasTheCallAvoidable As String
Dim EmailCaller As String
Dim EmailCallerLeader As String


Worksheets("Form").Select
Dates = Range("K1")
Worksheets("Form").Select
Time = Range("M1")
Worksheets("Form").Select
CSTechName = Range("E3")
Worksheets("Form").Select
CallerName = Range("E4")
Worksheets("Form").Select
CallerSupervisor = Range("E5")
Worksheets("Form").Select
CallerPosition = Range("E6")
Worksheets("Form").Select
ReasonForTheCall = Range("E7")
Worksheets("Form").Select
StepsTakenToResolve = Range("E8")
Worksheets("Form").Select
WasTheCallAvoidable = Range("E19")
Worksheets("Form").Select
EmailCaller = Range("E20")
Worksheets("Form").Select
EmailCallerLeader = Range("E21")


Workbooks.Open Filename:="H:\CS Tech Support\Call DATA.xlsx"
Worksheets("DATA").Range("A1").Select
RowCount = Worksheets("DATA").Range("A1").CurrentRegion.Rows.Count
With Worksheets("DATA").Range("A1")
.Offset(RowCount, 0) = Dates
.Offset(RowCount, 1) = Time
.Offset(RowCount, 2) = CSTechName
.Offset(RowCount, 3) = CallerName
.Offset(RowCount, 4) = CallerSupervisor
.Offset(RowCount, 5) = CallerPosition
.Offset(RowCount, 6) = ReasonForTheCall
.Offset(RowCount, 7) = StepsTakenToResolve
.Offset(RowCount, 8) = WasTheCallAvoidable
.Offset(RowCount, 9) = EmailCaller
.Offset(RowCount, 10) = EmailCallerLeader
End With
ActiveWorkbook.Save
ActiveWorkbook.Close SaveChanges
Sheets("Form").Select
Range("E3").Select


End Sub


Sub Procedure7()
Worksheets("Form").Range("E4:G4").ClearContents
Worksheets("Form").Range("K5:L6").ClearContents
Worksheets("Form").Range("E7:I7").ClearContents
Worksheets("Form").Range("E8:L18").ClearContents
Worksheets("Form").Range("E19:F19").ClearContents
Worksheets("Form").Range("E20:F20").ClearContents
Worksheets("Form").Range("E21:F21").ClearContents
Worksheets("Form").Range("E7:I7").Value = "SELECT REASON"
Worksheets("Form").Range("E19:F19").Value = "SELECT YES/NO"


End Sub