اسادة/ الفاضل
بعد التحية
برجاء التكرم بالمساعدة بتطوير الكود التالي للتصفية والنسخ واللصق بنفس الشيت وبنفس الخلايا بالقيم
بشرط محدد وتكرر العملية في كل تصفية والتي تختلف كل مرة عن الأخرى حسب الشرط للتصفية
مع جزيل الشكر ميما يلي الكود الموجود لدي
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
