How To Do An If Then Statement :: Message Box Otherwise Execute Code

[drmingle]

I would like to run the below code only when there is no "x"'s in the following ranges:

ActiveSheet.Range("C16:C633")

Sub msgReset()
    Dim iRet As Integer
    Dim strPrompt As String
    Dim strTitle As String
    Dim num As Integer
    Dim var2 As String
    
    var2 = "x"
    
    Sheets("Pricing").Select
  
    num = Application.CountIf(ActiveSheet.Range("C16:C633"), var2)
    ' Prompt
    strPrompt = num & " 'excluded' services will not be reset, is this OK?"
 
    ' Dialog's Title
    strTitle = ".:: Reset Increase/Decrease to 100% ::."
 
    'Display MessageBox
    iRet = MsgBox(strPrompt, vbYesNo, strTitle)
 
    ' Check pressed button
    If iRet = vbNo Then
        Exit Sub
    Else
        Call Inclusion
    End If

End Sub

otherwise
Call Inclusion

 

[Norie]

Do you mean you want to call Inclusion if there are no 'x' in the C16:C33?

 

[drmingle]

Do you mean you want to call Inclusion if there are no 'x' in the C16:C33?

Yes, I want to call inclusion if there is no 'x' in the range C16:C633.

 

[drmingle]

This ended up doing the trick...

Sub msgReset()
    Dim iRet As Integer
    Dim strPrompt As String
    Dim strTitle As String
    Dim num As Integer
    Dim var2 As String
    
    var2 = "x"
    
    Sheets("Pricing").Select
  
    num = Application.CountIf(ActiveSheet.Range("C16:C633"), var2)
    
    If num = 0 Then
        Call Inclusion
    End If
    
    If num > 0 Then
    
    ' Prompt
    strPrompt = num & " 'excluded' services will not be reset, is this OK?"
 
    ' Dialog's Title
    strTitle = ".:: Reset Increase/Decrease to 100% ::."
 
    'Display MessageBox
    iRet = MsgBox(strPrompt, vbYesNo, strTitle)
 
    ' Check pressed button
    If iRet = vbNo Then
        Exit Sub
    Else
        Call Inclusion
    End If
    End If

End Sub