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 بملف اكسل هل من طريقة لحل هذه المشكلة؟ مع جزيل الشكر...