مساعدة فى تغيير كود يعمل تلقائى فى الملف اريدة يعمل بزر

[أسامة عطاالله]

السلام عليكم

ارجو المساعدة فى تغيير كود يعمل تلقائى فى الملف اريدة يعمل بزر

هذا هو الكود خاص بالترتيب التلقائى عند اضافة  اى اسم  ولكن اريدة ان يعمل عند الضغط على زر

Sub hben()

LR = [b65000].End(xlUp).Row

Set MyRng = Range("B2:C" & LR)

MyRng.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("B2"), _

Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _

Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal

Range("B2").Select

End Sub

ولو امكن شرح كيفية عملة لكى اطبق على ملفات اخرى

الصف الاول.rar

[أبو حنــــين]

السلام عليكم

الصف الاول_.rar

[أسامة عطاالله]

شكرا لك استاذى على الرد السريع وتلبية طلبى

واطمع فى كرم حضرتك وتشرح لى كيف تم هذا

لانى جربت وحذفت الكود الوجود فى حدث صفحة الداتا واشتغل الزر مع فى الملف السابق قبل ارسالة للمنتدى ولكن حضرتك لم تحظف الكود من حدث الصفحة

ارجو التوضيح اخى العزيز

شكرا لمجهودكم الرائع

[أبو حنــــين]

السلام عليكم

اخي كل ما في الامر انني اوقفت السطر Call hben و ذلك بوضع العلامة ( ' ) قبله

تم تعديل ديسمبر 19, 2013 بواسطه أبو حنين