ExcelBanter - still saving a record to excel even if i press the NO button

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - still saving a record to excel even if i press the NO button (https://www.excelbanter.com/excel-programming/364117-still-saving-record-excel-even-if-i-press-no-button.html)

still saving a record to excel even if i press the NO button

hi....
im working on a project right now and one of its functions is to ad
persons on the worksheet....my problem is, how can i stop excel fro
adding the person i input if i press Close or No button?...because wha
is happening now is that, even if i press the close or no button, still
that record is added on the worksheet, below is the source code, pleas
advise:

Sub Button5_Click()

Dim i As Integer
Dim results As Integer
results = MsgBox("Are you sure you want to add new employee?"
vbQuestion, "Add New Employee")

If results = vbOK Then

i = 4
Do While Worksheets("EmployeeDatabase").Range("A" & i) < ""
i = i + 1
Loop
Worksheets("EmployeeDatabase").Unprotect
Worksheets("EmployeeDatabase").Range("A" & i)
Worksheets("AddNew").Range("G12")
Worksheets("EmployeeDatabase").Range("B" & i)
Worksheets("AddNew").Range("G16")
Worksheets("EmployeeDatabase").Range("C" & i)
Worksheets("AddNew").Range("G14")
Worksheets("EmployeeDatabase").Range("D" & i)
Worksheets("AddNew").Range("G15")
Worksheets("EmployeeDatabase").Range("E" & i)
Worksheets("AddNew").Range("G13")
Worksheets("EmployeeDatabase").Range("F" & i)
Worksheets("AddNew").Range("G17")
Sheets("AddNew").Select
Range("G13:G16").Select
Selection.ClearContents
Range("G13").Select
End If
Worksheets("EmployeeDatabase").Protect
End Su

--
tweety12
-----------------------------------------------------------------------
tweety127's Profile: http://www.excelforum.com/member.php...fo&userid=3467
View this thread: http://www.excelforum.com/showthread.php?threadid=55139

still saving a record to excel even if i press the NO button

Change this:
results = MsgBox("Are you sure you want to add new employee?",
vbQuestion, "Add New Employee")

to this:
results = MsgBox("Are you sure you want to add new employee?",
vbYesNo, "Add New Employee")

and this:
If results = vbOK Then
to this:
If results = vbYes Then

HTH

Die_Another_Day

tweety127 wrote:
hi....
im working on a project right now and one of its functions is to add
persons on the worksheet....my problem is, how can i stop excel from
adding the person i input if i press Close or No button?...because what
is happening now is that, even if i press the close or no button, still,
that record is added on the worksheet, below is the source code, please
advise:

Sub Button5_Click()

Dim i As Integer
Dim results As Integer
results = MsgBox("Are you sure you want to add new employee?",
vbQuestion, "Add New Employee")

If results = vbOK Then

i = 4
Do While Worksheets("EmployeeDatabase").Range("A" & i) < ""
i = i + 1
Loop
Worksheets("EmployeeDatabase").Unprotect
Worksheets("EmployeeDatabase").Range("A" & i) =
Worksheets("AddNew").Range("G12")
Worksheets("EmployeeDatabase").Range("B" & i) =
Worksheets("AddNew").Range("G16")
Worksheets("EmployeeDatabase").Range("C" & i) =
Worksheets("AddNew").Range("G14")
Worksheets("EmployeeDatabase").Range("D" & i) =
Worksheets("AddNew").Range("G15")
Worksheets("EmployeeDatabase").Range("E" & i) =
Worksheets("AddNew").Range("G13")
Worksheets("EmployeeDatabase").Range("F" & i) =
Worksheets("AddNew").Range("G17")
Sheets("AddNew").Select
Range("G13:G16").Select
Selection.ClearContents
Range("G13").Select
End If
Worksheets("EmployeeDatabase").Protect
End Sub

--
tweety127
------------------------------------------------------------------------
tweety127's Profile: http://www.excelforum.com/member.php...o&userid=34673
View this thread: http://www.excelforum.com/showthread...hreadid=551394