MSG BOX through macro

[XCESIV]

I would like to setup the macro to confirm they want the macro to be performed. Can someone please help with this

The macro will be assigned to a push button on the worksheet, once the report is complete they push the button and then i want it to create a pop up asking "do you wish to close this report YES/NO"
if yes then peform close, if not do nothing.

thanks

[MBSNewbie]

Answer = MsgBox("Would You Like To Close The Workbook?", vbYesNo)
If Answer = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
Else:
Cells.Select


"XCESIV" <[email protected]> wrote in
message news:[email protected]...
>
> I would like to setup the macro to confirm they want the macro to be
> performed. Can someone please help with this
>
> The macro will be assigned to a push button on the worksheet, once the
> report is complete they push the button and then i want it to create a
> pop up asking "do you wish to close this report YES/NO"
> if yes then peform close, if not do nothing.
>
> thanks
>
>
> --
> XCESIV
> ------------------------------------------------------------------------
> XCESIV's Profile:
> http://www.excelforum.com/member.php...o&userid=24271
> View this thread: http://www.excelforum.com/showthread...hreadid=538473
>

[Chip Pearson]

Try something like

Dim Res As VbMsgBoxResult
Res = MsgBox("Do you want to close this report?", vbYesNo)
If Res = vbYes Then
' do something
Else
' do nothing
End If



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"XCESIV" <[email protected]>
wrote in message
news:[email protected]...
>
> I would like to setup the macro to confirm they want the macro
> to be
> performed. Can someone please help with this
>
> The macro will be assigned to a push button on the worksheet,
> once the
> report is complete they push the button and then i want it to
> create a
> pop up asking "do you wish to close this report YES/NO"
> if yes then peform close, if not do nothing.
>
> thanks
>
>
> --
> XCESIV
> ------------------------------------------------------------------------
> XCESIV's Profile:
> http://www.excelforum.com/member.php...o&userid=24271
> View this thread:
> http://www.excelforum.com/showthread...hreadid=538473
>

[Paul B]

XCESIV, here is a general macro that shows a message box with yes, no, and
cancel options, just change to fit your needs

Sub Message_box_test()
Dim Msg, Title, Response As String
Msg = "Put message here"
Title = "Put title here"
Response = MsgBox(Msg, vbYesNoCancel + vbQuestion, Title)

If Response = vbNo Then
'your code if no is clicked here
MsgBox "you clicked no"
Exit Sub ' Quit the macro
End If

If Response = vbCancel Then
'your code if Cancel is clicked here
MsgBox "You clicked cancelled"
Exit Sub ' Quit the macro
End If

'your code if Yes is clicked here
MsgBox "you clicked yes"
End Sub

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"XCESIV" <[email protected]> wrote in
message news:[email protected]...
>
> I would like to setup the macro to confirm they want the macro to be
> performed. Can someone please help with this
>
> The macro will be assigned to a push button on the worksheet, once the
> report is complete they push the button and then i want it to create a
> pop up asking "do you wish to close this report YES/NO"
> if yes then peform close, if not do nothing.
>
> thanks
>
>
> --
> XCESIV
> ------------------------------------------------------------------------
> XCESIV's Profile:
> http://www.excelforum.com/member.php...o&userid=24271
> View this thread: http://www.excelforum.com/showthread...hreadid=538473
>

[funkymonkUK]

sub example1

answer = msgbox ("Do you wish to close this report?",vbYesNo,Title:="Just to Confirm")

if answer=vbyes then activeworkbook.close

end sub

[Bob Phillips]

Sub myMacro()
Dim ans As Long
ans = MsgBox("Continue?",vbYesNo)
If ans = vbNo Then Exit Sub
' rest of code
End Sub

--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"XCESIV" <[email protected]> wrote in
message news:[email protected]...
>
> I would like to setup the macro to confirm they want the macro to be
> performed. Can someone please help with this
>
> The macro will be assigned to a push button on the worksheet, once the
> report is complete they push the button and then i want it to create a
> pop up asking "do you wish to close this report YES/NO"
> if yes then peform close, if not do nothing.
>
> thanks
>
>
> --
> XCESIV
> ------------------------------------------------------------------------
> XCESIV's Profile:
http://www.excelforum.com/member.php...o&userid=24271
> View this thread: http://www.excelforum.com/showthread...hreadid=538473
>

[Patricia Shannon]

You could adapt this

Select Case MsgBox("cntr=" & RecentCntr & " " _
& Application.RecentFiles(RecentCntr).Name _
& vbNewLine & "Delete?", vbYesNoCancel + vbDefaultButton2)
Case vbCancel
GoTo endpgm
Case vbYes
Application.RecentFiles(RecentCntr).Delete
MsgBox "File deleted from recent files list"
Case vbNo
' Do nothing
Case Else
' Do nothin
End Select


"XCESIV" wrote:

>
> I would like to setup the macro to confirm they want the macro to be
> performed. Can someone please help with this
>
> The macro will be assigned to a push button on the worksheet, once the
> report is complete they push the button and then i want it to create a
> pop up asking "do you wish to close this report YES/NO"
> if yes then peform close, if not do nothing.
>
> thanks
>
>
> --
> XCESIV
> ------------------------------------------------------------------------
> XCESIV's Profile: http://www.excelforum.com/member.php...o&userid=24271
> View this thread: http://www.excelforum.com/showthread...hreadid=538473
>
>