birden fazla combobox için kod atama

[heft]

Merhaba,

Aşağıdaki gibi comboboxlara atama yapabiliyoruz, peki her ikisini şu şekilde belirteceğim bir yapı var mı?


İstediğim;___________________________________
With combobox01 and combobox02
.AddItem "01"
.AddItem "02"
.AddItem "03"
End With




Uygulanan:______________________________________
With combobox01
.AddItem "01"
.AddItem "02"
.AddItem "03"
End With

With combobox02
.AddItem "01"
.AddItem "02"
.AddItem "03"
End With

 

[Orion1]

standart bir module aşağıdaki pragmatik prosedürdeki kodları yükleyin.

Public Sub Yukle(CBox As MSForms.Control)
    CBox.AddItem "Ocak"
    CBox.AddItem "Şubat"
    CBox.AddItem "Mart"
    CBox.AddItem "Nisan"
    CBox.AddItem "Mayıs"
End Sub

Userformlarınızın initialize olayınada aşağıdaki kodu ekleyin.

Call Yukle(ComboBox1)

 

[veyselemre]

Aynı elemanları atacaksanız aşağıdaki gibi yapabilirsiniz.

    With ComboBox01
        .AddItem "01"
        .AddItem "02"
        .AddItem "03"
    End With
    ComboBox02.List = ComboBox01.List

 

[heft]

çok teşekkür ederim her iki yöntemde harika.