Activating and closing a userform in a macro

[mcmahak]

I have a userform created with the info that I need. Now i just need to be able to open it with my Auto Open macro and then close it and save the data in the combobox to a particular cell when the ok button is clicked. Anyone have code for this. I tried searching and ddin't get any returns for this topic.

Thanks,
Kevin

 

[mcmahak]

When you need to close the userform, try:

Unload Me

or...if you're not in the UserForm's own code section, try:

Unload UserFormName

I tried adding Unload (UserForm1) in the auto open program and I got an error "Cannot Load or Unload object"

Here is my code for the UserForm1, let me know if there is something wrong with that:

Private Sub CancelButton_Click()
    Do
        z = InputBox("Please enter password", "Enter Password")
        If (z = "dsp") Then Exit Do
    Loop While z = ""
    End
End Sub

Private Sub ComboBox1_DropButtonClick()
    Sheets("Sheet6").Select
    ComboBox1.RowSource = "A5:A50"
    Sheets("Sheet2").Select
End Sub
Private Sub OK_Click()
    Sheets("Sheet6").Select
    Range("A1") = Me.ComboBox1.Value
    Sheets("sheet2").Select
    Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        End
    End If
End Sub

Thanks again,
Kevin

 

[velu_888]

Thank you for the posts, it helped me a lot...........!