Snasui Excel Forum

Code: Select all

Sub BasicCalendar()
    dateVariable = CalendarForm.GetDate
    If dateVariable <> 0 Then Range("H16") = dateVariable
End Sub

Code: Select all

SelectedDate:=Range("H34").value, _

Code: Select all

If dateVariable <> 0 Then Range("H34") = dateVariable

Code: Select all

Sub AdvancedCalendar()
    dateVariable = CalendarForm.GetDate( _
        SelectedDate:=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("H34") = dateVariable
End Sub

Code: Select all

Private Sub CommandButton2_Click()
UserForm1.TextBox1 = Sheets("Sheet1").Range("H34")
TextBox1.value = Format(TextBox1.value, "dd/mm/yyyy")
End Sub

Code: Select all

Sub AdvancedCalendar()
    dateVariable = CalendarForm.GetDate( _
        'Other code
    If dateVariable <> 0 Then UserForm1.TextBox1.Text = Format(dateVariable, "dd/mm/yyyy")
End Sub