How do I build a MSGBOX

[Jon von der Heyden]

Hi,

I know the basics of msgbox, but I want to add a yes/no button. I have the following code:

Private Sub Workbook_Open()
If AddIns("Analysis Toolpak").Installed = False Then
MsgBox ("This model cannot function without Analysis Toolpak installed.  Excel will now install Analysis Toolpak.  Call IT Help Desk if this fails to install properly.")
AddIns("Analysis Toolpak").Installed = True
Calculate
End If
End Sub

I would like to give the user the option to install it (Yes/No in msgbox).

Thanks,
Noj

 

[Jon von der Heyden]

Oh, and how do I break the code across several lines? I have to scroll to right constantly when I read the code, is there a way that I can continue on the line below without upsetting it?

 

[Harvey]

MsgBox  prompt :="This model cannot function without Analysis Toolpak installed.  Excel will now install Analysis Toolpak.  Call IT Help Desk if this fails to install properly.", buttons := vbyesno

you can find that literally in the excel help btw

Second part I don't know. Think that is impossible

 

[Jon von der Heyden]

Ok, but I'm an idiot. This doesn't stop the addin from being installed when I click no.

 

[meb]

Oh, and how do I break the code across several lines? I have to scroll to right constantly when I read the code, is there a way that I can continue on the line below without upsetting it?

[space]_
This will connect the first line with the second
Spacebar and underscore.

 

[Jon von der Heyden]

T avery much Meb

 

[Ahnold]

noj,

Does this help you out?
<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_Open()
<SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Byte</SPAN>
    <SPAN style="color:#00007F">If</SPAN> AddIns("Analysis Toolpak").Installed = <SPAN style="color:#00007F">False</SPAN> <SPAN style="color:#00007F">Then</SPAN>
        i = MsgBox("This model cannot function without Analysis Toolpak installed." _
            & vbLf & "Excel will now install Analysis Toolpak." _
            & vbLf & "Call IT Help Desk if this fails to install properly." _
            & vbLf & vbLf & "Do you want to install Analysis Toolpak?", vbYesNo)
        <SPAN style="color:#00007F">If</SPAN> i = vbYes <SPAN style="color:#00007F">Then</SPAN>
            AddIns("Analysis Toolpak").Installed = <SPAN style="color:#00007F">True</SPAN>
            Calculate
        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

 

[Joe Was]

Here is a MsgBox shell you can use:

Sub BButton()
'Run from sheet module, like: Sheet1.
Dim Msg, Style, Title, Help, Ctxt, Response, MyString

On Error GoTo myErr

Msg = "Do you want to continue ?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "MsgBox Demonstration" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic context.

'Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.

MyString = "Yes" ' Perform some action.

MsgBox (MyString)

Else ' User chose No.

MyString = "No" ' Perform some action.

MsgBox (MyString)
GoTo MyEnd

myErr:
'Error message!
MsgBox "An InPut or Reference error has occured!"

MyEnd:
End If
End Sub


P.S: You break code up by inserting: "A space then an underline, then a carrage return!"

Like:

myMessage = "To enter your responce to: " & vbCr & vbCr & _
theAnswer & vbCr & vbCr & " Please only use spaces as your only" & _
" formmating!"

 

[Jon von der Heyden]

That's what I was looking for... Thanks Ahnold, works perfectly.