Dates as Numbers in Combo Box

JezLisle · #1 09-18-2008, 04:19 AM

I have the same problem as thread,

http://www.excelforum.com/excel-prog...ml#post1969271

When I fill the Combo Box it shows as a date in the list for selecting in the Combo Box. Once I select the Date I want it then changes back t its number format. I have tried using the code below and still no joy, where am I going wrong?

Code:

Private Sub cboGetDate_Change()
    cboGetDate.Text = Format(cboGetDate.Text, "dd/mm/yyyy")
End Sub

rwgrietveld · #2 09-18-2008, 05:08 AM

Maybe there is a better way but this works:

Code:

cboGetDate.Text = CLng(Format(cboGetDate.Value, "#######"))

JezLisle · #3 09-18-2008, 08:59 AM

I have tried this and keep getting a Type Mismatch error on the section

Code:

cboGetDate.Text = CLng(Format(cboGetDate.Value, "dd/mm/yyyy"))

When I hover over it on the Debug it shows me the date as a number still

Code:

Private Sub cboGetDate_Change()
    'cboGetDate.Text = Format(cboGetDate.Text, "dd/mm/yyyy")
    cboGetDate.Text = CLng(Format(cboGetDate.Value, "dd/mm/yyyy"))
End Sub

Where am I going wrong?

JezLisle · #4 09-19-2008, 04:45 AM

I have tried this code and still when selecting the dates in the Combo Box they appear as a number format

Code:

Private Sub cboGetDate_Change()
    Dim GetDate As Date
    If GetDate = CDate(cboGetDate.Value) Then
           cboGetDate.Value = Format(CDate(cboGetDate.Value), "dd/mm/yyyy")
        Else
    End If
End Sub

I cant see where am going wrong?

rwgrietveld · #5 09-19-2008, 05:44 AM

Have you tried the hashes #?

**royUK** · #6 09-19-2008, 05:52 AM

Have you tried DateSerial?
Can you attach the workbook?

JezLisle · #7 09-19-2008, 06:01 AM

I've tried the Hash's

Attached is the file I'm using to test things out...

Its also the same file that the other thread I have open is (Running Stored Procedures from Excel)

Thanks

JezLisle · #8 09-19-2008, 06:20 AM

I have tried this code below and it seems to work like it should...

Code:

Private Sub cboGetDate_Change()
    MyDate = Format(cboGetDate.Value, "dd/mm/yyyy")
    cboGetDate.Value = Format(MyDate, "dd/mm/yyyy")
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Excel keeps converting numbers to dates on copy/paste	zazu88hike	Excel General	3	01-27-2009 01:36 PM
dates converting to serial numbers	henro8	Excel Programming	1	06-24-2008 03:38 PM
I need to format various strings (numbers, dates) precisely	durandal05	Excel Programming	5	06-10-2008 08:55 PM
Adding numbers to output dates	MasterMonk	Excel Miscellaneous	2	05-03-2007 04:59 PM
Ordinal Numbers in Dates	OfficeBitty	Excel Miscellaneous	13	11-21-2006 04:34 AM

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)