kamelgasmi قام بنشر يونيو 18, 2020 قام بنشر يونيو 18, 2020 السلام عليكم ورحمة الله تعالى وبركاته إخوتي الكرام أطلب منكم التعديل على كود الحذف للصف كاملا في الملف المرفق وشكرا جزيلا مسبقا حذف صنف.xlsm
أفضل إجابة الرائد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
kamelgasmi قام بنشر يونيو 19, 2020 الكاتب قام بنشر يونيو 19, 2020 كود ممتاز أخي الرائد77 الكود يعمل بشكل رائع جدا ....أكثر مما أحتاج إليه بارك الله فيك وفي أهلك شكرا جزيلا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.