ابوسلماان قام بنشر فبراير 7, 2017 مشاركة قام بنشر فبراير 7, 2017 الاعزاء ............... السلام عليكم احتاج الى تنفيذ هذا الكود ولكن على ورقة العمل النشطة التي اعمل عليها ،، وليس على الورقة المذكورة في الكود المرفق. ما هو التغيير الذي سأجريه على الكود ليتم التنفيذ على الورقة المفتوحة او النشطة. وشكراً ،، Sub Macro3() ActiveSheet.Range("$A$4:$E$9500").AutoFilter Field:=3, Criteria1:=">=" & Range("F2").Value, _ Operator:=xlAnd, Criteria2:="<=" & Range("G2").Value ActiveWorkbook.Worksheets("Cus1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Cus1").AutoFilter.Sort.SortFields.Add Key:=Range( _ "C4:C9500"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Cus1").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A1").Select End Sub رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 7, 2017 مشاركة قام بنشر فبراير 7, 2017 استبدل هذا الجزء ActiveWorkbook.Worksheets("Cus1") بهذا الجزء ActiveSheet وفقط 2 رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر فبراير 7, 2017 مشاركة قام بنشر فبراير 7, 2017 تعجبني استاذ ياسر 1 رابط هذا التعليق شارك More sharing options...
ابوسلماان قام بنشر فبراير 7, 2017 الكاتب مشاركة قام بنشر فبراير 7, 2017 بس 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 7, 2017 مشاركة قام بنشر فبراير 7, 2017 بس خلاص ..إنت تؤمر أخي العزيز خالد تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
رشراش قام بنشر فبراير 7, 2017 مشاركة قام بنشر فبراير 7, 2017 أساتذتنا في أوفيسنا كالغيث متى ظهروا أزهرت المواضيع ومتى ابدعوا رفعت لهم القبعات وعلت الحناجر بالدعاء لهم أن وفقهم اللهم وجازهم عنا بما انت اهل له. 2 رابط هذا التعليق شارك 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.