سؤال : هل يمكن اجبار عمود على ن يظل متب تصاعديا

[ابو الآء]

بسم الله الرحمن الرحيم

السلام عليكم وحمة الله وبركاته

تحيه الى جميع احبائي بالمنتدى

عندى سؤال يمكن يكون غريب

هل يمكن اجبار عمود معين على ان يرتب البيانات المدخلة فيه بصفة اليه ترتيب تصاعدى

بدون تدخل من مدخل البيانات

ولو حتى عم طريق تحيل هذه البيانات الى شيت اخر

وللجميع خالص تحياتى

ابو الاء.rar

[الحسامي]

السلام عليكم ورحمة الله وبركاته

اخي ابو الاء

مرفق ملف ... عند اضافة اي اسم في العمود الاول يتم ترتيب الاسماء تلقائيا

عسى ان يكون المطلوب

ابو الاء1.rar

[سالم شباني]

السلام عليكم

مبدع والله أستاذ عماد ، جزاك الله خيرا

[ابو الآء]

استاذى الكبير

الحسامي

خالص تحياتى الى فنك الجميل

والف شكر على ردك السريع

وبارك الله لك فى اعمالك

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

حيث اننى جاااهل فى كيفية نقل الاكواد من ملف الى اخر

ومرة ثانية اتقدم اليك بخالص شكرى تقديرى

[الحسامي]

السلام عليكمورحمة الله وبركاته

اخي سالم بارك الله على كلماتك ونشجيعك وانشاء الله نبقى عند حسن الظن

اخي ابو الاء هنا مرفق للشرح قد يفيدك ان شاء الله

شرح.rar

[قصي]

السلام عليكم ورحمة الله وبركاته

الف شكر لك اخي العمده

[ابو الآء]

الف شكر استاذنا الكبير

خالص تحياتى الى فنك الراقى

عمل اكثر من رائع

[عبد الفتاح كيرة]

ما أدرى

أشكر السائل

أم أشكر المجيب

كنت أحتاج لهذا الكود منذ زمن

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

قمت بتسجيل ماكرو للفرز مع وجود 3 أعمدة

وحسب العمود رقم 1

اسم الورقة " مصالح "

يمكنكم تغييره بما يلائم المطلوب

هاكم النتيجة

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveWorkbook.Worksheets("مصالح").Sort.SortFields.Clear

   'مفتاح الفرز a2:a1000 يمكنكم تغييره

    ActiveWorkbook.Worksheets("مصالح").Sort.SortFields.Add Key:=Range("a2:a1000"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("مصالح").Sort

       '3 أعمدة

        .SetRange Range("A1:c1000")

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

End Sub

تم تعديل يونيو 19, 2010 بواسطه kemas

[قصي]

شكرا اخي كيماس

في المشاركة رقم 6 ارسلت صوره لكل سائل يسأل سؤالا

ويحيب عليه احد الاخوة ولايرد عليه

[عبد الفتاح كيرة]

شكرا أخى قصى

كلنا هنا إخوة

ولا يتأخر أحد عن الرد إلا لضيق وقته

أو قصر علمه

أما الرغبة فى نفع الآخرين

فأمر اتصف به الجميع و الحمد لله

لا أدرى لماذا لا يستخدم الإخوة ميزة إضافة الوسائط هنا

الفديوهات و الصوتيات

انظر