Excel Forum

Code: Select all

Private Sub UserForm_Initialize()
 Dim i As Integer
  Dim ii As Integer
 With Me.cmbMounth
        For i = 1 To 12
            .AddItem VBA.Format(VBA.DateSerial(VBA.Year(Date), i, 1), "mmmm")
       Next i
            .Value = VBA.Format(VBA.Date, "mmmm")
 End With

 With Me.cmbYear
        For ii = VBA.Year(Date) - 2 To VBA.Year(Date) + 8
         [color=#FF0000]   .AddItem ii + 543[/color]
       Next ii
        [color=#FF0000]Me.cmbYear.Value = VBA.Year(Date)+ 543 [/color]
 End With
        Me.Label3.Caption = Me.cmbMounth & "  " & Me.cmbYear
Call show_date
End Sub