Calendar picker as userform

[Rolly_Sefu]

Hello

I have a Userform where people enter the a date, but sometimes they do not enter it correct.

So I found this calendar userform, witch is perfect for what I need. http://www.fontstuff.com/vba/vbatut07.htm

Just has one bug:

The month name / year from the userform is set to a particular date / year witch you can modify but only from VBA.

Is there a possibility for make this automatic, to show you the calendar of your current month ?

Thank you.

 

[wideboydixon]

Initialize on the user form looks like this:

Private Sub UserForm_Initialize()
    If IsDate(ActiveCell.Value) Then
        Me.MonthView1.Value = ActiveCell.Value
    End If
End Sub

Change it to this:

Private Sub UserForm_Initialize()
    Me.MonthView1.Value = Date
End Sub

WBD

 

[Rolly_Sefu]

Hy, thank for your replay

Work perfectly.

 

[Rolly_Sefu]

Hy.

I have one more question:

Do you know in a userform how to check if I have selected a textbox ?

Because I want to make is calendar userform show when I click on the textbox.

Thanks

Initialize on the user form looks like this:

Private Sub UserForm_Initialize()
    If IsDate(ActiveCell.Value) Then
        Me.MonthView1.Value = ActiveCell.Value
    End If
End Sub

Change it to this:

Private Sub UserForm_Initialize()
    Me.MonthView1.Value = Date
End Sub

WBD

 

[wideboydixon]

You could try the TextBox Enter() event.

WBD

 

[Rolly_Sefu]

Yep that works

I tried to solve it and I thought that the enter refers to the enter key (so I did not try this), but now I see that this is when you ENTER the textbox

Thanks a lot