UserForm CommandButton1

[geno32080]

I created a UserForm that shows from a command button on a sheet, On that userform it asks the user to Close the program(comandbutton1) or cancel (commandbuttomn2 when cancel is clicked it hides the userform). if the user selects close i would like for it to show the contents in label1. on the userform then save and close the program, I cant get it to work with the selections vba offers,
Any Ideas what to put after the Label1? to make that work? Thank you.

 

[mumps]

See if this approach works for you. It doesn't use the label on the userform. When you click "OK" after the message box appears, Excel will close.

Private Sub CommandButton1_Click()
    Unload UserForm2
    ThisWorkbook.Save
    MsgBox "The sheets have been saved."
    Application.Quit
End Sub

 

[geno32080]

See if this approach works for you. It doesn't use the label on the userform. When you click "OK" after the message box appears, Excel will close.

Private Sub CommandButton1_Click()
    Unload UserForm2
    ThisWorkbook.Save
    MsgBox "The sheets have been saved."
    Application.Quit
End Sub

Thanks, I started off with that, but as we all do, we want more. I did a VBA Script and a Userform to open the program to rid the excel splash screen, it looks good, was hoping to be able to do something like that to close the program.

 

[Siddharth Rout]

Is this what you are trying?

Option Explicit

Private Sub CommandButton1_Click()
    Label1.Caption = "Saving Sheets"
   
    '~~> Wait for 3 seconds. Change as applicable
    Wait 3
   
    ThisWorkbook.Save
   
    Unload Me
   
    Application.Quit
End Sub

Private Sub Wait(ByVal nSec As Long)
    nSec = nSec + Timer
    While nSec > Timer
        DoEvents
    Wend
End Sub

 

[geno32080]

Is this what you are trying?

Option Explicit

Private Sub CommandButton1_Click()
    Label1.Caption = "Saving Sheets"
  
    '~~> Wait for 3 seconds. Change as applicable
    Wait 3
  
    ThisWorkbook.Save
  
    Unload Me
  
    Application.Quit
End Sub

Private Sub Wait(ByVal nSec As Long)
    nSec = nSec + Timer
    While nSec > Timer
        DoEvents
    Wend
End Sub

Get that man a Cigar.. I didn't need to say UserForm.Label1. Just Label1.Caption... That worked. Thank you..

 

[Siddharth Rout]

Get that man a Cigar.. I didn't need to say UserForm.Label1. Just Label1.Caption... That worked. Thank you..

LOL Thanks for your feedback.