Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
One command in one cell initiating another command in another cel. | Excel Worksheet Functions | |||
command code ( GOTO command) in formula | New Users to Excel | |||
command button add another command | Excel Discussion (Misc queries) | |||
Pivot Table Error Message - "Command Text not set for command obje | Excel Discussion (Misc queries) | |||
I want to combine a "match" command with a copy and paste command. | Excel Programming |