Msgbox yes no question

[ipbr21054]

Hi,
I have the code in use shown below.

Can you advise what ive missed please as when i select No the code still runs as opposed to exit.
Yes should continut but No should exit

Private Sub CommandButton1_Click()MsgBox "Did You Select The Vehicle?", vbYesNo + vbInformation, "Vehicle Selection Checker"
If vbYes Then


Sheets("Sheet1").Range("P6:U6").Copy Sheets("Sheet1").Range("E6")
Sheets("Sheet1").Range("P7").Copy Sheets("Sheet1").Range("E7")


Sheets("Sheet1").Range("E6:J6").Copy Sheets("DR SITE").Range("E6")
Sheets("Sheet1").Range("E7").Copy Sheets("DR SITE").Range("E7")


Sheets("Sheet1").Range("E6:J6").Copy Sheets("EBAY").Range("E6")
Sheets("Sheet1").Range("E7").Copy Sheets("EBAY").Range("E7")


Sheets("DR SITE").Range("E7").Font.Color = vbWhite
Sheets("DR SITE").Range("E7").Borders.LineStyle = xlNone




Sheets("EBAY").Range("E7").Font.Color = vbWhite
Sheets("EBAY").Range("E7").Borders.LineStyle = xlNone




Sheets("DR SITE").Activate
ActiveSheet.Range("E7").Select


Sheets("EBAY").Activate
ActiveSheet.Range("E7").Select


Sheets("Sheet1").Activate
ActiveSheet.Range("P6").Select


ActiveWorkbook.Save
End If


End Sub

 

[Rick Rothstein]

You have to assign the output from the MessageBox to a variable and then test that variable against the vbYes constant. So, instead of this...

[table="width: 500"]
[tr]
	[td]MsgBox "Did You Select The Vehicle?", vbYesNo + vbInformation, "Vehicle Selection Checker"
If vbYes Then[/td]
[/tr]
[/table]

use something like this...

[table="width: 500"]
[tr]
	[td]Dim Answer As Long
Answer = MsgBox("Did You Select The Vehicle?", vbYesNo + vbInformation, "Vehicle Selection Checker")
If Answer = vbYes Then[/td]
[/tr]
[/table]

 

[ipbr21054]

Thanks very much now sorted