Hi all, I am using the date picker found at Trevor Eyre
Instead of the selected date showing in a cell of the workbook, i would like it to show in my userform.
My current code for the module is
My text box is txtDate2
Thanks so much
Instead of the selected date showing in a cell of the workbook, i would like it to show in my userform.
My current code for the module is
VBA Code:
Sub AdvancedCalendar()
dateVariable = CalendarForm.GetDate( _
SelectedDate:=[I][COLOR=rgb(0, 0, 0)]Range("H34").value, _
FirstDayOfWeek:=Monday, _
DateFontSize:=12, _
TodayButton:=True, _
OkayButton:=True, _
ShowWeekNumbers:=True, _
BackgroundColor:=RGB(243, 249, 251), _
HeaderColor:=RGB(147, 205, 2221), _
HeaderFontColor:=RGB(255, 255, 255), _
SubHeaderColor:=RGB(223, 240, 245), _
SubHeaderFontColor:=RGB(31, 78, 120), _
DateColor:=RGB(243, 249, 251), _
DateFontColor:=RGB(31, 78, 120), _
TrailingMonthFontColor:=RGB(155, 194, 230), _
DateHoverColor:=RGB(223, 240, 245), _
DateSelectedColor:=RGB(202, 223, 242), _
SaturdayFontColor:=RGB(0, 176, 240), _
SundayFontColor:=RGB(0, 176, 240), _
TodayFontColor:=RGB(0, 176, 80))
If dateVariable <> 0 Then Range(txtDate2.value) = dateVariable
End Sub
My text box is txtDate2
Thanks so much