Excel VBA Date Picker for win64 bit

[NDMDRB]

Hello,

I'm using Microsoft Office 16 in windows 10 / 64bit

I'm looking for a solution to have a popup date picker in my userform
I'v been searching for a solution long time ago, found a lot of solutions but most of them for 32bit, and some for 64bit but none of them worked correctly

Please I need your help with this important issue

Is it possible that there is no solution for this problem? Please let me know even if I have to buy it online.

What I need exactly is: In my userform, in TextBox "txtDate" once I click it, a date picker popup and the selected date be the value in "txtDate"
knowing that I have many userforms and many textboxes that I need to use date picker

I have a popup calendar that works fine from any cell, but didn't work for a userform text boxes

If there is no solution available for now, can someone please help me changing the code in this date picker to use it in any userform/textbox?

https://drive.google.com/drive/folders/1xcEirBYhsXOM7QpUy-Q013ANYxJRgRrJ?usp=sharing

 

[NoSparks]

Did you have a look at the the suggestion in post 3 in your previous request for this ?

 

[NDMDRB]

Yes I did, but it didn't works well, all the numbers in the calendar appear as "99" and some of the controls are missing

 

[NoSparks]

It would appear you're not interested in anything other than what you've already got.
In that case supply more than just fCalendar.frm and fCalendar.frx
Put the calendar form into an Excel file and show us how you have it work for cells on a sheet,
and show us a user form and how you are trying to implement the pop-up for a text box on that user form.

 

[NDMDRB]

Hi NoSparks,

Please find the attached Excel file with a sample of a userform that I'm using
UserForm1 contains two Text Boxes to insert date, on double click, the calendar will popup
What I need is (once the calendar popup, the selected date from this calendar be the value on the selected textbox (txtFDate or txtTDate)

In Sheet1 Cell "D3" & "F3", on double click the calendar will popup, and the selected date will be the value in Cell "D3" or "F3" (In this case it works fine)

Note: the calendar that you sent me in my previous post is on this file also, please have a look

https://drive.google.com/file/d/1WlkbFFh7KSUTl5m1PHETkcswYyGR2fC-/view?usp=sharing

Many thanks in advanced

 

[NoSparks]

Add an instruction to see if your user form is visible, and if so, write the date to the active control.

Sub DoToggle(tbtActive As ToggleButton)
    Dim c As ToggleButton
    
    If tbtActive.value = True Then
        For Each c In frDays.Controls
            If tbtActive.Name <> c.Name Then c.value = False
        Next
        'if userform1 is open, write to control with focus
        If UserForm1.Visible = True Then
            UserForm1.ActiveControl = DateSerial(Year(dtActiveDate), Month(dtActiveDate), tbtActive.Caption)
        Else
            'other wise write to the sheet
            ActiveCell.value = DateSerial(Year(dtActiveDate), Month(dtActiveDate), tbtActive.Caption)
            ActiveCell.value = ActiveCell.value
        End If
    End If
End Sub

 

[NoSparks]

Here's a link to Box.com for a shared workbook using your calendar with sheet1 and the Trevor Eyre Calendar with sheet2.
https://app.box.com/s/9ubugwuy1178pc7fghgf29dthsc9bwhb

 

[NDMDRB]

Thank you so much NoSparks, this really amazing and exactly what I need

 

[Negi1984]

Here's a link to Box.com for a shared workbook using your calendar with sheet1 and the Trevor Eyre Calendar with sheet2.
https://app.box.com/s/9ubugwuy1178pc7fghgf29dthsc9bwhb

Hi,

I am also looking for similar solution but unable to download the file. if this linked removed ?

 

[NoSparks]

Yes, it appears that the file has been removed.
I suggest you start a new thread of your own being specific about what you're trying to achieve.