Stipulation in command
 

I would like to add a stipulation to my sub that will check each text box for
a value. If a box is empty I would like the user to be directed to fill out
all information before they could continue.

Here is the sub:

Private Sub SaveCase_Click()

If Worksheets("Data").Range("A1") = "" Then

Worksheets("Data").Range("A1") = TBfud.Value
Worksheets("Data").Range("B1") = TBicd.Value
Worksheets("Data").Range("A1") = TBcn.Value

Else

Worksheets("Data").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) =
TBfud.Value
Worksheets("Data").Range("B" & Rows.Count).End(xlUp).Offset(1, 0) =
TBicd.Value
Worksheets("Data").Range("C" & Rows.Count).End(xlUp).Offset(1, 0) = TBcn.Value


End If

MsgBox "Case Added" & vbCrLf & "Remember to save the file before you
close.", vbOKOnly, "Case Tracking File"

Sheets("Cases").TBfud.Value = ""
Sheets("Cases").TBicd.Value = ""
Sheets("Cases").TBcn.Value = ""

End Sub

Stipulation in command
 

Try something like this at the top of your code...

Private Sub SaveCase_Click()

If TBfud.Value = "" Or TBicd.Value = "" Or TBcn.Value = "" Then
Msgbox "Fill out the text boxes!"
Exit Sub
End If

'Rest of code here


HTH,
Bernie
MS Excel MVP


"Qaspec" wrote in message
...
I would like to add a stipulation to my sub that will check each text box for
a value. If a box is empty I would like the user to be directed to fill out
all information before they could continue.

Here is the sub:

Private Sub SaveCase_Click()

If Worksheets("Data").Range("A1") = "" Then

Worksheets("Data").Range("A1") = TBfud.Value
Worksheets("Data").Range("B1") = TBicd.Value
Worksheets("Data").Range("A1") = TBcn.Value

Else

Worksheets("Data").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) =
TBfud.Value
Worksheets("Data").Range("B" & Rows.Count).End(xlUp).Offset(1, 0) =
TBicd.Value
Worksheets("Data").Range("C" & Rows.Count).End(xlUp).Offset(1, 0) = TBcn.Value


End If

MsgBox "Case Added" & vbCrLf & "Remember to save the file before you
close.", vbOKOnly, "Case Tracking File"

Sheets("Cases").TBfud.Value = ""
Sheets("Cases").TBicd.Value = ""
Sheets("Cases").TBcn.Value = ""

End Sub