غريب العطار

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 )) و يكوم باظهار العامود الاول فقط