Populate a text box based on the value of a combobox

[kevinc1973]

Hi everyone,
I have a userform that has a textbox1 initialize with today's date(mm/dd/yyyy) and a combobox3 initialize with today's date format(dd). I am using the combobox3 to write to specific rows of the spreadsheet, when they need to make a change to a specific day's data they just change the combobox value to that day of the month. I would like to have textbox1 value change as well with the combobox value but in the full date format so there is one less thing to change. I was able to change the value by:

Private sub_combobox3_change
textbox1.value = combobox3.value
end sub

but it stays with just the "day". Is there any way to keep it the full date in textbox1?
Any help would be great thanks
Kevin

 

[Kenneth Hobson]

On Error Resume Next
  TextBox1.Value = Format(DateSerial(Year(Date), Month(Date), ComboBox3), "mm/dd/yy")

 

[mikerickson]

It sounds like the ComboBox has the day information. The year and month information is only in the textbox

try

Private sub_combobox3_change
   Dim curDate as Date
   curDate = DateValue(Textbox1.Text)
   TextBox1.Text = Format(DateSerial(Year(curDate), Month(curDate), Val(ComboBox3.Text)), "mm/dd/yy")
end sub

 

[kevinc1973]

Thank you for replying so quickly once I'm in front of the computer I will try the codes thanks again

 

[kevinc1973]

thank you Mikerickson that worked perfectly just what i wanted it to do. Thanks again