Listbox daki verile textbox lara neden eksik yansıyor

[okankoc25]

Userform açıldığında ve Listbox da seçtiğim veriler texbox yansıyor fakat aram yapıp bulduğum veri texbox a tam yansımıyor bazı bilgiler eksik gelir

 

[okankoc25]

kKod bu bir bakın hata nerede.bilhassa 9.textbox a kadar veriler geliyor ama geri yok.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox1.Value = ListBox1.Column(1)
TextBox2.Value = ListBox1.Column(2)
TextBox3.Value = ListBox1.Column(3)
TextBox4.Value = ListBox1.Column(4)
TextBox5.Value = ListBox1.Column(5)
TextBox6.Value = ListBox1.Column(6)
TextBox7.Value = ListBox1.Column(7)
TextBox8.Value = ListBox1.Column(8)
TextBox9.Value = ListBox1.Column(9)
TextBox10.Value = ListBox1.Column(10)
TextBox11.Value = ListBox1.Column(11)
TextBox12.Value = ListBox1.Column(12)
TextBox13.Value = ListBox1.Column(13)
TextBox14.Value = ListBox1.Column(14)
TextBox15.Value = ListBox1.Column(15)
TextBox16.Value = ListBox1.Column(16)
TextBox17.Value = ListBox1.Column(17)
TextBox18.Value = ListBox1.Column(18)
TextBox19.Value = ListBox1.Column(19)
TextBox20.Value = ListBox1.Column(20)
TextBox21.Value = ListBox1.Column(21)
TextBox22.Value = ListBox1.Column(22)
TextBox23.Value = ListBox1.Column(23)
TextBox24.Value = ListBox1.Column(24)
TextBox25.Value = ListBox1.Column(25)
TextBox26.Value = ListBox1.Column(26)
TextBox27.Value = ListBox1.Column(27)
TextBox28.Value = ListBox1.Column(28)
TextBox29.Value = ListBox1.Column(29)
TextBox30.Value = ListBox1.Column(30)
TextBox31.Value = ListBox1.Column(31)
TextBox32.Value = ListBox1.Column(32)
TextBox33.Value = ListBox1.Column(33)
TextBox34.Value = ListBox1.Column(34)
TextBox35.Value = ListBox1.Column(35)
TextBox36.Value = ListBox1.Column(36)
TextBox37.Value = ListBox1.Column(37)
End Sub