حذف صف بشروط محددة

[احمد الغوري]

اريد منكم هذه الخدمه 
كنت عملت كود يحذف بيانات صف بشرطين اسم الصنف والتاريخ ولان اسماء الاصناف متكرره بتواريخ متعدده يقوم الكود بحذف بيانات الصنف المحدد  لكل التواريخ الذي ورد فيه .

ما قدرت افهم المشكله مرفق الملف 

‫حذف صفوف بشروووط.xlsm

[سليم حاصبيا]

الكود المطلوب

Option Explicit

Sub del_rows()
Dim My_sh As Worksheet
Dim Tabl As Range
Dim Rg_Del As Range
Dim MotB, Motc, i%
Set My_sh = Sheets("Data")
MotB = My_sh.Range("B2")
Motc = My_sh.Range("C2")
Set Tabl = My_sh.Range("G3", Range("K2").End(4))
If Tabl.Rows.Count > 10000 Then Exit Sub
 For i = 1 To Tabl.Rows.Count
     If Tabl.Cells(i, 1) = MotB _
           And Tabl.Cells(i, 2) = Motc Then
       If Rg_Del Is Nothing Then
         Set Rg_Del = Tabl.Cells(i, 1).Resize(, 5)
       Else
         Set Rg_Del = _
         Union(Rg_Del, Tabl.Cells(i, 1).Resize(, 5))
       End If
    
     End If
 Next i
 If Not Rg_Del Is Nothing Then
   Rg_Del.Delete
 End If

End Sub

Fouri.xlsm

[احمد الغوري]

اشكرك اخي سليم على تفاعلك والرد على طلبي وفعلا كود رائع .

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

تحياتي لكم 🌺

 

[سليم حاصبيا]

حذف البيانات فقط وليس حذف الصف

الكود يفعل هذا الشيء (يمكنك التأكد بكناية اي شيء /خارج الجدول/  في صف تريد حذف بياناته )

[احمد الغوري]

استاذي سليم 

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

 select. ("ورقة1") sheets

ولكن لم يعمل الكود.

مع خالص تقديري لشخصكم النبيل .