Merhaba arkadaşlar,
Aşağıdaki kodu gördüğünüz gibi user formun Initialize özelliğine yazdım ancak F5 yapıp form ekran gelmesi yerine şöyle aşağıdaki gibi bir hata geliyor. Konu hakkkında yardımlarınızı beklerim..
HATA.......
Run-Time Error '1004':
Aplication-defined or object-defined error
======================
KOD... ..............
Private Sub UserForm_Initialize()
ComboBox1.RowSource = Sheets(1).Range(Cells(65535, 2).End(3), Cells(2, 2)).Address
ComboBox2.RowSource = Sheets(1).Range(Cells(65535, 1).End(3), Cells(2, 1)).Address
ComboBox3.RowSource = Sheets(1).Range(Cells(65535, 4).End(3), Cells(2, 4)).Address
ComboBox4.RowSource = Sheets(1).Range(Cells(65535, 3).End(3), Cells(2, 3)).Address
ComboBox5.RowSource = Sheets(1).Range(Cells(65535, 9).End(3), Cells(2, 9)).Address
ComboBox6.RowSource = Sheets(1).Range(Cells(65535, 7).End(3), Cells(2, 7)).Address
ComboBox7.RowSource = Sheets(1).Range(Cells(65535, 8).End(3), Cells(2, 8)).Address
ComboBox8.RowSource = Sheets(1).Range(Cells(65535, 10).End(3), Cells(2, 10)).Address
ComboBox9.RowSource = Sheets(1).Range(Cells(65535, 5).End(3), Cells(2, 5)).Address
End Sub
Aşağıdaki kodu gördüğünüz gibi user formun Initialize özelliğine yazdım ancak F5 yapıp form ekran gelmesi yerine şöyle aşağıdaki gibi bir hata geliyor. Konu hakkkında yardımlarınızı beklerim..
HATA.......
Run-Time Error '1004':
Aplication-defined or object-defined error
======================
KOD... ..............
Private Sub UserForm_Initialize()
ComboBox1.RowSource = Sheets(1).Range(Cells(65535, 2).End(3), Cells(2, 2)).Address
ComboBox2.RowSource = Sheets(1).Range(Cells(65535, 1).End(3), Cells(2, 1)).Address
ComboBox3.RowSource = Sheets(1).Range(Cells(65535, 4).End(3), Cells(2, 4)).Address
ComboBox4.RowSource = Sheets(1).Range(Cells(65535, 3).End(3), Cells(2, 3)).Address
ComboBox5.RowSource = Sheets(1).Range(Cells(65535, 9).End(3), Cells(2, 9)).Address
ComboBox6.RowSource = Sheets(1).Range(Cells(65535, 7).End(3), Cells(2, 7)).Address
ComboBox7.RowSource = Sheets(1).Range(Cells(65535, 8).End(3), Cells(2, 8)).Address
ComboBox8.RowSource = Sheets(1).Range(Cells(65535, 10).End(3), Cells(2, 10)).Address
ComboBox9.RowSource = Sheets(1).Range(Cells(65535, 5).End(3), Cells(2, 5)).Address
End Sub