kamelgasmi قام بنشر يونيو 18, 2020 مشاركة قام بنشر يونيو 18, 2020 السلام عليكم ورحمة الله تعالى وبركاته إخوتي الكرام أطلب منكم التعديل على كود الحذف للصف كاملا في الملف المرفق وشكرا جزيلا مسبقا حذف صنف.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة الرائد77 قام بنشر يونيو 18, 2020 أفضل إجابة مشاركة قام بنشر يونيو 18, 2020 تفضل أخي الكود يعمل بسرعة جيدة في حالة وجود بيانات أكثر . يعمل جيدا Private Sub CommandButton3_Click() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.EnableEvents = False If MsgBox("سيتم الحذف هل أنت متأكد؟", vbQuestion + vbYesNo) = vbYes Then Sheets("الأصناف").Cells(r, 1).EntireRow.delete MsgBox "تمت عملية الحذف بنجاح" For Y = 1 To 7 Controls("textbox" & Y).Value = "" On Error Resume Next Next Y ListBox1.Clear UserForm_Activate Else Exit Sub End If Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.DisplayStatusBar = True Application.EnableEvents = True End Sub حذف صنف.xlsm 2 رابط هذا التعليق شارك More sharing options...
kamelgasmi قام بنشر يونيو 19, 2020 الكاتب مشاركة قام بنشر يونيو 19, 2020 كود ممتاز أخي الرائد77 الكود يعمل بشكل رائع جدا ....أكثر مما أحتاج إليه بارك الله فيك وفي أهلك شكرا جزيلا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان