غريب العطار قام بنشر April 25 مشاركة قام بنشر April 25 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 )) و يكوم باظهار العامود الاول فقط رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر April 26 مشاركة قام بنشر April 26 السلام عليكم ورحمة الله وبركاته وبها نبدأ يرجى رفع ملف للعمل عليه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.