Comboboxtaki ayın yanına yıl eklemek.

[ASMET67]

Aşağıdaki kodlarla comboboxlara ayları ve yılları aldırıyorum
Nasıl bir değişiklik yaparak comboboxları 2 sutun halinde ay ve yılı aldırabilirim.
Örnek
1 sutun 2.sutun
Ocak 2007
Şubat 2007

Dim TMP$
Dim i As Integer
    ComboBox2.Clear
    For i = 1 To 12
        TMP = Format(DateSerial(2007, i, 1), "mmmm") & " / " & Format(Now, "yyyy")
        ComboBox2.ListRows = 12
        ComboBox2.AddItem TMP
            Next i

 

[Mahmut Bayram]

Ben denedim oluyor acaba combobox2 yi combobox1 olarak değiştirmemiş olabilir misiniz.

 

[ASMET67]

İlginiz için teşekkürler.
Bu şekilde tek sutun olarak alıyor.
Ben iki sutunda almasını istiyorum.
Comboboxın ilk sutun value değeri bu şekilde Ocal / 2007 olarak çıkıyor.
Ben sadece Ocak çıksın istiyorum.

 

[Mahmut Bayram]

Şu şekilde deneyiniz.

Private Sub UserForm_Activate()
Dim TMP$
Dim i As Integer
    ComboBox1.Clear
    For i = 1 To 12
        TMP = Format(DateSerial(2007, i, 1), "mmmm") '& " / " & Format(Now, "yyyy")
        ComboBox1.ListRows = 12
        ComboBox1.AddItem TMP
            Next i
End Sub

 

[veyselemre]

Private Sub UserForm_Activate()
Dim TMP$
Dim i As Integer
Dim a$(1 To 12, 1 To 2)
    ComboBox1.Clear
    ComboBox1.ColumnCount = 2
    For i = 1 To 12
        a(i, 1) = Format(Format(DateSerial(2007, i, 1), "mmmm"), "mmmm")
        a(i, 2) = 2007
    Next i
ComboBox1.List = a
End Sub

 

[ASMET67]

Sayın veyselemre cevabınız için teşekkür ederim.
Bu şekilde benim işimi görmüyor.
Benin aynı hücreye girmem gereken değer ocak/2007 ve yine sayfadan comboboxsa çektirmem gereken değer ocak/2007 dir.
Ayrıca ikinci bir comboboxtaki değerden bu değer büyük ise kayır yapmaması lazım.
Umarım anlatabilmişimdir.

 

[veyselemre]

Sonucu şöyle alın.

Private Sub ComboBox1_Change()
    Me.Caption = ComboBox1.Column(0) & "/" & ComboBox1.Column(1)
End Sub

 

[ASMET67]

Teşekkürler.