Message box to stop Macro if two cells are filled

[rachel06]

Hi!!

This one should be pretty easy. I need a message box to appear if both cells C1 and C2 are populated with "OK" as the only option

   If Range("C1").Value = <> "" and Range.("C2")<> "" Then
    mycheck = MsgBox("Cannot append text to both ends of file name. Please correct and re-run macro.")
      Exit Sub
    End If
  End If

I also have one already done that's just an FYI if C1 isn't populated, but if I could edit that to pop up if either or both are blank, and an indication which one is blank, that would be a wonderful addition. That might be super complicated though

 If Range("C1").Value = "" Then
    mycheck = MsgBox("Quarter is blank. Continue?", vbYesNo)
    If mycheck = vbNo Then
      Exit Sub
    End If
  End If

I also need these two to play nice together! This is what the whole thing looks like together now. It's obviously giving me an error.

Sub CheckQtr()
  Dim mycheck As VbMsgBoxResult
 
  If Range("C1").Value = "" Then
    mycheck = MsgBox("Quarter is blank. Continue?", vbYesNo)
    If mycheck = vbNo Then
      Exit Sub
    End If
  End If
  
   If Range("C1").Value = <> "" and Range.("C2")<> "" Then
    mycheck = MsgBox("Cannot append text to both ends of file name. Please correct and re-run.")
      Exit Sub
    End If
  End If
 
  Call Copyfilefromto
End Sub

Thanks in advance for any help or guidance!!

 

[Joe4]

Is something like this what you are looking for?

If (Range("C1").Value = "OK") And (Range("C2").Value = "OK") Then
    MsgBox "Stopping Macro now!"
    Exit Sub
End If

 

[rachel06]

Is something like this what you are looking for?

If (Range("C1").Value = "OK") And (Range("C2").Value = "OK") Then
    MsgBox "Stopping Macro now!"
    Exit Sub
End If

That's super close. I've been able to manipulate that to get part of what I need. How to I swap that OK value to be is not blank? I've tried the below and similar and no luck.

  If (Range("C1").Value <>= "") And (Range("C2").Value <>= "") Then
  MsgBox "Cannot add values before and after file name. Please review and re-run."
    Exit Sub

 

[Joe4]

To check for NOT equal to, it should just be "<>", not "<>=" (no equal sign in there!)

 

[rachel06]

Easy enough. Thanks! As always - much appreciated!!

 

[Joe4]

You are welcome.
Glad I was able to help!