عرض وتعديل البيانات من خلال LISTbOX

[سعيد 1428]

أيها الإخوة 

السلام عليكم 

في الملف المرفق  أريد عرض البيانات في الشيت DATA من خلال LISTBOX وإجراء التعديل على هذه الببانات  من خلالها 

وشكرا 

listBox.xlsm

تم تعديل يناير 29, 2019 بواسطه سعيد 1428

[أحمد يوسف]

وعليكم السلام من فضلك انظر الى الصورة ويمكنك عمل ذلك بنفسك وكما تشاء

 

[سعيد 1428]

أخي/ أحمد 

شكرا على الاهتمام 

المشكلة ليست في حجم الاعمدة وإنما : في أن الاعمدة في شيت 12 والذي يظهر في اليست بوكس هو 9 فقط 

ثم أنه عند اختيار صف من اليست لعرضه في الفورم يظهر رسالة الخطا المرفق 

وشكرا على الاهتمام 

listBox.xlsm

[سعيد 1428]

الإخوة الكرام 

أريد المساعدة في معرفة الخطا في الكود التالي "

Private Sub TextBox8_Change()

If TextBox8.Value = "" Then ListBox1.Clear: Exit Sub

         ListBox1.Clear
       
    k = 0
With Sheets("DATA")
        ss = ThisWorkbook.Worksheets("Data").Cells(Rows.Count, 15).End(xlUp).Row
        For Each C In Sheets("DATA").Range("B2:B" & ss)
            b = InStr(C, TextBox8)
            If b > 0 Then
               ListBox1.AddItem
               ListBox1.List(k, 0) = Sheets("DATA").Cells(C.Row, 1).Value
               ListBox1.List(k, 1) = Sheets("DATA").Cells(C.Row, 2).Value
               ListBox1.List(k, 2) = Sheets("DATA").Cells(C.Row, 3).Value
               ListBox1.List(k, 3) = Sheets("DATA").Cells(C.Row, 4).Value
               ListBox1.List(k, 4) = Sheets("DATA").Cells(C.Row, 5).Value
               ListBox1.List(k, 5) = Sheets("DATA").Cells(C.Row, 6).Value
               ListBox1.List(k, 6) = Sheets("DATA").Cells(C.Row, 7).Value
               ListBox1.List(k, 7) = Sheets("DATA").Cells(C.Row, 8).Value
               ListBox1.List(k, 8) = Sheets("DATA").Cells(C.Row, 9).Value
               ListBox1.List(k, 9) = Sheets("DATA").Cells(C.Row, 10).Value
               ListBox1.List(k, 10) = Sheets("DATA").Cells(C.Row, 11).Value
               ListBox1.List(k, 11) = Sheets("DATA").Cells(C.Row, 12).Value
             
                        
                              
               
                k = k + 1
            End If
        Next C

 End With
End Sub

 

listBox.xlsm

[سعيد 1428]

السلام عليكم 

ارجوا المساعدة في هذا الموضوع