البحث في الموقع
Showing results for tags 'ورقة العمل'.
تم العثور علي 1 نتيجه
-
الاعزاء ............... السلام عليكم احتاج الى تنفيذ هذا الكود ولكن على ورقة العمل النشطة التي اعمل عليها ،، وليس على الورقة المذكورة في الكود المرفق. ما هو التغيير الذي سأجريه على الكود ليتم التنفيذ على الورقة المفتوحة او النشطة. وشكراً ،، 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
