ibn_egypt

اخى الفاضل جرب الملف المرفق .. لربما به طلبك تحياتى بيانات العملاء.rar

اخى الفاضل أبو تراب تحياتي لك .. حل رائع من أستاذ قدير . عمل معي بشكل جيد جدا ولكن بعد تعديل بسيط بجعل الكود بهذا الشكل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("D8")) Is Nothing And Target.Count = 1 Then Range("D5").Select Delet End If End Sub تحياتي

ما انا عاوز الاصدار الجديد علشان اقيم الوضع واشوف الدنيا فيها ايه ايه اللى تمت اضافته وايه اللى لسه تحياتى

استاذي القدير أ.ياسر في انتظار الاصدار الجديد من المكتبة .... تحياتي

اخى الفاضل شخصيا لا اجد لها حل ... ربما يكون الحل عند أحد الخبراء ... ال Shapes ليس لها ControlTipText تحياتي

أخى الفاضل راجع هذا الموضوع للأخ والأستاذ القدير أ.محمد الريفي .. ولو عندك استفسار اعرض استفسارك وهيرد عليك دالة Hyperlink باسهل مما تتخيل تحياتي

طب بص اخى الفاضل، جرب الملف المرفق ... نتحايل قليلا على الموضوع ونحفظ كافة الصفحات ك PDF في نفس مسار الملف الأصلي ستظهر لك مرتبة وكل صفحة على حدة اطبع منه ما تشاء وبعد أن تنتهي تستطيع حذفه لو أردت ذلك .. بدون أن تحدد نطاق طباعة أو غيره لربما تروق لك هذه الفكرة تحياتي Print-All-In-One.rar

على الرحب والسعة .. نتشرف بوجودك بيننا تحياتي

امال انا بكره تسمية الشيتات بالعربي ليه ما علشان كده .. مرفق الملف بعد تغيير اسم الشيت الأول ليصبح Main بدلا من القائمة الرئيسية تحياتي بيانات العملاء.rar

ازاى هتكون عشوائية بس وانت كاتب من 20 الى 20 .... ما انت لو كتبت الارقام من 1 الى 10 او من 10 الى 20 هتكون عشوائية علشان تكون في الصورة الخلايا البرتقالى في الكود أرقامها عشوائية حسب من ... الى اللى انت بتكتبها .... لكن الخلايا الخضراء ارقامها عشوائية من الارقام التى تقبل القسمة على الرقم البرتقالى مثال كتبت الارقام من 20 الى 20 .. هنا كل الخلايا البرتقالى هتكون بنفس القيمة 20 .. لكن الخلايا الخضراء هتكون عشوائية من الارقام التى تقبل القسمة على 20 وهي 2 -- 4 -- 5 --- 10 مثال 2 كتبت الارقام من 1 الى 10 هنا هتكون الخلايا البرتقالى ارقام عشوائية من 1 الى 10 .. بينما الخلايا الخضراء هتكون عشوائية من الارقام التى تقبل القسمة على الرقم الظاهر في الخلية البرتقالى يعني لو رقم الخلية البرتقالى العشوائي طلع 6 .. خليته الخضراء اما ان تكون 2 او 3 .... لو طلع 8 خليته الخضراء اما ان تكون 2 او 4 لعل الأمور وضحت الآن أخى مختار تحياتي

نعم اخى مختار كل شئ ممكن ان شاء الله تفضل الملف بعد التعديل البسيط... وفي انتظار برنامجك الرائع بعد الانتهاء منه تحياتى توزيع أرقام عشوائية بشرط.rar

أخى الفاضل بدون أى معادلات ..اكمل بياناتك في كل الشيتات ومن شيت القائمة الرئيسية اضغط على زر "احضار كافة العملاء" تحياتي بيانات العملاء.rar

تفضل مرفق الملف تحياتى كريم 3.rar

اخي الفاضل انسخ المعادلة التالية والصقها في K6 .. لعل هذا ما تريده =IF(AND(B6="",E6="",G6=""),"",J6) تحياتي

اخى الفاضل اكتب هذه المعادلة في الخلية K6 =IF(AND(B6<>"",E6<>"",G6<>""),J6,"") مرفق الملف للتوضيح تحياتي كريم 3.rar

اخى الفاضل مختار تفضل الملف المرفق بعد التعديل تحياتي توزيع أرقام عشوائية بشرط.rar

أخى الفاضل كده تمام خلصنا الجزئية الاولى والملف اترفع الحمد لله بنجاح ... قولنا بقي انت ايه طلباتك عاوز تعمل ايه في الملف ده .. نحددلك احنا الخلايا اللى تتنقل وننقلهالك لأى مكان نحبه احنا .... والا انت فيه خلايا معينة عاوز تنقلها وهتنقلها من اين وهتوديها فين تحياتي

اخى الفاضل أبو تراب أحييك على هذا الحل الرائع .. كود ولا ابسط ولا اسهل ... ولإثراء الموضوع هذه محاولة اخرى منى بالاستعانة بالدالة الرائعة Fdivisors .. حتى لا يكون نطاق اللون الأخضر ثابت دائما من 1 الى 10 تحياتي توزيع أرقام عشوائية بشرط.rar

اخى الفاضل وبعد اذن الفاضل ابو يحي تم تعديل الملف بحذف الصفحة الثانية والابقاء على الأولى كما تم تعديل فورم الطباعة ليناسب المطلوب تحياتي متوسطة حي المظاهرات - .rar

اخى الفاضل معادلة اكبر من 5 =SUMIFS($C$6:$C$20,$C$6:$C$20,">5",$B$6:$B$20,"سارى") معادلة اقل من -5 =SUMIFS($C$6:$C$20,$C$6:$C$20,"<-5",$B$6:$B$20,"سارى") مرفق الملف للتوضيح تحياتي أكبر من وأصغر من.rar

اخى مختار وبعد إذن أستاذنا القدير بن علية حاجي وعلى حسب فهمي للمطلوب .. مرفق الملف تحياتي معادلة من عدة شروط.rar

الصورة الموضحة تحياتي

اخى الفاضل تفضل الملف المرفق .. طباعة الأوراق بورقة واحدة ولكن يلزمك أولاً تعيين ناحية الطباعة بكل الشيتات تحياتي Print-All-In-One.rar

أخى الفاضل هو مين اللى يعطي مثال لمين ... افتح انت ملف اكسل واكتب الحالة اللى عندك وارفق الملف بالمطلوب ... تحياتي