custom userform to emulate msgbox

[Jake975]

how can i get a userform to emulate the vb msgbox answer? like vbok is 6?

 

[davesexcel]

What do you want it to do?

 

[Jake975]

I'm replacing my program
the program was deigned with the standard Msgboxes but I need it to be modeless. If I can get a way for a user form to return an answer to the macro in an integer value 1-6

 

[davesexcel]

Like an inputbox?

 

[Jake975]

no it has to be a command button
Here is an example if a msgbox i need to convert to a usserform

Sub MsgBox_1()
 
Dim answer As Integer
answer = MsgBox("Are you ready to start the night audit file process?" & vbNewLine _
& "This is for the date of: " & Format(Date - 1, "mm-dd-yyyy"), vbQuestion + vbYesNoCancel, "Night Audit Processing  Step 1 of 5")
 
  If answer = vbYes Then
  Call PNT2
  MsgBox "Nihgt Audit Checklist printed"
  'Call pmtpause
  Call Makefolder
  Call FolderPicker
    Call Msgbox_1A
  ElseIf answer = vbNo Then
    MsgBox "Click Start prior to running audit in Opera when ready.", , "Night Audit Processing"
  Else
    Call Reset
  End If
End Sub

 

[Jake975]

if i can get a command button to return the "answer" as a number I can keep the same if then structure but i also dont know how to get the code to wait for a button to be selected
here is an example i was trying to h=get to work but it immediately shows message "dont"

Sub test()
    UserForm1.ShowMsg "hello", Title:="Testing Mode"
    
    If UserForm1.ShowMsg("Should I do it?", Button1Text:="Yes", Button2Text:="No") = "Yes" Then
        MsgBox "do it"
    Else
        MsgBox "don't"
    End If
End Sub

 

[Jake975]

or if you have a suggestion for a userform that behaves like a msgbox. Im new to working with userforms and not entirely sure how to get it to work in a similar fashion.

 

[davesexcel]

Userform is not like a msgbox

In the userform if the "yes" button is pressed then you run a code for that button, if "no" button then run a code for that button.

Create the userform and have code for each button

Private Sub CommandButton1_Click()
    MsgBox "You clicked the yes button"
End Sub

Private Sub CommandButton2_Click()
    MsgBox "You clicked the no button"
End Sub

Private Sub CommandButton3_Click()
    Unload Me
End Sub

 

[Jake975]

thanks so i have to rework the entire program thank you for the help and a good place to start.