Exit Code Upon Cancel On Type 8 Input Box

[FARAZ QURESHI]

For a custom dialogue box I was referred to the following excellent sample.
However, now that I have come across a situation in which a mistake took
place, upon pressing the "Cancel" button the rest of the code still seems to
be working!

How to exit the code if e.g. Cancel button of:
Application.InputBox(Prompt:="What is the price of house?", Type:=8)
is pressed?

Sub HCALC()
HouseCalc _
Application.InputBox(Prompt:="What is the price of house?", Type:=8), _
Application.InputBox(Prompt:="What is your earning?", Type:=8)
End Sub
===
Sub HouseCalc(price As Double, wage As Double)
If wage < price Then
MsgBox "With an excess of " & price - wage & " in the price you
cannot afford this house.", , "SORRY!!!"
Else
MsgBox "With an excess earnings of " & wage - price & " this house
is affordable.", , "YAHOO!!!"
End If
MsgBox "Your Earning Is " & wage & "!" & vbNewLine & "Whereas The
House Costs " & price & "!", , "RESULT!!!"
End Sub

 

[Bob Phillips]

Sub HCALC()
Dim price As Range
Dim earn As Range
On Error Resume Next
Set price = Application.InputBox(Prompt:="What is the price of house?",
Type:=8)
If Not price Is Nothing Then
Set earn = Application.InputBox(Prompt:="What is your earning?",
Type:=8)
If Not earn Is Nothing Then
On Error GoTo 0
HouseCalc price.Value, earn.Value
End If
End If
End Sub

Sub HouseCalc(price As Double, wage As Double)
If wage < price Then
MsgBox "With an excess of " & price - wage & " in the price " & _
"you cannot afford this house.", , "SORRY!!!"
Else
MsgBox "With an excess earnings of " & wage - price & " this house "
& _
"is affordable.", , "YAHOO!!!"
End If
MsgBox "Your Earning Is " & wage & "!" & vbNewLine & "Whereas The "
& _
"House Costs " & price & "!", , "RESULT!!!"
End Sub

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Mike H]

You could re-write the input module or di this

Sub HouseCalc(price As Double, wage As Double)
If wage = 0 Or price = 0 Then Exit Sub


Mike