Hi

Is there any way I can either have a form button or a control box button on
my workbook, which is called Laptop Upgrades.xlsm, to:

1) save my workbook
2) and then a separate button to close and exit out of my workbook

Please let me know

Hi Zak

You can add buttons to the sheet using Control toolbox then add the
code to that button, you could have two seperate buttons or you could
have a single button that would save and then ask the user if they
want to quit... the code for both are listed below.

'One button to save workbook
Private Sub CommandButton1_Click()

ActiveWorkbook.Save

End Sub

'One button to exit active workbook (also remove the comment mark to
have the excel app shut down also)
Private Sub CommandButton2_Click()

ActiveWorkbook.Close
'Application.Quit 'close excel

End Sub

'One button that will save and then ask the user if they wish to quit
or not
Private Sub CommandButton1_Click()

ActiveWorkbook.Save
resp = MsgBox("Do you wish to Exit?", vbInformation + vbYesNo,
"Save complete")

If resp = vbYes Then
ActiveWorkbook.Close
'Application.Quit 'close excel
Else
Exit Sub
End If

End Sub

I hope this helps you out.

Steve

Hi

Thanks for getting back to me so soon. This code works great. Thank you
very much.



"Incidental" wrote:

Hi Zak

You can add buttons to the sheet using Control toolbox then add the
code to that button, you could have two seperate buttons or you could
have a single button that would save and then ask the user if they
want to quit... the code for both are listed below.

'One button to save workbook
Private Sub CommandButton1_Click()

ActiveWorkbook.Save

End Sub

'One button to exit active workbook (also remove the comment mark to
have the excel app shut down also)
Private Sub CommandButton2_Click()

ActiveWorkbook.Close
'Application.Quit 'close excel

End Sub

'One button that will save and then ask the user if they wish to quit
or not
Private Sub CommandButton1_Click()

ActiveWorkbook.Save
resp = MsgBox("Do you wish to Exit?", vbInformation + vbYesNo,
"Save complete")

If resp = vbYes Then
ActiveWorkbook.Close
'Application.Quit 'close excel
Else
Exit Sub
End If

End Sub

I hope this helps you out.

Steve