Behavior when Userform [X] is pressed

[wpryan]

Hello,
I have a userform that populates a cell with some text based on the data entered on the userform. I would like it such that when a person closes the form without entering any data by pressing the [X] button, some "default" text is entered. How can this be done?

 

[Dan_W]

You can use the QueryClose event in the Userform. So for example:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If ActiveCell.Value = "" Then ActiveCell.Value = "Default text"
End Sub

Will add "Default Text" to the ActiveCell when (1) you press the UserForm close button; and (2) the ActiveCell is blank.

Hope that helps. Let me know if I've misunderstood the problem.

 

[Jimmypop]

Dan_W's code is the most simplest one.

Another example... You can modify as necessary... Below will add the "Default Text "to the Textbox on the user form (not sure how your data is passed from form to workbook. ) as well as pass it to the activecell....

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If ActiveCell.Value = "" And TextBox1.Value = "" Then
        ActiveCell.Value = "Default Text"
        TextBox1.Value = "Default Text"
    End If
    MsgBox "Nothing Entered. Default Text Inserted"
End Sub

 

[wpryan]

Thanks a lot. Both are very helpful.