combobox(çağrılan nesne hatası)

[xxihsidxx]

herkese hayırlı sabahlar
aşağıdaki kodlarla comboboxa bağlı olarak textlere veri yüklemek istiyorum. Çağrılan nesne istemcilerden ayrılmış uyarısı alıyorum.. o zaman Excel çalışma sayfasına da yazı yazamıyorum. Veli yazısının altındaki kodları kaldırdığımda sorun yok. Bu hatanın kaynağı nedir acaba?
Private Sub ComboBox39_Change()
With Sheets("veri")
Text82.Text = Cells(ComboBox39.ListIndex + 2, 3) '1.çoc ad soyadı
Combo9.Text = Cells(ComboBox39.ListIndex + 2, 4) 'sınıf
Text42.Text = Cells(ComboBox39.ListIndex + 2, 5) 'numara
Text43.Text = Cells(ComboBox39.ListIndex + 2, 6) 'kan grubu
Text44.Text = Cells(ComboBox39.ListIndex + 2, 7) 'ögrenci kiminle yaşıyor
Text45.Text = Cells(ComboBox39.ListIndex + 2, 8) 'öz kardeş
Text46.Text = Cells(ComboBox39.ListIndex + 2, 9) 'üvey kardeş
engel5.Text = Cells(ComboBox39.ListIndex + 2, 10) 'engel durumu
Text47.Text = Cells(ComboBox39.ListIndex + 2, 11) '2.çocuk ad soyad
Combo10.Text = Cells(ComboBox39.ListIndex + 2, 12) 'sınıf
Text48.Text = Cells(ComboBox39.ListIndex + 2, 13) 'numara
Text49.Text = Cells(ComboBox39.ListIndex + 2, 14) 'kan grubu
Text50.Text = Cells(ComboBox39.ListIndex + 2, 15) 'öğrenci kiminle
Text51.Text = Cells(ComboBox39.ListIndex + 2, 16) 'öz kardeş
Text52.Text = Cells(ComboBox39.ListIndex + 2, 17) 'üvey kardex
engel6.Text = Cells(ComboBox39.ListIndex + 2, 18) 'engel durumu

Text53.Text = Cells(ComboBox39.ListIndex + 2, 19) '3.çocuk ad soyad
Combo11.Text = Cells(ComboBox39.ListIndex + 2, 20) 'sınıf

'VELİ
Text65.Text = Cells(ComboBox39.ListIndex + 2, 1) 'veli ad
Text66.Text = Cells(ComboBox39.ListIndex + 2, 2) 'veli soyadı
Text67.Text = Cells(ComboBox39.ListIndex + 2, 35) 'ev adresi
Text68.Text = Cells(ComboBox39.ListIndex + 2, 36) 'ev tel
ComboBo4.Text = Cells(ComboBox39.ListIndex + 2, 59) 'ailenin geçim durumu
ComboBox29.Text = Cells(ComboBox39.ListIndex + 2, 60) 'ev kiramı
Text69.Text = Cells(ComboBox39.ListIndex + 2, 58) 'çocuk sayısı
end with
end sub
.

comboboxa verileri aşağıdaki kodlarla alıyorum.
Private Sub UserForm_Initialize()
Sheets("veri").Select
For X = 2 To [a65536].End(3).Row
ComboBox39.AddItem Cells(X, 1) & " " & Cells(X, 2)
Next
end sub

 

[Levent Menteşoğlu]

Dosyanız eklerseniz sorunuzun sebebi daha iyi anlaşılacaktır.