كود حذف عنصر من اللست بوكس

[طارق زكريا حسين جاه الرسول]

بسم الله الرحمن الرحيم 

بعد التحية 

المطلوب ان شاء الله

1- فى فورم التقارير اريد كود لزر الحذف بحيث عند اختيار عنصر من اللست بوكس يتم حذفه نهائيا

ولكم جزيل الشكر والتقدير‫‫‫‫فواتير السنترال.rar

[طارق زكريا حسين جاه الرسول]

up

up

[طارق زكريا حسين جاه الرسول]

للرفع

للرفع

للرفع

[طارق زكريا حسين جاه الرسول]

اريد كود الحذف

هذا رابط المشاركة 

www.officena.net/ib/index.php?showtopic=61131&p=393850

لك كل الشكر والتقدير

[طارق زكريا حسين جاه الرسول]

up

up

up

[طلعت محمد حسن]

السلام عليكم

اخي الكريم طارق شاهد المرفق ان شاء الله يكون فيه طلبك.

‫‫‫‫فواتير السنترال.rar

[خزاني]

        اخي    طلعت محمد حسن

كود يحذف  عنصر من اللست بوكس فقط  دون ان يحذفه نهائيا من ورقة العمل

كود حذف  عنصر من اللست بوكس فقط

 Me.ListFind.RemoveItem (Me.ListFind.ListIndex)

[طارق زكريا حسين جاه الرسول]

اخى المحترم 

طلعت محمد حسن

بعد التحية

ارجوا من سيادتكم ان يكون الحذف نهائيا من قاعدة البيانات

ولكم جزيل الشكر

[طارق زكريا حسين جاه الرسول]

UP

[خزاني]

Private Sub ListFind_Click()
 Me.CommandButton5.Visible = IIf(Me.ListFind <> -1, True, False)
End Sub

Private Sub CommandButton5_Click()
ActiveSheet.Unprotect (123)
Application.ScreenUpdating = False
Sheets("data").Rows(ListFind.ListIndex + 2).Delete
ListFind.RemoveItem (ListFind.ListIndex)
ListFind.List = Sheets("data").Range("A2:d500").Value
Application.ScreenUpdating = True
Me.CommandButton5.Visible = IIf(Me.ListFind <> -1, True, False)
End Sub

Private Sub UserForm_Initialize()
ListFind.ColumnCount = 6
ListFind.List = Sheets("data").Range("A2:g500").Value
End Sub

[طارق زكريا حسين جاه الرسول]

اخى العزيز

خزاني

ليس هو بالحل الصحيح

لك جزيل الشكر

[طارق زكريا حسين جاه الرسول]

up

up

up

up

[طارق زكريا حسين جاه الرسول]

انا فى انتظاركم ان شاء الله