ما الخطأ فى هذا الكود

[محمد عبد القادر]

هذا الكود للعلامة عبدالله المجرب لكنه لا يعمل 

الترحيل.xlsm

[سليم حاصبيا]

تصحيح الكود

أولاً انت كتيت متزوج في الورقة 2 و متروج في الورقة 1 و هذا اجد الاخطاء

الماكرو المناسب

Sub my_filtter_tarheel()
Dim myrng1 As Range, myrng2 As Range
Set myrng1 = Sheets("mydata").[A1:f2]
Set myrng2 = Sheets("Sheet1").Range("a1").CurrentRegion
Sheets("mydata").Range("A5").CurrentRegion.ClearContents
  myrng2.AdvancedFilter 2, myrng1, Sheets("mydata").Range("A5")
Set myrng1 = Nothing
Set myrng2 = Nothing
End Sub

الملف مرفق

salim_tarhil.xlsm

[محمد عبد القادر]

استاذنا الحبيب زادكم الله علما وجزاكم الخير كله