ComboBox2.RowSource

[ZorBey_]

Merhaba
İyi Çalışmalar

* Combobox1' den seçtiğim sayfa aktif duruma geliyor.
* Benim yapmak istediğim;
Combobox2' de aktif durumdaki
sayfanın " A11 " aralığındaki
Sutun Başlıklarını Combobox2 Ye Getirmek.

Şimdiden Teşekkür Ederim
İyi Çalışmalar.

 

[asi_kral]

Merhaba
Combobox1'in kodunu bununla değiştirin.

Private Sub ComboBox1_Change()
Dim SÜT As Long
i = ComboBox1.Value
Sheets(i).Activate
ComboBox2.Clear
For SÜT = 1 To 16
ComboBox2.AddItem Cells(1, SÜT)
Next
End Sub

Yada Userform'un kod bölümünü temizleyin ve bu kodu ekleyin.

Private Sub ComboBox1_Change()
Dim SÜT As Long
i = ComboBox1.Value
Sheets(i).Activate
ComboBox2.Clear
For SÜT = 1 To 16
ComboBox2.AddItem Cells(1, SÜT)
Next
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
End Sub