Problem with pop up calendar

[rustym]

Hey guys,

I am working on a macro that uses a userform in which a user can enter information about incoming parts. One of the entries in the form is the date on which the part came in which is selected using a pop-up calendar and then stored into a combo box. Once the user types in all of the data properly, the part is entered into an excel sheet.

The only problem that I am having is that you have to press on a date twice (instead of the desired once) in order to be able to press OK. If you only select the date from the calendar once and try pressing OK, the macro crashes for some mysterious reason.

I've been trying to fix this problem for a few days now with no luck. Any ideas?

Thanks a lot,

Rusty

 

[Andrew Poulsom]

Welcome to the Board.

Better post your code and tell us what the error is and which line is causing it.

 

[rustym]

In the first user form, in order to select the date you press on a drop button which includes the following code (and once the date is selected it shows in the combo box):

Code from UserForm1:

Private Sub ComboBox1_DropButt*******()
UserForm2.Show
UserForm1.ComboBox1.SetFocus
End Sub

In UserForm2 (the calendar) I included this:

Private Sub Calendar1_Click()

UserForm1.ComboBox1.Text = Calendar1.Value
UserForm2.Hide
End Sub

I followed the code line by line using F8 and for some reason after the date is selected for the first time and you go back to Private Sub ComboBox1_DropButt*******(), when you execute the last line "End Sub", a second combo box seems to appear and when you press on it you are redirected back to Private Sub Calendar1_Click() to click on the date again. If you don't click on the second combo box, the macro seems to go into an infinite loop.

Thanks again,

Rusty

 

[Andrew Poulsom]

Is there a reason that you need to use a ComboBox rather than a TextBox?

 

[rustym]

Not necessarely it's just that I wasn't sure if you could use a pop up calendar with a regular text box. Do you think that using a text box might solve the problem?

 

[Andrew Poulsom]

This seems to work:

Private Sub TextBox1_Enter()
    UserForm2.Show
End Sub
 
Private Sub Calendar1_Click()
    UserForm1.TextBox1.Text = Calendar1.Value
    Unload Me
End Sub

 

[rustym]

I just tried it and it works as expected. Thank you!!
Just out of curiosity, what does the line "Unload Me" do?

 

[Andrew Poulsom]

It removes the UserForm from memory (which Hide doesn't).

 

[rustym]

Ok thanks for all the help.