abu_hassan63

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

أتقدم بالشكر من الأخ احمد زمان والأخ بروجامرز

وكود الأخ بروجامرز مناسب لطلبي أكثر وأكرر الشكر الجزيل له 

وبارك الله بكم جميعا

اسادة/ الفاضل

بعد التحية 

برجاء التكرم بالمساعدة بتطوير الكود التالي للتصفية والنسخ واللصق بنفس الشيت وبنفس  الخلايا بالقيم

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

مع جزيل الشكر ميما يلي الكود الموجود لدي

Sub copy_paste_value()
'
' Macro2 Macro
'

'
    ActiveSheet.Range("$A$2:$U$9").AutoFilter Field:=1, Criteria1:=">0"
    Range("B4:Q4").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
End Sub
 

Module1.rar

السلام عليكم 

السادة/ المحترمين

     يرجى المساعدة تسيت  باسوورد ال vba بملف اكسل  هل من طريقة لحل هذه المشكلة؟

مع جزيل الشكر...