Format display in the comboBox
Dear all,
Would anyone help me solve my problem- the Datevalue display in the comboBox will change to the format of string when I selected. How can I fix it when I selected the date and display the same.
Please refer to my attached file and press the Data Entry (Command Button).
Thanks,
Apen
Could it be possible to get the string value selected to drop into a list (a range on another sheet first), then have this range formatted to the date format you require? The combo box could then pick up this range as its source.
Remember To Do the Following....
Use [Code].... [/Code] tags when posting code to the thread.
Mark your thread as Solved if satisfied by using the Thread Tools options.
If posting the same issue to another forum please show the link
apen
How can we possibly help you?
The code in the workbook you posted is password protected and constantly errors anyway.
Dear Aussiebear,
If I put the value in form of string, the data inputting to the wokrsheets( " Attendance " and could not calculate, so would you suggest another way.
apen
I am sorry for that, let me try to post any thread with no password., but anyway it is not related to password because the comboBox's value is refer to the data list in worksheet("Select")
The VBA is:
Userform2.comboBox1.RowSource =Sheets("Select")!Name
Apen
I have re-attached the file without password.
[VBA]Private Sub ComboBox2_Click()
Dim ra As Variant
ra = ComboBox2.Value
Application.ScreenUpdating = True
ComboBox2 = Format(ComboBox2, "dd-mmm-yy")
End Sub
[/VBA]
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Dear Mdamackillop,
the code still having an error on the " Format"
Check for missing VBA references. Tools/References. Uncheck any that are marked Missing
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
[vba]ComboBox2 = Format(ComboBox2, "dd-mmm-yy") [/vba]
As a last resort try this
[vba]Application.WorksheetFunction.Text(ComboBox2, "dd-mmm-yy")[/vba]
It does not work, but I try to change it into listbox instead of comboBox, it can display the date when selected, however, the date value could not input automatically into worksheet ("Attendance")
Could any one please help !
This statement is of no value. What does not work? Which line of code? What error message? What result?Originally Posted by apen
If you want us to spend time helping, you need to invest time providing useful information.
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Did you ever do this?
I am sorry, how can I check the missing VBA reference. ....
I paste my VBA as follow : Please correct me where should be re-write.
For command button ( Data Entry)
Private Sub CommandButton2_Click()
UserForm2.ComboBox1.RowSource = "select!name"
UserForm2.ComboBox2.RowSource = "select!dateB"
UserForm2.ComboBox3.RowSource = "select!DateE"
UserForm2.Show
End Sub
Thanks,
Apen
Dear mdmackillop,
even I re-write the code as :
VBA:
ComboBox2 = Format(ComboBox2, "dd-mmm-yy")VBA tags courtesy of www.thecodenet.com
As a last resort try this
VBA:
Application.WorksheetFunction.Text(ComboBox2, "dd-mmm-yy")VBA
The "date" display in the comboBox is still not in date format but a value, so I reply " it does work"
apen
The ActiveX controls prevent me from testing, but..
My thought is:
1) ComboBox2.Value is a string,
2) Format(someString,"dd-mmm-yy") = someString, therefore ComboBox2.Value should be converted to a number.[VBA]ComboBox2.Value = Format(DateValue(ComboBox2.Value),"dd-mmm-yy")[/VBA]might solve the issue.
In the VBE click Tools/References. Are any marked "Missing"?
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Posting Permissions
Reply With Quote
