ده كود يود به خطاء اتمنا التصحيح

[غريب العطار]

sheet1.Range("i1") = ComboBox1.Text
TextBox1.Value = sheet1.Range("i2").Value
Dim a
Dim i As Long
Me.ComboBox1.Text = StrConv(Me.ComboBox1.Text, vbProperCase)
Me.ListBox1.Clear
For i = 3 To Application.WorksheetFunction.CountA(sheet1.Range("A:A"))
a = Len(Me.ComboBox1.Text)
If Left(sheet1.Cells(i, 6).Value, a) = Left(Me.ComboBox1.Text, a) Then
Me.ListBox1.AddItem sheet1.Cells(i, 1).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = sheet1.Cells(i, 2).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = sheet1.Cells(i, 3).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 3) = sheet1.Cells(i, 4).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 4) = sheet1.Cells(i, 5).Value
Me.ListBox1.List(ListBox1.ListCount - 1, 5) = sheet1.Cells(i, 6).Value
End If
Next i

يوجد خطاء  عند الدخول  فى (( Me.ListBox1.Clear ))

و يكوم باظهار  العامود الاول فقط

 

[حسونة حسين]

السلام عليكم ورحمة الله وبركاته وبها نبدأ 

يرجى رفع ملف للعمل عليه