combobox ay ve tarih seçimi

[ekmekevi]

merhaba arkadaşlar userform da iki adet dtpicker var biri başlangıç tarihi diğeri bitiş tarihi 1 adette commbobox var bundada ay isimleri var combobox tan ilgili ayı seçince
dtpicker1 o ayın ilgünü dtpicker2 ye son gününü getirmeye çalışıyorum fakat yapamadım yardımcı olurmusunuz

 

[veyselemre]

Private Sub UserForm_Initialize()
    For I = 1 To 12
        ComboBox1.AddItem Format(DateSerial(Year(Date), I, 1), "MMMM")
    Next I
End Sub

Private Sub ComboBox1_Change()
    DTPicker1.Value = WorksheetFunction.EoMonth(DateSerial(Year(Date), ComboBox1.ListIndex + 1, 1), -1) + 1
    DTPicker2.Value = WorksheetFunction.EoMonth(DateSerial(Year(Date), ComboBox1.ListIndex + 1, 1), 0)
End Sub

 

[ekmekevi]

veysel emre kardeşim sonuç süper yardımın için teşekkür ederim