السلام عليكم
الاخوه الاعزاء
هذا كود تصفيه نتقدمه
كيف لى ان اجعل الكود بتم تلقائى
دون الضغط على زر الكود
Sub Macro2()
'
' Macro2 Macro
'
Sheets("Sheet2").Select
Sheets("Sheet1").Range("A1:E27").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Sheet1").Range("H1:I2"), CopyToRange:=Range( _
"Sheet2!Extract"), Unique:=False
End Sub
شاكرا لكم تعاونكم