Excel VBA Date Picker for win64 bit

NDMDRB

Board Regular
Joined
Jun 20, 2016
Messages
128
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
 

NDMDRB

Board Regular
Joined
Jun 20, 2016
Messages
128
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

Well-known Member
Joined
Mar 15, 2013
Messages
826
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

Board Regular
Joined
Jun 20, 2016
Messages
128
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

Well-known Member
Joined
Mar 15, 2013
Messages
826
Add an instruction to see if your user form is visible, and if so, write the date to the active control.
Rich (BB code):
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
 

NDMDRB

Board Regular
Joined
Jun 20, 2016
Messages
128
Thank you so much NoSparks, this really amazing and exactly what I need
 

Forum statistics

Threads
1,078,393
Messages
5,339,928
Members
399,340
Latest member
JasonT903

Some videos you may like

This Week's Hot Topics

Top