الشيباني1

استاذنا العزيز اعتذر عن هذا الخطأ غير المقصود والذي كان لسبب في برنامجي اشكرك جدا وادامك الرحمن لنا مرجعا

استاذنا القدير تحية طيبه مع شكري لما تجودون به لدي بعض الملاحظات حول الملف الاخير : - لا يمكن طباعة الاسطر التي تتجاوز السابع رغم تعديلPrint_Area وعدم امكانية طبع الاسماء غير ( محمد ) ارجو المساعده في معالجة الموضوع مع الامتنان

استاذنا الكريم ما وددت الحصول عليه هو الخيار الثاني (تطبيق الفكرة بإخفاء الصفوف الفارغة على مستوى كل عميل بطباعة منفصلة لكل عميل ) مع تقديري

استاذنا العزيز مع شكري وتقديري ارفق ملفا يقوم بتنفيذ الكود اعلاه وهو مفيد جدا لي اتساءل عن امكانية تنفيذه على ملفي اعلاه مع الشكر كود لطباعة بيانات مفرزه HaNcOcK2.zip

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

اخواني الاعزاء تحية طيبه جاد عمالقة المنتدى بالكود ادناه لطباعة المفرز من البيانات ، ارجو المساعده بكود مع قائمه منسدله لاختيار اسم الوكيل وطباعة المفرز من بياناته فقط مع الامتنان.(علما ان البيانات المثبته في الكود ادناه ليس لها علاقة بالمرفق). Sub Button12_Click() TT = 4 Do Until Cells(TT, "Q").Value = "" TT = TT + 1 Loop Range(Cells(4, "O"), Cells(TT - 1, "U")).PrintOut Copies:=1, Preview:=True, Collate:=True End Sub Sub Button13_Click() TT = 4 Do Until Cells(TT, "Q").Value = "" TT = TT + 1 Loop Range(Cells(4, "O"), Cells(TT - 1, "U")).PrintOut Copies:=1, Collate:=True Selection.AutoFilter Range("O4:X4").AutoFilter End Sub طباعة المفرز.zip

اخواني الاعزاء تحية طيبه حاولت ارفاق ملف يتضمن طلبي ولكن تعذر ذلك لسبب اجهله ، ضمن ورقة العمل لدي جدول يتضمن (الخليه B8 الماده ، الخليه G8 الرصيد ،الخليه I8 سعر الشراء ، الخليه L8 معدل السعر ) ما وددت الحصول عليه معادله في الخليه (J8) تتضمن قيمة الخزين حسب الخيار التالي ( عندما يكون معدل السعر للماده فارغا يؤخذ سعر الشراء ويضرب في الرصيد لايجاد القيمه وعند وجود معدل للسعر يؤخذ هذا المعدل ويضرب في الرصيد ) ليتم سحبها الى الاسفل حسب الحاجة. ارجو ان اكون وفقت في ايصال الفكره مع الامتنان

