Yıl ve Ay aralığını uzatmamız mümkünmüdür.?

[Altay3555]

..........
Dim i As Byte
ComboBox1.ColumnCount = 2
ComboBox1.Clear
For i = 1 To 12
ComboBox1.AddItem
ComboBox1.Column(0, i - 1) = Format(DateSerial(2007, i, 1), "MMMM")
ComboBox1.Column(1, i - 1) = Format(Date, "YYYY")
Next i
End Sub

Yukarıda formülde YIL ve Ay'ı aynı Cbx içine alıyor.(Otomatik)
Lakin isteğim tarih aralığı verebilmek.2007 den 2015 e kadar gibi.
Ne gibi bir düzenlemeye ihtiyaç duyabilirim.

 

[hamitcan]

Private Sub UserForm_Click()
    Dim i As Byte
    b = 2007
    s = 2015
    ComboBox1.ColumnCount = 2
    ComboBox1.Clear
    For j = b To s
    For i = 1 To 12
    c = c + 1
    ComboBox1.AddItem
    ComboBox1.Column(0, c - 1) = Format(DateSerial(i, i, 1), "MMMM")
    ComboBox1.Column(1, c - 1) = j
    Next i
    Next j
End Sub

 

[Orion1]

For i = 1 To 12 * 9
ComboBox1.AddItem
ComboBox1.Column(0, i - 1) = Format(DateAdd("m", i, DateValue("31.12.2006")), "mmmm")
ComboBox1.Column(1, i - 1) = Format(DateAdd("m", i, DateValue("31.12.2006")), "yyyy")
Next i

 

[Altay3555]

Private Sub UserForm_Click()
    Dim i As Byte
    b = 2007
    s = 2015
    ComboBox1.ColumnCount = 2
    ComboBox1.Clear
    For j = b To s
    For i = 1 To 12
    c = c + 1
    ComboBox1.AddItem
    ComboBox1.Column(0, c - 1) = Format(DateSerial(i, i, 1), "MMMM")
    ComboBox1.Column(1, c - 1) = j
    Next i
    Next j
End Sub

Öncelikle teşekkürler,
TextBox1 ve TextBox2 ye seçim aktarılabilir mi.

 

[Altay3555]

[SIZE="1"]For i = 1 To 12 * 9
ComboBox1.AddItem
ComboBox1.Column(0, i - 1) = Format(DateAdd("m", i, DateValue("31.12.2006")), "mmmm")
ComboBox1.Column(1, i - 1) = Format(DateAdd("m", i, DateValue("31.12.2006")), "yyyy")
Next i[/SIZE]

Teşekkür ederim.

 

[hamitcan]

Öncelikle teşekkürler,
TextBox1 ve TextBox2 ye seçim aktarılabilir mi.

Tarihleri textbox içinden mi almak istiyorsunuz ? Eğer böyleyse;
b=TextBox1
s=TextBox2

şeklinde yapabilirsiniz.

 

[Altay3555]

Veri girişinde dalgınlığı yok etmek amacıyla cbx üzerinde yıl ve ay seçilince (veri kaynağı vba kodu),
txb2 ve txb3 içine tarih ve ay seçimini aktarmak.Amacım bu hocam.

 

[hamitcan]

Private Sub ComboBox1_Click()
    TextBox1 = ComboBox1.Column(0)
    TextBox2 = ComboBox1.Column(1)
End Sub

 

[Altay3555]

Hocam çok teşekkür ederim.