طلب كود حذف البيانات المحدده اكسيل

[AhmedGamalB]

بسم الله الرحمن الرحيم 
السلام عليكم ورحمه الله وبركاته 

بعد اذن حضراتكم كنت محتاج مساعده ضروري 
انا عندي شيت لقيود معينه ولما بعمل استعلام بالكود ده 
 

Sub Cl_Balance()
If Range("P2").Value = False Then
Dim YoursMsg As String
YoursMsg = "Type the name of the client"
MsgBox YoursMsg, vbCritical
Else
    Sheets("Processes").Range("A2:M1000").AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=Range("P1:P2"), CopyToRange:=Range("A2:M2"), _
        Unique:=False
    
Dim YoursMsg1 As String
YoursMsg1 = "Query successfully "
MsgBox YoursMsg1, vbInformation
End If
End Sub

بيظهرلي بيانات العميل الي انا محدد اسمه وكل عملياته  تمام لحد هنا مفيش مشكله بس انا عايز كود يحذف لي كل عمليات العميل ده من صفحه القيود الاولي ديه لو رصيده بيساوي الصفر بعد ما اعمل استعلام وهرفق صورتين عشان اوضح اكتر الكود الي انا محتاجه 

تم تعديل أغسطس 2, 2018 بواسطه AhmedGamalB

[احمد بدره]

لابد من إرفاق ملف العمل حتى يتسنى أحد الأساتذة بعمل المطلوب

[AhmedGamalB]

تفضل ملف العمل

Egy-Co.rar

[AhmedGamalB]

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

تم تعديل أغسطس 3, 2018 بواسطه AhmedGamalB

[AhmedGamalB]

up
اعاده رفع ملف العمل 

Egy-Co.rar

تم تعديل سبتمبر 6, 2018 بواسطه AhmedGamalB

[Ali Mohamed Ali]

أخى الكريم فى ملفك كود مسح البيانات يعمل

[احمد بدره]

المشكلة التي واجهتني كانت  في كود مسح البيانات الخاصة بورقة العمل ( القيود ) وتم التعديل

أما كود مسح البيانات الخاصة بورقة العمل ( الاستعلام ) فليس به أي مشكلة

Egy-Co.rar