Combobox Item

[ziya]

Merhaba,

For Z = 4 To 16
          With UserForm1.ComboBox7.ControlSource = Sheets("ERG").Cells(1, Z)
          End With
          Next

Yukarıdaki kodla, ERG sayfasından D11 aralığı bilgilerini combobox'ta görüntüleyemedim.
Yardım rica ediyorum.
Selamlar,

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

For Z = 4 To 16
    UserForm1.ComboBox7.[COLOR=red]AddItem[/COLOR] Sheets("ERG").Cells(1, Z)
Next

 

[janveljan]

Aşağıdaki şekilde deneyin.

For Z = 4 To 16
   UserForm1.ComboBox7.Additem  Sheets("ERG").Cells(1, Z)
Next

 

[ziya]

Her iki ustaya da teşekkür ederim.
Selamlar,