تنفيذ كود على ورقة العمل النشطة

[ابوسلماان]

الاعزاء ............... السلام عليكم

احتاج الى تنفيذ هذا الكود ولكن على ورقة العمل النشطة التي اعمل عليها ،،  وليس على الورقة المذكورة في الكود المرفق.

 

ما هو التغيير الذي سأجريه على الكود ليتم التنفيذ على الورقة المفتوحة او النشطة.   وشكراً ،،

 

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

 

[ياسر خليل أبو البراء]

استبدل هذا الجزء  ActiveWorkbook.Worksheets("Cus1")

بهذا الجزء

ActiveSheet وفقط

[رشراش]

تعجبني استاذ ياسر

[ابوسلماان]

بس        

 

[ياسر خليل أبو البراء]

بس خلاص ..إنت تؤمر أخي العزيز خالد

تقبل تحياتي

[رشراش]

أساتذتنا  في أوفيسنا كالغيث متى ظهروا أزهرت المواضيع

ومتى ابدعوا رفعت لهم القبعات وعلت الحناجر بالدعاء لهم

أن وفقهم اللهم وجازهم عنا بما انت اهل له.