Soru Bir kodu sadeleştirmek

[seckinb]

isimleri sıralı devam eden 8 tane combobox için bir kodu birleştirmeye çalışıyorum.

With Me.cmbTX4
    .AddItem "Dosetaksel (TAXOTERE)"
    .AddItem "Kabazitaksel (JEVTANA®)"
    .AddItem "Abirateron (ZYTIGA®)"
    .AddItem "Enzalutamid (XTANDI®)"
    .AddItem "Sipuleucel-T (PRONGE®)"
End With

Dim eskitedavi(), i As Byte
eskitedavi = Array("Dosetaksel (TAXOTERE)", "Kabazitaksel (JEVTANA®)", "Abirateron (ZYTIGA®)", "Enzalutamid (XTANDI®)", "Sipuleucel-T (PRONGE®)")

For i = 4 To 7
    For ii = 0 To 5
        Me.Controls("cmbTX" & i).AddItem eskitedavi(ii)
    Next
Next

cmbTX4 - cmbTX7 arasında bu additem özelliğini uygulamam gerekiyor.
bu şekilde tanımlayınca çalıştıramıyorum.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub UserForm_Initialize()
    Dim eskitedavi(), X As Byte
    
    eskitedavi = Array("Dosetaksel (TAXOTERE)", "Kabazitaksel (JEVTANA®)", "Abirateron (ZYTIGA®)", "Enzalutamid (XTANDI®)", "Sipuleucel-T (PRONGE®)")
    
    For X = 4 To 7
        Me.Controls("cmbTX" & X).List = eskitedavi
    Next
End Sub

 

[seckinb]

Çalıştı!

sanırım 2. değişken fazla olmuş.