Continue or Exit Macro based on cell value

[rachel06]

Hi!

Trying to write a macro that looks at the value of C1.

If it's blank, I want a message box to pop up with two options: CONTINUE or EXIT. If they click "Continue", I want the macro to roll on to Copyfilefromto. If they click "Exit", I want the macro to stop so C1 can be filled out and the macro can rerun and all will be well.

This is what I've got and it's only giving OK as an option. Is what I want to do even possible?

Sub CheckQtr()

Dim mycheck As VbMsgBoxResult

If Range("C1").Value = "" Then

    mycheck = MsgBox("No quarter has been indicated in cell C1. Click CONTINUE to proceed or EXIT to return to Excel.  ", vbContinueExit)
    If mycheck = vbExit Then
        Exit Sub
        End If
Else
    Call Copyfilefromto
End If

End Sub

 

[DanteAmor]

I'm not sure if the vbContinueExit option exists, in my version it doesn't exist. But if it works in your version it should be like this:

Sub CheckQtr()
  Dim mycheck As VbMsgBoxResult

  If Range("C1").Value = "" Then
    mycheck = MsgBox("No quarter has been indicated in cell C1. Click CONTINUE to proceed or EXIT to return to Excel.  ", vbContinueExit)
    If mycheck = vbExit Then
        Exit Sub
    End If
  End If
 
  Call Copyfilefromto
End Sub

Or use this:

Sub CheckQtr()
  Dim mycheck As VbMsgBoxResult
 
  If Range("C1").Value = "" Then
    mycheck = MsgBox("Continue", vbYesNo)
    If mycheck = vbNo Then
      Exit Sub
    End If
  End If
 
  Call Copyfilefromto
End Sub

 

[rachel06]

I'm not sure if the vbContinueExit option exists, in my version it doesn't exist. But if it works in your version it should be like this:

Sub CheckQtr()
  Dim mycheck As VbMsgBoxResult

  If Range("C1").Value = "" Then
    mycheck = MsgBox("No quarter has been indicated in cell C1. Click CONTINUE to proceed or EXIT to return to Excel.  ", vbContinueExit)
    If mycheck = vbExit Then
        Exit Sub
    End If
  End If
 
  Call Copyfilefromto
End Sub

Or use this:

Sub CheckQtr()
  Dim mycheck As VbMsgBoxResult
 
  If Range("C1").Value = "" Then
    mycheck = MsgBox("Continue", vbYesNo)
    If mycheck = vbNo Then
      Exit Sub
    End If
  End If
 
  Call Copyfilefromto
End Sub

Thanks! I'm learning more and more about this stuff and just kind of playing around with it! Thought that the vbYesNo could maybe be modified to whatever you would like the buttons to say. Your solution is super simple and straight forward. Thanks so much!!!

This is actually part of a larger macro that someone who is no longer on my team created that I kind of inherited and I've been making tweaks and adding safeguards.

You all are the best!