Displaying a warning popup when a number is exceeded in a macro, before a Exit Sub

[neutech]

Evening all,

Could someone tell me how to get this macro to warn when J2 is greater than or = 230 but refuse to let the macro continue when it reaches 250 (J3), at the minute is still seems to allow the macro so copy the cells into the new sheet.

Cheers

Turly

'
Sheets("Booking").Select
If Range("J3") > Range("J2") Then
MsgBox "Sold Out, reduce number"
Exit Sub
End If
Range("A20:S20").Select
Selection.Copy
Sheets("SavedBookings").Select
Range("A2").Select
Selection.End(xlDown).Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Booking").Select
Range("B10").Select
Application.CutCopyMode = False
End Sub

[mehmetcik]

You need to enclose your code in code tags,

Highlight your code and click on the # symbol in the menu bar

Please Login or Register  to view this content.

[neutech]

Thank you for the code, it works great up to the 230 limit, however if someone was to place an order and buy 2 tickets when there is only 1 available it seems to allow the macro to push through and leave the total at -1 (231 tickets sold).

Thank you also for your quick reply too!!