Date Picker / Calendar for Combobox

Hi

I'm trying to do Date Picker for Combobox - That means when I click the combo box in the the Date picker should appear and NOTE: The Date Picker should be done in VBA code not addition control. I have searched in Web and got one but it was in form and I just required in Combobox Sheet1. - Can you guys help me please.

Thanks
Thiru

Can you please advise how to update for use on 64bit machine (as seen in pic)

can you please advise me how to do this

Hi,

Sorry for the problem with 64 bit. Try replacing the line in red above with the following which should work in both 32 bit and 64 bit Excel:

#If VBA7 And Win64 Then
    ' 64 bit Excel
    'The following line is supposed to be RED in 32 bit Excel
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    ' 32 bit Excel
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

I suggest you update your profile to change the office version from '2013' to '64 bit 2013'. This will help you get more accurate responses in the future.

Lewis

Goo Day Sir

I am trying to adapt the above calendar date picker to my project but am having issues doing so as I am not as VBA savvy as I would like to be, so could you please state or show how i would do this.

What I would like to do is have a textbox/combobox populated with a date selected from the calendar on a button click.

I also notice on you sheet1 you have a test file picker, multiple file picker and folder picker, but when I don't see the code that would allow me to adapt these to my form which i would love to do as, based on the nature of my project, they would be extremely useful.

My bad, from you sample userform i fumbled my way and now know how to adapt to my userform. I do have a question though the date is produced in this format Tue 11/24/2015 (the code that produces this from what I see is Format(sDateString, "ddd mm/dd/yyyy"). is there away to have the date produced in the following format Tuesday, November 24, 2015?

Also

regarding the Multiple filepicker, single file picker and folder picker, how can I adapt these to my userforms

In the UserForm module the output from the UserForm is a generic date of the form "Jul 6, 2015". You can use the Format Statement (red) in the code below to format the output as you require. 'dddd' will give you 'Tuesday', and 'ddd' will give you 'Tue'.

Private Sub CommandButton2_Click()
  'This gets a date using a Calendar Form Date Picker
  
  Dim sDateString As String
  Dim sSeedDateString As String
  
  'Get the Seed Date
  sSeedDateString = Sheets("Main").Range("L12").Value
  
  sDateString = LjmGetDateUsingCalendarForm(sSeedDateString)
  
  UserForm1.Label1.Caption = "The date selected by 'LjmGetDateUsingCalendarForm' was: " & Format(sDateString, "ddd mmmm d, yyyy")
End Sub

To adapt the other code to UserForms:
a. I usually use the 'Enter' Event in a UserForm to implement the other 'Picker' code. For example, using 'TextBox1':

Private Sub TextBox1_Enter()
  Dim s As String
  Dim sStartStringPath As String
  Dim sUserPrompt As String
  
  sStartStringPath = ThisWorkbook.Path & "\"
  sUserPrompt = "Select a File and 'Click' on 'OK'"
    
  s = LjmGetFileUsingFilePicker(sStartStringPath, sUserPrompt)
  
  TextBox1.Value = s

End Sub

Thanks much for the response re date.

Re the other picker code, in the example given what would be populated textBox1?

TextBox1.Value = s

The above code tells Excel to put the data in 'TextBox1'. Since the code is in the UserForm code module it does not have to be preceded by 'UserForm1' (e.g. UserForm1.TextBox1.Value).