هل يمكن تحرير listbox وترحيل التعديل الى الشيت ؟

[ajore]

هل يمكن تحرير listbox وترحيل التعديل الى الشيت ؟

form11.rar

[ابو تراب]

جرب المرفق

 

 

form11.zip

[ayadprof]

نفس مشكلة ارجو من اخوان حل هذه المشكلة

هذا الكود ممتاز بس هناك مشكلة هي عندما تكون الاسم مكرر يتم تغيير الاسم الاول وليس الاسم المحدد

[ابو تراب]

هلا اخي

 

جربت الكود وهو يعمل بشكل صحيح ... الكود يعتمد على الموقع الحالي لسطر القائمة بغض النظر عن تكرار الاسم

 

فضلا خبرنا اذا ما كانت المشكلة مازالت موجودة

[ajore]

راااااااائع 

[محمود ربيع]

استاذنا ابو تراب هل يمكن اضافة خاصية حذف السطر المحدد في الليست بوكس

[الجموعي]

استاذنا ابو تراب هل يمكن اضافة خاصية حذف السطر المحدد في الليست بوكس

 

 بعد إذن الأستاذ ابو تراب تم إضافة زر الحذف للفورم + إستدعاء بيانات الليست بوكس عن طريق الكود

أما بالنسبة لطريقة إستدعاء البيانات عن طريق MyRange كما في مرفق  مشاركة الأستاذ أبو تراب

يكفي إضافة زر إعادة تسميته بهذا الإسم

cmdDelete

ووضع الكود التالي فيه

Private Sub cmdDelete_Click()

    Dim I As Long
    With Me.listMain
        For I = .ListCount - 1 To 0 Step -1
            If .Selected(I) Then Sheets("all").Rows(I + 1).EntireRow.Delete
        Next I
    End With

End Sub

تعديل +حذف.zip