ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   More MsgBox questions. (https://www.excelbanter.com/excel-discussion-misc-queries/251560-more-msgbox-questions.html)

Pete[_6_]

More MsgBox questions.
 
I am attempting to use the Msgbox function with the Ok/Cancel buttons. the
code I have written thus far is below:

Msgbox("Message",1)

If ans = vbOk then call [subroutine]
If ans = vbCancel the exit sub

end if

end sub

The subroutine does not work when the "Ok" button is used. I have tried
other variations on this to no avail. Could anyone please assist?
--

Thanks,
Pete

Jacob Skaria

More MsgBox questions.
 
Try one of these

Sub Macro1()
If MsgBox("Message", 1) < vbOK Then Exit Sub
Call subroutine
End Sub


Sub Macro2()
Dim ans As Variant

ans = MsgBox("Message", 1)
If ans = vbOK Then
Call [subroutine]
Else
Exit Sub
End If

End Sub

--
Jacob


"Pete" wrote:

I am attempting to use the Msgbox function with the Ok/Cancel buttons. the
code I have written thus far is below:

Msgbox("Message",1)

If ans = vbOk then call [subroutine]
If ans = vbCancel the exit sub

end if

end sub

The subroutine does not work when the "Ok" button is used. I have tried
other variations on this to no avail. Could anyone please assist?
--

Thanks,
Pete


Dave Peterson

More MsgBox questions.
 
I'd use:

Dim ans as long

If I recall correctly (and I may not <bg), this type doesn't exist in earlier
versions of excel (xl2k added it????).

I remember posting a suggestion that used it and the OP had trouble--but that
was a pretty long time ago.

Jim Thomlinson wrote:

Extremely minor point (picky almost beyond reason) but you are better off to
declare ans as

Dim ans As VbMsgBoxResult

--
HTH...

Jim Thomlinson

"Jacob Skaria" wrote:

Try one of these

Sub Macro1()
If MsgBox("Message", 1) < vbOK Then Exit Sub
Call subroutine
End Sub


Sub Macro2()
Dim ans As Variant

ans = MsgBox("Message", 1)
If ans = vbOK Then
Call [subroutine]
Else
Exit Sub
End If

End Sub

--
Jacob


"Pete" wrote:

I am attempting to use the Msgbox function with the Ok/Cancel buttons. the
code I have written thus far is below:

Msgbox("Message",1)

If ans = vbOk then call [subroutine]
If ans = vbCancel the exit sub

end if

end sub

The subroutine does not work when the "Ok" button is used. I have tried
other variations on this to no avail. Could anyone please assist?
--

Thanks,
Pete


--

Dave Peterson


All times are GMT +1. The time now is 04:15 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com