Combobox hata veriyor

[gevezeosman]

Arkadaslar,

Combobox ta Runtime error 1004 hatası alıyorum.
Combobox veri alanlarını "' ' " comment gibi gosterdiğimde userfoırm sorunsuz olarak çalışıyor?
Neden olabilir?

Private Sub UserForm_Initialize()


Calendar1.Visible = False

ComboBox1.RowSource = Sheets("combobox").Range("b2", Range("b100").End(xlUp)).Address
ComboBox2.RowSource = Sheets("combobox").Range("c2", Range("c100").End(xlUp)).Address
ComboBox3.RowSource = Sheets("combobox").Range("d2", Range("D1000").End(xlUp)).Address


End Sub

 

[gevezeosman]

Private Sub Workbook_Open()
UserForm1.Show

End Sub


Private Sub TextBox9_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Calendar1.Visible = True

End Sub
Private Sub Calendar1_Click()
TextBox9 = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub UserForm_Initialize()


Calendar1.Visible = False

ComboBox1.RowSource = Sheets("combobox").Range("b2", Range("b100").End(xlUp)).Address
ComboBox2.RowSource = Sheets("combobox").Range("c2", Range("c100").End(xlUp)).Address
ComboBox3.RowSource = Sheets("combobox").Range("d2", Range("D1000").End(xlUp)).Address


End Sub

Private Sub CommandButton1_Click()
son_dolu_satir = Sheets("data").Range("b65536").End(xlUp).Row
Bos_Satir = son_dolu_satir + 1

If TextBox9.Text = Empty Then MsgBox "Tarih Girilmeli.", , "Kesim Verimlilik": Exit Sub


Sheets("data").Range("B" & Bos_Satir).Value = Format(TextBox9.Text, "dd.mm.yyyy")
Sheets("DATA").Range("I" & Bos_Satir).Value = TextBox1.Text
Sheets("DATA").Range("J" & Bos_Satir).Value = TextBox2.Text
Sheets("DATA").Range("K" & Bos_Satir).Value = TextBox3.Text
Sheets("DATA").Range("L" & Bos_Satir).Value = TextBox4.Text
Sheets("DATA").Range("M" & Bos_Satir).Value = TextBox5.Text
Sheets("DATA").Range("N" & Bos_Satir).Value = TextBox6.Text
Sheets("DATA").Range("O" & Bos_Satir).Value = TextBox7.Text
Sheets("DATA").Range("P" & Bos_Satir).Value = TextBox8.Text
'Sheets("DATA").Range("Q" & Bos_Satir).Value = TextBox9.Text
Sheets("DATA").Range("C" & Bos_Satir).Value = ComboBox1.Value
Sheets("DATA").Range("e" & Bos_Satir).Value = ComboBox3.Value
Sheets("DATA").Range("d" & Bos_Satir).Value = ComboBox2.Value
Sheets("DATA").Range("f" & Bos_Satir).Value = TextBox13.Text
Sheets("DATA").Range("g" & Bos_Satir).Value = TextBox14.Text
d = 8
If ComboBox2.Text = "07:00 - 19:00" Then d = 12: Exit Sub
If ComboBox2.Text = "19:00 - 07:00" Then d = 12: Exit Sub
Sheets("DATA").Range("q" & Bos_Satir).Value = d
Sheets("DATA").Range("h" & Bos_Satir).Value = TextBox15.Text




End Sub

 

[efeksk]

Sorularınızı yöneltirken Lütfen dosya ekleyiniz..

 

[gevezeosman]

örnek dosya ektedir

 

[gevezeosman]

Bugun çinde çözüm bulmm gerekiyor. YardımCı olabileCek varsa çok sevinirimi. Sorun Combobox ta olmaya da bilir, fakatCombobox ı kaldırdıgımda problem çözülüyor.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Birde referanslarda missing ile başlayan bir işaretlerme var onuda kaldırın.

ComboBox1.RowSource = "combobox!b2:b" & Sheets("combobox").Range("b65536").End(xlUp).Row
ComboBox2.RowSource = "combobox!c2:c" & Sheets("combobox").Range("c65536").End(xlUp).Row
ComboBox3.RowSource = "combobox!d2:d" & Sheets("combobox").Range("d65536").End(xlUp).Row

 

[gevezeosman]

tesekkrler, şu anda sorun gozukmuyor.
Fakat nedenini anlayabilmiş değilim