VBA:comboboxes to present same date in different formats...ADAPT WITH CHANGE IN DATE

Question

Hi all, 
I'm very new to VBA and excel development, so please take that into consideration as you read on.
I'm trying to create a work form for a database that (should) collect various information in comboboxes, including the date, the weekday, and the month... Note: most of the time, the data will be inserted the day after it's been collected. So, I wanted to create
one combobox for the date, one for the weekday, and one for the month, because I want columns for each of these in the database (If this is not necessary/efficient, please help! :) ) . 
Here's what I've got so far:
'worksheet setup
Dim ws As Worksheet
Set ws = Worksheets("LookupList")
'Date dropdown setup
Dim cDateToday As Range
For Each cDateToday In ws.Range("DateList")
With Me.cboDate
.AddItem cDateToday.Value
End With
Next cDateToday
'If today is Monday, then set date to last friday, if any other weekday, set it to day before that
If Weekday(Date - 1) <> 2 Then
Me.cboDate.Value = Format(DateAdd("D", -Weekday(Date) - 1, Date), "Medium Date")
Else
Me.cboDate.Value = Format(Date - 1, "Medium Date")
End If
Problem #1: Right now, I am getting the date values from the list
DateList in the worksheet LookupList...is there a better way of doing this?
Problem #2: When the user form is run, the correct date and format shows up. However, if I change the date, the dropdown list in the combobox starts from the initial date in given list...is there anyway to bring the list closer to the current
date? Think Calendar View
Problem #3: I want the weekday and month values to be directly correlated to the date value discussed above, so hypothetically when the user form is run the correct date, weekday, and month all show up (based on the same date value), then if
I change the date, the weekday and month automatically update. Is this possible, if so how?
The reason I want this functionality is so that on a Monday, I can run the work form and it will automatically have Friday's date, weekday, month info as it opens. When I'm done with Friday, I can run it again, switch the date to the Saturday's
date (weekday and month automatically update), then repeat for Sunday.
I have tried running the same code for the weekday and month as I have for the date, and they work
until the date is changed. Once the date is changed, I have to manually change the weekday, which leads to format change, and same for month, which all leads to :( and confusion
Again, I am very new to vba and don't know much about it all and appreciate any/all help!
Thanks in advance!
/Alex

Answer 1

I can give you a little advice but I don't understand your comment "if I change the date, the weekday and month automatically update" Where do you want them to update?
I am assuming that your entire question is referring to a Userform with the Combobox. Is this correct?
The code can be much simpler to populate the combobox list. You already have a named range for the Dates so you can use that directly to populate the RowSource. (RowSource if the combox is on a Userform or ListFillRange for a combobox on a worksheet).
Then the WorksheetFunction Workday can be used to get the previous workday without weekend days. It also looks after the previous day when the actual date is mid week. Look up the function on the worksheet Help because you can also have a separate list
of holidays that will be excluded like weekend days.
If you are new to VBA then a tip about Help. You need to be on the worksheet and click Help to get worksheet help and in the VBA editor you click Help to call the VBA help. Don't just select Help off the taskbar when changing between the worksheet and VBA
because you will finish up with the incorrect Help file.
Example of code to assign a named range to the RowSource of a ComboBox. Named range needs to be Global and not scoped to a worksheet otherwise the worksheet name is also required. 
    Me.cboDate.RowSource = "DateList"
Example of code to assign the previous workday to the combobox value.
    'Following line sets value to previous workday (Mon to Friday)
    Me.cboDate.Value = WorksheetFunction.WorkDay(Date, -1) 
Then there is another problem with ComboBoxes and dates. If the Dates are real dates on the worksheet (Not Text)  then the dropdown list displays in the same format as the worksheet but when the date is selected, it displays as a serial number. This
can also be rectified with code but first I need to know what the format of the data is on the worksheet.
Can you upload a copy of your workbook because it is like a picture is worth a thousand words. Same goes for having a copy of the workbook. If it has sensitive data then create a copy and remove the sensitive data.
Regards, OssieMac