If instead of GoTo

[eznsd]

Sub ProcessBOM()
    Dim Boards As Long
    Dim Cancel As Boolean
    
    Sheets("DK").Select
    
    Range("Boards").value = Application.InputBox _
    (Prompt:="How many boards are to be assembled?", _
    Title:="Number of Boards", _
    Type:=1)
    Cancel = Range("Boards").value
    
    If Cancel = False Then
        MsgBox "The Cancel button was pressed, exiting"
        Exit Sub
    Else
        Call CopyFormulas
        Call Copy
        Call DeleteBlankRows
        Call DeleteNoDK
        Call dkpn
        Call CleanUp
        Call StockCheck
        Call Total
    
        Sheets("BOM").Activate
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=Range("A260").value
        Application.DisplayAlerts = True
    
        MsgBox "The BOM processing has completed and the file has been saved"
    End If
End Sub

Hi All. I have this code to call different subs. The user is prompted to enter a number via an input box. If the user hits cancel, I would like to exit the sub. When cancel is pressed, the value in the cell which contains the number is "FALSE". No matter how I rewrite the code, it never exits. I originally had a GoTo statement but I have read a number of posts which say it should be avoided. Any help would be greatly appreciated!

 

[Klorrnond]

Hi eznsd,

When you press "cancel" in the inputbox, it's the same as typing nothing.

dim sCancel as string
sCancel = inputbox("Enter something...")
if sCancel = vbnullstring then
    exit sub
end if

 

[eznsd]

Hi eznsd,

When you press "cancel" in the inputbox, it's the same as typing nothing.

dim sCancel as string
sCancel = inputbox("Enter something...")
if sCancel = vbnullstring then
    exit sub
end if

Thanks for the quick response Klorrnond! I have tried a few different variations without success. This is one variation. What am I doing wrong?

Sub ProcessBOM()
    Dim Boards As Long
    Dim sCancel As String
    
    Sheets("DK").Select
    
    Range("Boards").value = Application.InputBox _
    (Prompt:="How many boards are to be assembled?", _
    Title:="Number of Boards", _
    Type:=1)
    sCancel = InputBox("Boards")
    
    If sCancel = vbNullString Then
        MsgBox "The Cancel button was pressed, exiting"
        Exit Sub
    Else
        Call CopyFormulas
        Call Copy
        Call DeleteBlankRows
        Call DeleteNoDK
        Call dkpn
        Call CleanUp
        Call StockCheck
        Call Total
    
        Sheets("BOM").Activate
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=Range("A260").value
        Application.DisplayAlerts = True
    
        MsgBox "The BOM processing has completed and the file has been saved"
    End If
End Sub

 

[eznsd]

Sub ProcessBOM()
    Dim val As Long
    
    Sheets("DK").Select
    
    val = Application.InputBox _
    (Prompt:="How many boards are to be assembled?", _
    Title:="Number of Boards", _
    Type:=1)
    
    If val <= 0 Then
        MsgBox "Please enter a valid number"
    Else
        Call CopyFormulas
        Call Copy
        Call DeleteBlankRows
        Call DeleteNoDK
        Call dkpn
        Call CleanUp
        Call StockCheck
        Call Total
    
        Sheets("BOM").Activate
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=Range("A260").value
        Application.DisplayAlerts = True
    
        MsgBox "The BOM processing has completed and the file has been saved"
    End If
End Sub

Changing my code to this works for both the case when the user inputs 0 or presses cancel.