ComboBox hatası

[özdil1]

Saygıdeğer hocalarım
Ekte gönderdiğim dosyada ilgili alanları doldurup kayıt yapınca sorun yok ancak, bir ya da iki veri girip kayıt yapınca ComboBox4 hata veriyor. İlgilenirseniz memnun olur saygılar sunarım.

 

[Ömer]

Merhaba,

Private Sub CommandButton1_Click()
On Error Resume Next
Sheets("Sayfa1").Select
Range("F7").Value = ComboBox1.Value
Range("F8").Value = ComboBox2.Value
Range("F10").Value = TextBox1.Value
Range("F11").Value = TextBox2.Value
Range("F14").Value = ComboBox3.Value
Range("F15").Value = TextBox3.Value
Range("A44").Value = ComboBox4.Column(0)
Range("A45").Value = ComboBox4.Column(1)
Range("F44").Value = ComboBox5.Column(0)
Range("F45").Value = ComboBox5.Column(1)
Range("A20").Value = ComboBox6.Column(0)
Range("A21").Value = ComboBox6.Column(1)
Range("D20").Value = ComboBox7.Column(0)
Range("D21").Value = ComboBox7.Column(1)
Range("G20").Value = ComboBox10.Column(0)
Range("G21").Value = ComboBox10.Column(1)
End Sub

Bu şekilde deneyiniz.

 

[özdil1]

Sayın Ömer Hocam;
Çok teşekkür ederim.Bu benim ilk deneyimim. Umarım bu acemilik dönemlerimde sizleri fazla yormam. Sorun çözüldü. Tekrar teşekkür eder, saygılar sunarım.