AhmedGamalB

up اعاده رفع ملف العمل Egy-Co.rar

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

تفضل ملف العمل Egy-Co.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمه الله وبركاته بعد اذن حضراتكم كنت محتاج مساعده ضروري انا عندي شيت لقيود معينه ولما بعمل استعلام بالكود ده 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 بيظهرلي بيانات العميل الي انا محدد اسمه وكل عملياته تمام لحد هنا مفيش مشكله بس انا عايز كود يحذف لي كل عمليات العميل ده من صفحه القيود الاولي ديه لو رصيده بيساوي الصفر بعد ما اعمل استعلام وهرفق صورتين عشان اوضح اكتر الكود الي انا محتاجه