vba yes no boxes

[bruise_pristene]

Hi i have just managed to use vba for the first time to create a "yes/no" user input box. However, i am stuck next. How can i get excel to do something depending on whether the user clicks yes or no?



any help appreciated, thx


Steve

 

[DonkeyOte]

You need to name the box - assuming you're referring to a message box

Sub YADDA()

MSG1 = MsgBox("Yadda Yadda Yadda",vbyesno,"Yadda?")

If MSG1 = vbyes then
  MsgBox "Hello"
Else
  MsgBox "Naff Off"
End If

End Sub

 

[bruise_pristene]

thanks a lot, my message is off the form "do you agree yadda yadda...", is there a way to adapt that code so that if the user clicks no it displays a message (something like "you cannot access this workbook") and then close the file?



ta

 

[DonkeyOte]

Sub YADDA() 

MSG1 = MsgBox("Yadda Yadda Yadda",vbyesno,"Yadda?") 

If MSG1 = vbyes then 
  MsgBox "Hello" 
Else 
  MsgBox "This Workbook Will Now Close" 
  ActiveWorkbook.Close SaveChanges = True 'doesn't save
End If 

End Sub

 

[Richie(UK)]

Sub YADDA() 

MSG1 = MsgBox("Yadda Yadda Yadda",vbyesno,"Yadda?") 

If MSG1 = vbyes then 
  MsgBox "Hello" 
Else 
  MsgBox "This Workbook Will Now Close" 
  ActiveWorkbook.Close SaveChanges = True 'doesn't save
End If 

End Sub

Small typo error :wink: - the SaveChanges argument needs to have a colon befor the equals sign (and True does save)

ActiveWorkbook.Close SaveChanges:=True   'does save