kod sorunu Private Sub UserForm_Initialize()

[muratozmenler]

Private Sub UserForm_Initialize()

Sheets("ana").Select
UserForm1.ComboBox2.RowSource = "A2:A" & Cells(65536, "A").End(xlUp).Row
UserForm1.ComboBox3.RowSource = "c2:c" & Cells(65536, "c").End(xlUp).Row

Sheets("yapılan işler").Select
UserForm1.ComboBox1.RowSource = "a2:a" & Cells(65536, "a").Row

ListBox2.ColumnCount = 50
ListBox2.RowSource = "Sayfa1!A1:d1"

ListBox1.ColumnCount = 50
ListBox1.RowSource = "Sayfa1!A2:d200"
End Sub


yukarıda kodları hepsi ınitialize bölümünde olunca hata veriyor ama

Private Sub UserForm_Initialize()

Sheets("ana").Select
UserForm1.ComboBox2.RowSource = "A2:A" & Cells(65536, "A").End(xlUp).Row
UserForm1.ComboBox3.RowSource = "c2:c" & Cells(65536, "c").End(xlUp).Row

Sheets("yapılan işler").Select
UserForm1.ComboBox1.RowSource = "a2:a" & Cells(65536, "a").Row

End Sub
şeklinde sorun yok

Private Sub UserForm_Initialize()

Sheets("yapılan işler").Select
UserForm1.ComboBox1.RowSource = "a2:a" & Cells(65536, "a").Row

ListBox2.ColumnCount = 50
ListBox2.RowSource = "Sayfa1!A1:d1"

ListBox1.ColumnCount = 50
ListBox1.RowSource = "Sayfa1!A2:d200"
End Sub

sorun yok

ilk baştakigibi hepsini nasıl çalışır duruma getirebilirim...

 

[hassan26]

Combobox ların row source kısımlarına
ana!a1:a65536
ana!a2:a65536
yapılanişler!a2:a65536
yaz

 

[muratozmenler]

işe yaramadı olmadı yine...ya

 

[muratozmenler]

sorunu hallettim yardımcı olmsı için....

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub UserForm_Initialize()
ComboBox11.RowSource = "ana!A2:A" & Sheets("ana").Cells(65536, "A").End(xlUp).Row
ComboBox12.RowSource = "ana!c2:c" & Sheets("ana").Cells(65536, "c").End(xlUp).Row
ComboBox13.RowSource = "'yapılan işler'!a2:a" & Sheets("yapılan işler").Cells(65536, "a").Row
End Sub

 

[muratozmenler]

teşekkürler....
ilginizden dolayı çalışmalarınızın devamını dilerim.....