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

أسامة عطاالله · ديسمبر 18, 2013

السلام عليكم

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

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

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

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

**أبو حنــــين** · ديسمبر 18, 2013

السلام عليكم

أسامة عطاالله · ديسمبر 19, 2013

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

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

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

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

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

**أبو حنــــين** · ديسمبر 19, 2013

السلام عليكم

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

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

الردود الموصى بها