طلب تصحيح في كود التعديل من خلال ليست بوكس و تاكس بوكس

[زياد عبد الجليل]

السلام على جميع الاخوة الافاضل ...عندي طلب بسيط يتمثل في تصحيح كود التعديل حيث ان الملف من اعداد الاستاذ القدير العطار تمسنا و الاستاذ الرشيدي والخلل في الملف يكمن في التالي:

عند عمل كليك في الليست بوكس تضهر البيانات في التاكس بوكس وعند اجراء التعديل يكون كل شئ على ما يرام الكود يعمل بشكل ممتاز 

ولكن الخلل يكمن عندما نكتب في تاكس بوكس1 القيمة او الشئ الذي نبحث عنه يعرضه في الليست بوكس و عند عمل كليك في الليست بوكس تنقل البيانات الى  التاكس بوكس و لكن عند عمل التعديل و الضغظ على زر التعديل هنا تكمن المشكلة و هو عمل تكرار لنفس السطر و عرضه في الصف الاول من الشيت .مع بقاء السطر السابق غير معد اي يضيف سطر جديد بالتعديل..لفهم المطلوب بدقة اليكم المرفق التالي 

ولكم مني جزيل الشكر و التقدير 

El rashedy listbox.rar

[إبراهيم ابوليله]

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

اخى زياد

جرب تعديل الكود

الخاص بالتيكست 1

الى الاتى

 

Private Sub TextBox1_Change()
Dim i As Long, ii As Long, j As Integer
Dim Ary()

ListBox1.Clear
kha = ""
With Worksheets("codes")
    For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
        
            If .Cells(i, 2) Like "*" & TextBox1.Text & "*" Then
            kha = kha & " " & i
            ii = ii + 1
            ReDim Preserve Ary(1 To ListBox1.ColumnCount, 1 To ii)
            For j = 1 To ListBox1.ColumnCount
                Ary(j, ii) = .Cells(i, j).Value
            Next
        End If
    Next
End With
If ii Then Me.ListBox1.Column = Ary
Erase Ary
End Sub

تقبل تحياتى

 

 

 

 

[زياد عبد الجليل]

شكرا لك اخي ابراهيم نعم هذا هو المطلوب بالضبط...بارك الله فيك وشكرا على مرورك العطر

[زياد عبد الجليل]

السلام عليكم اخوتي الكرام ...ظهرت لي مشكلة لم اجد لها الحل و هي عند تعديل الخلية الثانية و الضغط على زر التعديل يظهر لي الخطأ في السطر التالي

Me.ListBox1.ListIndex = i

هذا الخطأ يضهر بعد كتابة العنصر الذي اود ان ابحث عنه في تاكس بوكس البحث ثم التعديل ولكن عند كليك على الليست بوكس و الاتعديل كل شئ تمام وشكراااااا
 

اسف على الازعاج لقد وجدت الحل شكرا للجميع

 

تم تعديل أغسطس 2, 2016 بواسطه زياد777