yasser_w_2010 قام بنشر يونيو 15, 2021 مشاركة قام بنشر يونيو 15, 2021 Sub Macro1() ' Macro1 ماكرو' Sheets("data").Range("A3:DM150").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("P3:P4"), CopyToRange:=Range("A5:DM5"), Unique:= _ False End Sub هل يمكن عمل هذا الكود بحيث ريحل البيانات كل مره في اخر صف فيه بيانات بدون مسح البيانات المرحله مسبقا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.