moh.elmadany

هل من مساعدة يا حضرات؟

هذا الكود من عمل الاستاذ المحترم سليم حاصيبا وقد تفضل مشكورا ببذل كل طاقته في هذا العمل - إلا أن يحتاج لتعديل لابد منه - حيث ان مؤسسة الازهر الشريف تحتاج لهذا الملف بشدة ما يحدث هو ان القيم تتكرر في الصف الواحد - وانا لا اريدها ان تتكرر ولو تكررت تكون بعد عدد صفوف معين احدده انا ارجو تصفح الملف المرفق test_salim_without repetition (2).xlsm

استأذن حضرتك لطرح الموضوع على العام لتداول الرأي وأخذ الخبرات وخالص الشكر لتعبك معايا

المشكلة حضرتك ان الصف بالطريقة دي بيتكرر فيه الاسم احيانا لاكثر من عشر مرات ! ووفقا لقانون العمل .. لابد ان لا يتكرر الا بعد انتهاء كل الاسماء

حضرتك موجود يا أستاذنا؟؟ سبق و قلت لك (اننا نتعامل مع اعداد عشوائية لذلك يمكن ان يتكرر اي صف ولا يمكن السيطرة على هذه الحالة) ما الضرر اذن ان تقوم بكبسة زر اخرى كي لا يكون اول صف متكرر

مع الأسف يا فندم - مازالت مشكلة التكرار في نفس الصف كما هي ياريت لو فيه معيار للتكرار - يعني التكرار يكون بعد رقم صفوف معين

ألا يمكن يا فندم التعديل على الماكرو الأصلي الي وضعته حضرتك لانه قوي جدا ولا ينقصه ألا تلك النقطة وشكرا يا فندم - في الماكرو الذي وضعته .. لكن هل عمود i هو عمود المصدر (مصدر الاسماء)؟

تقبل اعتذاري إن كان فيه مشقة سببتها لحضرتك مكنش مقصود اكتب العنوان ده - لكن أكيد حضرتك عارف أن الفكرة في بدايتها بتكون صغيرة - لكنها بتطور بعد ذلك - وده سبب كثرة التعديلات اللي طلبتها بعد كدا لحضرتك العمل قارب على الانتهاء بفضل الله ثم بمجهودات حضرتك أنا لازم أشكر حضرتك على صنيعك معايا وخدمتك الغالية علينا - اللي من شأنها تطوير العمل الإداري داخل مؤسسة الأزهر الشريف وأخيرا : استمسح حضرتك: النظر في الملف المرفق لعله يكون أخر طلب ان شاء الله test.xlsm

شكرا لحضرتك وبارك الله فيك تم انجاز فوق الـ 90% حضرتك .. هل ممكن الفكرة المشار اليها في المرفق تكون محل تنفيذ؟ Random_list 6 (1).xlsm

معلش يا فندم ارجوك - كمل جميلك معايا في الملف ده المطلوب في المرفق وشكرا لذوق حضرتك Random_list 5(تم الاسترداد تلقائياً).xlsm

تسلم إيدك أستاذنا هل ممكن حضرتك جعل النتائج على 30 عمود بضغطة زرار واحدة بدلا من الضغط ثلاثين مرة؟

تمام معالي الاستاذ سليم أخر نقطة معلش حضرتك لم تجاوبني عليها ايضا ازاى اغير عمود المصدر بدلا من الـ C اخليه F وعمود النتائج يبدأ من U

بارك الله فيك استاذي - الحمد لله مشكلة تخطى الفراغات تم حلها .. --------------------- (1) معلش يا فندم مازالت مشكلة تكرار نفس الاسم في نفس الصف هل ممكن يتكرر الاسم في نفس الصف .. لكن بعد استنفاذ كل الاسماء في نفس الصف؟ --------------------- (2) مع الضغط على الزرار .. الملف بينزل تحت .. هل ممكن حلها؟ --------------------- (3) واخر نقطة: ايضا ازاى اغير عمود المصدر بدلا من الـ C اخليه F وعمود النتائج يبدأ من U ------------------------------ واشكر لك سعة صدرك ////رد لا تنس اننا نتعامل مع اعداد عشوائية لذلك يمكن ان يتكرر اي صف (وليس الصف الاول فقط) لكن هذا يحدث يما نسبته 0.5 % اذا صادف وحدث ذلك يمكن حذف العامود بكامله و اعادة تشغيل الماكرو لعدم تنزيل الملف الى اسفل امسح هذه العبارة من الكود Range("c" & i).Select

انت رجل عظيم بجد ربنا يبارك فيك ويحفظك معلش يا فندم .. هل ممكن نتخطى الفراغات .. يعني لو فيه فراغ في عمود المصدر .. ممكن الفراغ ده يتخطاه؟ وميتكررش حد في نفس العمود ؟ يعني اكيد العمود هيبقى ناقص من تحت مثلا؟ هل ده ممكن ؟ ثانيا .. هل ممكن ميبقاش فيه تكرار في نفس الصف الا بعد ما الاسماء كلها تنضاف لنفس الصف؟ فبعد كدا يتكرر ؟

حضرتك في ملفك المرفق اتعمل التوزيع على عمود الـ c فقط انا عايز يتعمل توزيع عشوائي تاني مثلا في عمود d و f ويكون التوزيع العشوائي في كل عمود مختلف عن باقي الاعمدة حضرتك انا مش عايز اكرره انا عايز يتعمل ترتيب عشوائي مختلف عن العمود الاول

هذا الكود يمكنني من عمل توزيع عشوائي لاسماء المدرسين وتكون نتيجة التوزيع في عمود t كيف اجعل النتيجة تظهر في عمد اخر مثلا w وتكون البيانات الناتجة مختلفة عما هي في العمود الاول ========================================= Sub randomCollection() Dim Names As New Collection Dim lastRow As Long, i As Long, j As Long, lin As Long Dim wk As Worksheet Set wk = Sheets("البيانات الأساسية") With wk lastRow = .Cells(.Rows.Count, "b").End(xlUp).Row End With For i = 2 To lastRow Names.Add wk.Cells(i, 1).Value Next i lin = 1 For i = lastRow - 1 To 1 Step -1 j = Application.WorksheetFunction.RandBetween(1, i) lin = lin + 1 Range("t" & lin) = Names(j) Names.Remove j Next i End Sub

لو سمحت في شيت كشوفات اللجان: أريده أن يقوم بالتوزيع العشوائي من الاسماء الموجودة من شيت البيانات الاساسية ولا يقوم بتكرار اسم من الاسماء في باقي الجداول في نفس اللجنة إلا بعد أن تدخل كل الاسماء تلك اللجنة رجاءا المساعدة - ولكم الشكر برنامج تةويع المرتقبين على اللجان.xlsm

وجدتها الحمد لله

السلام عليكم وحمة الله وبركاته تظهر لي هذه الرسالة فكيف يمكننى الكشف في هذا الملف عن الخلايا به المرتبطة بمصادر الخارجية أي: كيف يمكننى معرفة أي الخلايا هي المرتبطة بمصادر خارجية؟

ما هو افضل واسهل كود ترحيل ناجح وراسب لشيت أخر؟ مع العلم ان فيه تذييل كل 20 صف يا جماعة شكرا لحضراتكم

تسلم ايدك

شكرا سليم بك

كود رائع ومطلوب

أرجو المساعدة يا جماعة من فضلكم

امممم - طب هوه مفيش بديل آخر يا فندم غير خاصية النسخ واللصق؟