جعل الكود يعمل تلقائى عند التغير فى الخلية A3

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوة الكرام  لقد قمت بعمل كود ترتيب من خلال تسجيل الكود

وهو يعمل بصوره جيده

اريد ان يعمل الكود بمجرد احداث اى تغير فى الخليه A3

اريد ان يعمل الكود بصوره تلقائية عند احداث اى تغير فى الخليه A3

جزاكم الله خيرا

()Sub sort
    Range("C5:G35").Select
    ActiveWindow.SmallScroll Down:=-51
    ActiveWorkbook.Worksheets("1").SORT.SortFields.Clear
    ActiveWorkbook.Worksheets("1").SORT.SortFields.Add Key:=Range("F6:F35"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("1").SORT.SortFields.Add Key:=Range("C6:C35"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("1").SORT
        .SetRange Range("C5:G35")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A3 ").Select
End Sub

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

شاهد هذا الفيديو أخي الكريم أبو حنين

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاح الحبيب ياسر 

جزاك الله كل الخير

فعلا شرح مبسط وجميل جدا

واتبعت كل الخطوات   حرف حرف

لاكن واضح ان فى حروف وقعت منى

Option Explicit

(Private Sub Worksheet_Change(ByVal Target As Range
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("A3:C3")) Is Nothing Then
       Call sort       
        
    End If
End Sub

الا انى اجد خطاء ويتم تظليل السطر بالون الاصفر

اين الخطاء

تم تعديل يونيو 5, 2015 بواسطه ۩◊۩ أبو حنين ۩◊۩

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

المشكلة لديك سببها أنك قمت بتمسية الماكرو باسم كلمة محفوظة في اللغة ..ألا وهي كلمة Sort

للحل : قم بتغيير اسم الماكرو إلى SortRange مثلاً والكود يكون بهذا الشكل

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("A3")) Is Nothing Then
      Call SortRange
    End If
End Sub

تقبل تحياتي

[۩◊۩ أبو حنين ۩◊۩]

الاخ الكريم ياسر

جزاك الله كل الخير

كده فعلا خطوه نحو الامام 

بشرحك وملاحظاتك 

1-المشكلة لديك سببها أنك قمت بتمسية الماكرو باسم كلمة محفوظة في اللغة ..ألا وهي كلمة Sort

2- http://www.officena.net/ib/index.php?showtopic=56941#entry374440

جزاك الله خيرا