اخواني الاعزاء تحية طيبه لدى استخدامي المعادله ادناه احصل على (!0/DIV#)ارجو المساعده في جعل الناتج يساوي فراغا او صفرا وعدم اخفاء الناتج لان ضربه في رقم آخر يؤدي الى نفس النتيجه مع الامتنان =IF(B8="";"";AVERAGE(IF(FREQUENCY(IF(وارد!$G$5:$G$5000=$B8;MATCH(وارد!$I$5:$I$5000;وارد!$I$5:$I$5000;0)); ROW(وارد!$G$5:$G$5000)-ROW(وارد!$G$5)+1);وارد!$I$5:$I$5000))) علما انها تستخرج معدل الاسعار وتعمل بالضغط على (Ctrl+Shift+Enter)

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

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

اخواني الاعزاء تحية طيبه هل من كود يحدد عدد مرات فتح الملف ب (50) مره مثلا مع الامتنان

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

اخواني الاعزاء تحية طيبه وكل عام وانتم بخير في احد اعمدة البرنامج الذي اعمل عليه هذه المعادله =IF(Q4="";VLOOKUP(G4;price1;3;0);Q4)) ارجو المساعده في تعديلها لمنع ظهور ("N/A)في الخلايا الفارغه ضمن العمود مع الامتنان

استاذنا الكريم بارك الله فيك ابدعت فاسعفت ادامك الرحمن لنا مرجعا

اخي العزيز تحية طيبه هل بالامكان ارفاق مثال لتسهيل الوصول الى الغاية المطلوبه مع الامتنان

اخواني الاعزاء تحية طيبه اشكركم جدا على تفانيكم وكرمكم واشكر اخي الكريم طارق الذي كان له الدور الكبير في تلبية معظم الاحتياجات المتعلقه بمجال الاكسل ضمن عملي وارفق ملفا يتضمن المعادلات (في الاعمده ذات اللون الاخضر) راجيا تحويلها الى اكواد مع الامتنان معادلات الى كود3.zip

اخي العزيز تحية طيبه اعتذر اولا عن الخطأ غير المقصود الذي تضمنه المرفق واعيد ارفاقه هنا , ثانيا الكود يعمل عند تظليل الخلايا الفعاله في عمود الكميه والضغط على زر التشغيل ليسحب البيانات من الجدول المثبت في (ورقة2) ، ثالثا ما وددت التوصل اليه من خلال تعديل في الكود ( ان يكون هناك احتمال لتغيير سعر بعض المواد آنيا) ( اي ليس على طول ) والتغيير هذا يكون في العمود (N)(س2) وعند تثبيت هذا السعر الجديد يقوم الكود بأحلاله محل السعر الناتج في العمود (H) وبعبارة اخرى اريد احلال معادلة شبيهة بهذه ضمن الكود (IF(N5="";VLOOKUP(F5;price;2;0);N5=) مع الشكر معادلات الى كود2.zip

اخواني الاعزاء تحية طيبه في الملف المرفق اريد تعديلا على الكود ليثبت سعر البيع الثاني الذي يتضمنه العمود (N) ان وجد وان يبقي على السعر الذي يتضمنه الجدول في (ورقة2) ان كانت خلايا العمود اعلاه خاليه مع الشكر الجزيل معادلات الى كود2.zip

استاذنا العزيز ذلك ما اردته بالضبط جزاك الله خير الجزاء وادامك لنا مرجعا

اساتذتنا الكرام اعتذر عن اشغالكم بهذا الموضوع ولكن كلي امل في احداث التغيير المطلوب الكود السابق يعمل عند تظليل الكميات ضمن عمودها وضغط الزر لانزال البيانات التي تحتاجها الاعمده ففي المثال الذي تتضمنه المشاركه رقم (5) اعلاه لو تم مسح الخلايا التي تتضمنها الاعمده (A,H-L)وظللنا البيانات التي يتضمنها العمود (G)والضغط على زر التشغيل ستظهر البيانات المطلوبه كل في عموده وهي فكرة جاد بها احد عمالقة المنتدى ووجدتها مريحة وخفيفة على البرنامج وابتعادا عن المعادلات الداخليه وكما اوضح الاستاذ عبد الله ان كان بالامكان تعديل الكود ليأخذ بيانات السعرين من ( ورقة2 ) بدلا من ( ورقة1 ) وتبقى معلومات الكود الاخرى كما هي مع الشكر

استاذنا العزيز مع تقديري لمساعدتكم الكود السابق يتضمن اجراءات تغني عن عدد من المعادلات ضمن الاعمده (A,H-L)وما تفضلتم به كان معادلتين فقط ( سعرا البيع والشراء ) ارجو ان كان ذلك ممكنا تحويل باقي المعادلات الى اكواد او تعديل الكود الاول ليأخذ بياناته من الجدول في ( ورقة2) بالنسبة للسعرين فقط واستمرار العمل بهيكلية البرنامج الاولى مع الشكر

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

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

اخواني الاعزاء اعتذر عن الازعاج ولكن الموضوع ملح قليلا مع الشكر

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