نجوم المشاركات

السلام عليكم ورحمة الله وبركاته البرنامج تسجيل بيانات فاتورة واردة من اي محل وادخالها للبرنامج اخواني المبرمجبن اريد برنامج بسيط وشروطه: */الدخول بواسطة كلمة مرور */امكانية ادخال عدد لانهائي من الفواتير */امكانية تعديل بيانات الفاتورة */امكانية تعديل بيانات الشركة */حفظ جميع الفواتير وامكانية البحث عنها برقمها او بالشهر ان امكن */امكانية طباعتها بحيث سيتم طباعتها بورق رسمي بمعنى ان يترك فراغ الهيدر للورق الرسمي */اظافة محرر الفاتورة الشهرية */اظافة توقيع مدير الجهة على اليسار بالاسفل انا قليل ادخل للنت لضغط العمل ارجوا الاتصال علي للمفاهمة 0563439105

اخواني الاكارم البرنامج التالي يخص محلات بيع النظارات و اطباء العينية و هو مأجور و ليس مجاني الأجرة ( دعوة صالحة لي و لمعلمي ( أبو آدم )) :rol: اترككم مع المرفق و انا بانتظار الردود ( في حال وجود خطأ لا سمح الله ) -------------------------------------------------------------------------------------------------------------------------- اعتذر لجميع الاخوة يرجى اضافة المرفق التالي مع المرفق الأول وهو وحدة نمطية لمنع التحرك بين السجلات عن طريق دولاب الفارة فقط استخرج المف المرفق وضعه في فولدر البرنامج MyCustomerData.rar std.rar

السلام عليكم ورحمة الله وبركاته رايت هناك حاجة لشرح بعض أدوات الفورم لاخواني بالمنتدي حتي يتمكنوا من معرفة كل اداة ووظيفتها ومثال عليها لكي يتمكنوا من عمل فورم بانفسهم وسوف ابدا خطوة خطوة بشرح كل اداة بمثال عملي الدرس الأول Tree View Control وهي تقوم بعرض البيانات علي صورة شجرة مثال الشرح والتطبيق بالمرفقات TreeViewControl.rar

السلام عليكم ورحمة الله وبركاته اخواني الأعزاء طرحت مسبقا لنموذج فاتورة عربي ونموذج فاتورة انجليزي لكن اليوم سوف اتناول الفاتورة بشكل وفكر جديد حتي تخدم شريحة كبيرة من المستخدمين مع حركات اخي الحبيب / شوقي ربيـع الجديد في النموذج فورم واحد ولكن يمكنك من خلاله الاختيار بين لغة الفاتورة (عربي - انجليزي ) ولغة الايصال (عربي - انجليزي) اختيار سهل للاصناف اختيار طريقة السداد بيان رصيد العميل واترككم مع النموذج أدعو الله سبحانه وتعالي ان يكون النموذج فيه الفائدة لكم ولا تنسونا بدعائكم بصلاح الحال بظهر الغيب فاتورة مبيعات اوفيسنا_2.rar

الاخوة أعضاء المنتدى الكرام في كود نسخ الصفوف لأسفل لا يتم نسخ أكثر 356 سطر في كل مرة لماذا وهل يمن زيادة عدد الصفوف المدرجة ... ولكم جزيل الشكر ...

دورة تدريبية فى القراءة الفعالة - فهرس مواضيع الدورة - اضغط هنـــــا السلام عليكم و رحمة الله و بركاته تحية طيبة و بعد، قبل أن نبدأ فى الموضوع الجديد ، لنلخص ما تعلمنا حتى الآن ، و هو موضوع واحد فقط : كيف نتجنب التلفظ أثناء القراءة؟ الموضوع يحتاج الى تدريب ، على سبيل المثال عند تعلم قيادة السيارة لأول مرة تفكر و تتوقف قبل كل حركة و تسترجع الخطوة التالية ، و لكن بعد فترة يكون عقلك قد استوعب العمليات المطلوبة و تؤديها بسلاسة بدون أي تعقيدات. مثال آخر عند تعلم التجويد فى القرآن الكريم ، تفكر فى الحكم فى البداية أو فى مخرج الحرف قبل أن تتلفظ به ، و لكن بعد فترة من التدريب يصبح ذلك عملية تلقائية لا تبذل فيها مجهود كبير حتي عند قراءة آيات لا تحفظها. لذا فالتدريب السابق و ما سيلي من تدريبات ما سيكون صعبا فى أوله ، بإذن الله تعالي سيتحول الي شيء تلقائي بعد فترة من التدريب . و الآن لنبدأ الموضوع الثاني : كيف تقوم العين بالقراءة؟ تبارك الله سبحانه و تعالي الذي خلق الإنسان و صوره فى أحسن تقويم ، و أسبغ عليه نعمه ظاهرة و باطنة، و منها نعمة البصر ، إن كل عين من عينيك تعد أكثر الآلات البصرية إعجازاً و لا يمكن مقارنتها باعظم آلات التيسكوب و ما اكتشفه الانسان من الآت بصرية و من ضمن الحقائق المدهشة أن العين تحتوي على 130 مليون مستقبل ضوئي إن صح الحصر العلمي لها و بها من الخصائص ما سنعجز عن وصفه و إن أطلنا ، و فى مقامنا هذا نبدأ بأن نقول الحمد لله على نعمة الاسلام و كفى بها نعمة و على نعمة البصر و ننتقل الى علاقة ذلك بموضوع الحلقات ألا و هو كيف يمكن لعينيك فعلا أن تقرأ من وجهة نظر تطبيقية بسيطة و ما هى الأخطاء التي يمكنك تجنبها لتزيد من فاعلية قرائتك بناء على حركة العين. القارئ العادي يقرأ الانجليزية من اليمين لليسار من أول السطر إلى آخره ثم ينتقل للسطر التالي ، لنطلب من زميل أو صديق المشاركة فى هذا التمرين و يلاحظ كل منا الاخر كيف يقرأ لدقائق معدودة ، لنراقب حركة العين و حركة الوجه. سنلاحظ أن البعض اما أن يحرك عينيه من اليمين لليسار و احيانا البعض يحرك وجهه قليلا ، و هناك من يتحرك بانتظام ، و هناك من تتوقف حركة عيناه فى وسط السطر أثناء القراءة توقفا ملحوظا لمرة أو أكثر . واقع الأمر أن العينين تقفزان قفزات صغيرة و كبيرة أثناء القراءة تتحرك من خلالها العين من نقطة ثابتة إلى أخرى , بين تلك الوقفات أكثر من كلمة فى المرة الواحدة، أي أن العين لا تتحرك ببطء و انتظام كما يبدو لنا من الملاحظة المبدئية و لكنها تتوقف وقفات صغيرة أو كبيرة منها ما هو فى خلال السطر الواحد و قبل أن نصل الى نهاية السطر. و يمكنك بالملاحظة أن تلحظ الوقفات الكبيرة أما الوفقات الصغيرة فيصعب ملاحظتها على شخص آخر و لكن يمكنك التعرف عليها عند قرائتك فعندما تتحرك العين و تتوقف فان المعومات يتم التقاطها خلال تلك الوقفات فقط و اذا يمكنك تحديد هذه الوقفات عن طريق ما استقبلت من كلمات . و هذه الوقفات وان كان وقتها صغير يستغرق ربع ثانية فقط و قد يصل الى نصف ثانية إلا أنه يستغرق وقت كثير اذا جمعناه ، و بناء عليه يمكنك تحقيق تحسن فورى فى سرعة قرائتك اذا قللت الوقفات و حاولت استيعاب أكبر عدد من الكلمات فى الوقفة الواحدة. و الان ابدأ القراءة واضعا ما سبق نصب عينيك و حريصا على أن تحرك عينيك بانتظام و بأقل قدر من التوقف نعم بهذه البساطة فقط جرب و ستري الفرق. اذا الان نضيف إلى قائمة ما يجب علينا التدرب عليه ، الحركة المنتظمة للعين ، ولنمضي أوقات قليلة فى التدرب على ذلك. بالطريقة البسيطة أثناء القراءة كما سبق. أي لنجرب تحريك العين بثبات و بحركة منتظمة و الحرص على تقليل الوقفات و يمكنك إجراء هذا التدريب على أي نص. و هذا هو التمرين الأول لهذه الحلقة أيضا هناك بعض التمارين التي تساعد على التحكم فى حركة العين و تحسين مستوى أداؤها مثل لقطات الفيديو الاتي ذكرها ، و يمكنك العثور على المزيد أو حتى اختراع تمارين لذلك طالما أنك تفهم الفكرة ، أو الاكتفاء بالتمرين من خلال القراءة نفسها. فى هذا الموقع توجد تمارين على حركة العين اضغط هنــــــــاShultz table اذهب الي Shultz tables ثم اضغط Go و ابدأ التمرين و يمكنك تنزيل الملف و تشغيله بواسطة المتصفح من اختار save target as بعد النقر على الزر الايمن للفأرة من هنـــــــــا و هذا هو التمرين الثاني لهذه الحلقة هناك تمرين بسيط يمكنك عمله ببساطة، و هو كتابة الارقام من 1 الى 4 على ورقة بحيث تكون الارقام مكتوبة فى اركان الورقة ثم تحريك عينيك بانتظام بين الارقام بالترتيب ، 1234، ثم بترتيب مختلف 4321 ثم بترتيب آخر .. و هكذا لتدريب عضلات العين على الحركة المنتظمة كما هو مبين فى الفيديو التالي و هذا هو التمرين الثالث لهذه الحلقة ملاحظة : بصفة عامة من لديه موفع اليوتيون محجوب أو لا يفتح او لا تظهر افلام الفيديدو لديه يمكنه الاكتفاء بالشرح بدلا عن مشاهدة الافلام أيضاً هناك تمرين آخر يمكنك ممارسته من خلال كتابة ارقام من 1 الى عشرين او الى 50 اول 100 مثلا وبصورة غير منتظمة فى ورقة ، ثم مسح الورقة بالعين بانتظام للبحث عن الارقام بالترتيب ، و فى هذا تدريب لحركة العين ، كما هو مبين فى الفيديو التالي و هذا هو التمرين الرابع لهذه الحلقة الحقيقة أن العين هي مصدر دخول المعلومة الي الذهن ، و كمية المعلومات التي يمكن للعين أن تقرأها و ترسلها الى العقل بدون وعي أضعاف الكمية التي يمكن أن تحدث فى حالة الوعي ، فبعض الاحصائيات تشير الي أن كمية المعلومات التي يمكن للعين استقبالها و إرسالها الي العقل فى الحالة الثانية هي 11 مليون بايت ، بينما هذه الكمية هى 16 بايت فقط فى حالة الوعي و الادراك. بمعني آخر عندما تقرأ كلمة كلمة بمكن لعقلك تخزين 16 بيت فى الثانية ، و لكن عندما تتعامل مع المعلومة كصورة تتجاوز المعلومات التي يمكن للعقل استقبالها فى الثانية الواحدة ذلك بكثير لتصل الى 11 ميجا بايت فى الثانية الواحدة. لذا يجب أن نحاول التقاط أكثر من كلمة فى اللقطة الواحدة. لننظر الى أي فقرة مكتوبة لنركز فى جملة فى منتصف الفقرة ، ثم لنحاول تذكر هذه الكلمة. ثم لنزيد العدد الى كلمتان ثم ثلاثة ، أي أننا فى كل مرة نحاول تمرين عضلات العين على التقاط أكبر كم من الكلمات فى النظرة أو اللقطة الواحدة. . و هذا هو التمرين الخامس لهذه الحلقة خطأ شائع النقطة التالية هي خطأ آخر نقع فيه أثناء القراءة ، و هو العودة المقصودة الي كلمات يخشي أنها تركت أو لم تفهم ، و قد أثبتت الأبحاث أن هذه العودة غير ضرورية فى أكثر من 80% من الحالات و أن العين تلتقط المعلومة فعلا و تستوعبها بعد قراءة عدة عبارات تالية ، لذا فان القارئ الفعال أو القارئ السريع لا يقع فى هذا الخطأ لأن هذه التكرارات غير ضرورية ، فلا يجب التعامل مع علاقة العين و العقل و الادراك على أنها مكنسة تلتقط الأشياء من الأرض و علينا التأكد من التقاطها لكافة المعلومات ، و لكن لنتعامل معها على أنها آلة تصوير تلتقط المعلومات و ترسلها الى كمبيوتر مركزي – إن صح هذه التشبيه التوضيحي - ، و اذا فهمنا هذه المقارنة سنوفر وقت ملحوظ و نتخلص من عادة سيئة تقلل سرعة القراءة بصورة كبيرة. نعم مرة أخري إن الموضوع سهل و بسيط و لكن أيضا يحتاج الى تدريب و الان لنقرأ أي فقرة مع التركيز على عدم العودة لاسترجاع أي معلومة أو التأكيد عليها و هذا هو التمرين السادس لهذه الحلقة اذا لنتدرب على تحريك العين بانتظام دون توقف ، و تقليل فترات التوقف ، و ندرب أنفسنا على عدم التردد و العودة لقراءة كلمات خشي أنه لم يحصل على معناها الصحيح أو فهمها بطريقة خاطئة ، مع عدم نسيان ما تعلمناه سابقا من تجنب التلفظ أثناء القراءة. و لنضع موضوع قيادة السيارة الذي ذكرناه فى بداية هذا الموضوع نصب أعيننا ، و باذن الله سيصبح ذلك تلقائيا بعد فترة. العين فى النهاية كاي عضلة يجب تمرينها لتعمل بصورة أفضل. أيضا لاحظت أن تدريبات بعض الألعاب القتالية الصينية تحوي ضمن تدريباتها تمرين لحركة و استجابة العين ، بان يقف المتدرب باسطا يده و مشيرا بالسبابة الي الأمام ، ثم يبدأ بتحريك يده الى أقصى اليمين ثم أقصي اليسار متابعا أصبعه بعينه فقط مع ثبات الرأس ، ثم يكرر نفس التدريب مع تحريك اليد لأعلي و لأسفل اذا مبدأ تدريب العين على الحركة موجود فى أكثر من مجال و بأكثر من صورة قد يبدو منطقياً أن يظن البعض أن القراءة ببطء و حرص ستزيد من الاستيعاب ، ولكن للاسف هذه ليست حقيقة فإن كثير من البحوث الحديثة أثبتت أنه كلما زادت سرعة قراءتك كلما زادت درجة استيعابك لما تقرأ. إذا لنذكر أنفسنا بأننا اذا تمكنا من القراءة بصورة أسرع سنتمكن من الفهم بصورة أفضل و أسرع ، فالعقل أقدر على فهم الجمل المندرجة فى سياق واحد بطريقة أفضل من مجموعة كلمات. إذا أن فى القراءة الفعالة هدفها هو الوصول الى مغزى ما تقرأ و فهمه و ليس التأكد من أنك تعرفت تماما على كل كلمة معرفة شخصية أو انك قرأت حروفها قراءة متأنية، و انما القراءة الأسرع و التجمعات ذات المعني داخل سياق واحد تحسن من الاستيعاب. و أحد التمرينات المفيدة فى هذا المجال ، هو اختيار أي قائمة مطبوعة مسبقا سواء كانت كلمات او أرقام او حتى عدة أسطر فى كتاب و النظر إليها لفترة محدودة ثم إخفاؤها و محاولة تذكر ما بها، و بتكرار التمرين على اسطر أو قوائم متتالية ستتمكن من تذكر كمية أكبر فى كل مرة. و هذا هو التمرين السابعو الأخير أحب أن أضيف أني وجدت هذا الموقع ، و يبدو أن به تدريبات كثيرة لم بعمل معي بعضها ربما لمشكلة فى جهازي ، و لكن يبدو ان العديد من الاعضاء فى الموقع قد استفادوا منها و الردود و الاشارات تشير الى ذلك كما أن به دورة عن القراءة السريعة تدريبات القراءة السريعة http://vb.maharty.com/showthread.php?t=4346 اذا لنلخص ما تعلمناه فى هذه الحلقة - تدرب على تقليل الوقفات و تحريك عينيك بانتظام. - تدرب على زيادة عدد الكلمات التي تحاول التقاطها فى كل وقفة. - لا تتردد أو تعود الى الخلف أثناء القراءة. و لتمنح نفسك وقنا كافيا لممارسة التمارين السبعة المشار اليها و لتكرر ما تشعر أنه اكثر فعالية بالنسبة لك بصورة أكبر و الى اللقاء فى الحلقة القادمة باذن الله تعالي دورة تدريبية فى القراءة الفعالة - فهرس مواضيع الدورة - اضغط هنـــــا

الموقع يحوى 45 كتاب عن البوربوينت http://www.kutub.inf...ary/category/50

أريد المساعدة من أهل الخبرة في عمل برنامج للمخازن يحتوي علي كود الصنف أسم الصنف التاريخ بيان رصيد أول المدة الواردللمخزن من كل صنف (كمية - سعر - قيمة) المنصرف من المخزن لكل صنف (كمية - سعر - قيمة) الرصيد (كمية - سعر - قيمة) وأكون لكم من الشاكرين وسأحاول أرفاق ملف بالاكسل يوضح ما أريدة ولكم جزيل الشكر والعرفان وهذا هو رابط البرنامج http://www.mediafire.com/download/u8qd74iq2j7jgzt/11%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC_%D8%A7%D9%84%D9%85%D8%AE%D8%A7%D8%B2%D9%86.rar

السلام عليكم و رحمة الله و بركاته اقدم لاخواني الاعزاء في هذا الصرح العلمي : workbook يصلح لمن يعمل في مستندات تحتاج لمتابعة وتجديد مستمر هام : لكي تعمل كل الروابط يفضل وضع المجلد في الدرايف D: وأحب ان تلاحظوا ما يلي : اولاً : اشكر الله عز وجل ثم اشكر كل من ساعدني, فهناك الكثير ممن ساعدوني من اخواني بالمنتدي و اخواني بالعمل ثانياً : أرجو من الله عز و جل ان يكون هذا العمل مفيد لكل مسلم ثم أرجو من إخواني الاعزاء استخدامه في اوجه الخير ( بعيداً عما يغضب الله مثل البنوك و التأمين ... و ما شابه ذلك ) و الله الموفق و المستعان My Insurance 2011.rar

الموقع يحوى 119 كتاب عن الورد http://www.kutub.inf...ary/category/48

احدث وابسط شيت مكافأة طبقا لقرار وزير المالية المصري باحتساب المكافأة على أساسيين للاستاذ الفاضل شعبان عطيه ارجو ان ينال دعواتكم الطيبه ومعه طريقة العمل على الشيت وهو من ابسط الشيتات وأدقها فى حساب المكافأة بمجرد ادخال الأساسى فى 1/9/2012 وأساسى 1/5/2013 ***** شيت المكافأة.rar تعليمات العمل على شيت المكافأة_2.rar

السلام عليكم ورحمة الله وبركاته الاخوة الافاضل فى المرفق مثال لنظام لترقية الموظفين وهناك اختيارات للترقية فعند اختيار نظام الترقية Promotion فينبغى للموظف أن يكون الموظف قد اتم الدورات التدريبية Course المطلوبة لهذه الترقية وكل نظام ترقية له كروسات اجبارية وينبغى أن يكون أتمها كلها وهناك عدد اختيارى من الكورسات ينبغى على الاقل ان يتم المطلوب من الكورسات الاختيارية والمطلوبة هو فى الفورم EMP ان يتم توضيح هل الموظف أتم متطلبات الترقية المرشح لها أم لا عن طريق مثلا تلوين الكورسات التى لم يتم اكمالها او اى طريقة مناسبة جزاكم الله خيراً tst.rar

السلام عليكم ورحمة الله وبركاته لو عندنا قاعدة بيانات فيها حقول عبارة عن 1- رقم 2- نص 3- تاريخ عند ادخال بيانات في حقل تاريخ مثلا غير التاريخ او ادخال نص في حقل من نوع رقم تظهر رسالة من الاكسس أن القيمة المدخل لهذا الحقل خير صالحة كيف اتحكم في ذلك بحيث اجبر المستخدم برسالة بهذا الخطأ بدلا من رسالة الاكسس عند ادخال نص في حقل رقم تظهر رسالة يجب ادخال رقم وبالمثل عند ادخال نص في حقل تاريخ تظهر رسالة يجب ادخال تاريخ وايضا اذا كان حقل اريد ان يكتب فيه باللغة الانجليزية تظهر رسالة تفيد ذلك وهكذا،، db1.rar

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

(اضغط على الصورة لعرضها بحجمها الأصلي)

بسم الله الرحمن الرحيم تحية طيبة للجميع اساتذة فى هذا المثال لديه حقل ( CodeNumber) و حقل (Department) المطلب : اريد فى حقل codenumber فقط يمكننا كتابة ارقام و اذا قمت بكتابة نص تضهر رسالة ( لا يمكن كتابة اى نص فى هذا الحقل ) و كذالك فى حقل department اريد فقط كتابة نص و لا يقبل الارقام مع اضهار رسالة ( لا يمكن كتابة الارقام فى هذا الحقل ) sample.rar

الرجو مساعد في كتابة داله موضوعي كالاتي مثال اذا كان الرقم الناتج اقل من 0.49يتحول 0.50 واذا كان الناتج اكبر من 0.50 يتحول الي عدد صحيح

برجاء المساعدة فى نقل بيانات من ملف الى ملف اخر دون النظر الى الخلايا الفارغة مرفق المثال Book1.rar

السلام عليكم بدل الكود السابق بهذا و اعلمني بالنتيجة Private Sub cmd_Click() Dim t1, t2, y, x, c, f, t, tt, i list.Clear If txt1.Text <> "" Then t1 = WorksheetFunction.CountIf(Range("b12:b" & Range("b" & Rows.Count).End(xlUp).Row), txt1.Text) If txt2.Text <> "" Then t2 = WorksheetFunction.CountIf(Range("d12:d" & Range("b" & Rows.Count).End(xlUp).Row), "*" & txt2.Text & "*") If t1 + t2 > 0 Then t = IIf(t1 > t2, t1, t2) Dim arr() ReDim arr(1 To 8, 1 To t + 1) For y = 1 To 8 arr(y, 1) = Range("a7").Offset(0, y - 1) Next If txt1.Text <> "" Then If txt2.Text <> "" Then With Range("b:b") Set c = .Find(txt1.Text, LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then f = c.Address Do If InStr(c.Offset(0, 2), txt2.Text) > 0 Then For y = 1 To 8 arr(y, x + 2) = c.Offset(0, y - 2) Next x = x + 1 End If Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> f End If End With Else With Range("b:b") Set c = .Find(txt1.Text, LookIn:=xlValues, lookat:=xlWhole) If Not c Is Nothing Then f = c.Address Do For y = 1 To 8 arr(y, x + 2) = c.Offset(0, y - 2) Next x = x + 1 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> f End If End With End If Else With Range("d:d") Set c = .Find(txt2.Text, LookIn:=xlValues, lookat:=xlPart) If Not c Is Nothing Then f = c.Address Do For y = 1 To 8 arr(y, x + 2) = c.Offset(0, y - 4) Next x = x + 1 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> f End If End With End If ReDim Preserve arr(1 To 8, 1 To x + 1) list.Column = arr End If End Sub تحياتي

السلام عليكم بعد إذن الاستاذ طارق هذا شرح للكود If Target.Address <> "$B$1" Then Exit Sub شرط اذا لم يكن عنوان الخلية النشطة B1 يتم الخروج من الاجراء ==================================== Application.ScreenUpdating = False إيقاف اهتزاز الشاشة =================================== s = [B1] المتغير S يساوي قيمة الخلية B1 والتي تمثل رقم البند ================================== With Sheet1 تقدر تقول (مع الورقة الاولى) ويتم التعامل مع هذه الورقة دون الذهاب اليها ================================== .Range("$A$1:$C$999").AutoFilter Field:=1, Criteria1:=s تصفية تلقائية للمدى Range("$A$1:$C$999") في العمود الأول وبشرط المتغير S (طبعاً التصفية للمدى في الورقة الأولى) ==================================================== LR = .[A9999].End(xlUp).Row متغير يساوي رقم الصف الأخير الذي به بيانات بعد التصفية =================================================== .Range("A1:C" & LR).Copy [E2] نسخ المدى A1:C ورقم أخر صف به بيانات في الورقة الأولى ولصقه في الخلية E2 من الورقة الثانية ============================================== Application.CutCopyMode = False الغاء وضع الصق والنسخ ============================================== .Range("$A$1:$C$999").AutoFilter End With إنهاء وضع التصفية التلقائية في الورقة الأولى واغلاق التعامل مع هذه الورقة =========================================== [B2] = [F3]: [A7:C999].ClearContents قينة الخلية B2 تساوي الخلية F3 ويتم مسح البيانات من المدى [A7:C999] ============================================ LR = [E9999].End(xlUp).Row متغير لتحديد رقم أخر صف به بيانات في العمود E من الورقة الثانية =========================================== With Range("E3:G" & LR) .Sort Key1:=[G3], Order1:=xlAscending .Copy [A7] End With في المدى E3:G وأخر صف يتم فرزه حسب العمود G تنازلياً نسخ البيانات في هذا المدى ولصقها في الخلية A7 انها التعامل مع هذا المدى ========================================== [E2:G999].ClearContents Application.ScreenUpdating = True مسح البيانات في المدى E2:G999 (وهو المدى الذي تم لصق البيانات فيه) تفعيل اهتزلز الشاشة ============================================ ان شاء الله أكون وفقت في الشرح

السلام عليكم ورحمة الله وبركاته يا اساتذة عندي جدول فيه اكواد متفرقة والكود ادخل له عده قيم فمثل الكود 1131 ادخلة في خلية قيمة 1 وفيه خلية 51 وهكذا اريد تجميع قيمة كل كود لحده فالخلايا ذات الكود س "مثلا" تتجمع قيمتها في خليه والخلايا ذات الكود ص "مثلا" تتجمع قيمتها في خليه منفصل

شركه ستارت للخدمات البرمجيه تعلن عن : *افضل برنامج لاداره شئون العيادات، انه برنامج شديد الاحترافيه لاداره وتنظيم عمل العيادات الطبيه الخاصه في جميع تخصصاتها لتسجيل شيتات المرضى والموظفين في قاعده بيانات قويه ومنظمه للغايه ويمكن التحكم فيها بسهوله مطلقه. ***ولفتره محدوده احصل على تصميم موقع الكتروني طبي ستاتيك مجانا مع البرنامج السعر : فقط 1600 جنيه مصري . وهذا لينك فيديو لعرض شكل البرنامج ويوضح طريقه تشغيله http://www.youtube.com/watch?v=VGJ6tg69zIk للحصول على البرنامج وللتواصل: شركه ستارت للخدمات البرمجيه E Mail: start-software@hotmail.com Mobile: 002 - 01003991689 / 01011500049. Tel: 02 22908275

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

أخي الفاضل // مصطفي فقط اضف السطر التالي للكود الاول لديك sheet1.Activate أو حسب النسخة لديك عربي او انجليزي ​ورقة1.Activate Private Sub Workbook_Open() On Error Resume Next UserForm2.Show sheet1.Activate End Sub

اسم على مسمى جزاك الله كل الخير

تفضل تم التعديل حسب الطلب تم الاستعانة باستعلام ووحدة نمطية madrasaUp.rar

للرفع رفع الله قدركم و اعلى مراتبكم

السلام عليكم الاخ الحبيب / إبراهيم ابوليله بارك الله فيك التمس منك العذر فلم اري طلبك الا اليوم واتضح لي انه مكرر ومنذ فترة طويلة اكرر اعتذاري فقد دخلت للموضوع اكثر من مرة للرد علي بعض المشاركات ولكني بالفعل لم اري مشاركتك واليك الطلب الذي طلبتع بظهور فورم تقم بتحديد العدد الذي تريد طباعته باستخدام ارقام الفواتير اي من الفاتورة .... الي الفاتورة ..... كما تريد وذلك من خلال زر طباعة متعددة الموجود بفورم الفاتورة ارجو الاطلاع ... حيث ام تنفيذه علي عجل عندما شاهدت مشاركتك لتلبيه طلبك باقصي سرعة جزاك الله خيرا طريقة طباعة اكثر من فاتورة.rar

السلام عليكم الاخ الكريم / xbeso بارك الله فيك الموضوع اخي الكريم ليس بالصعب ... ولكن مع مراجعة الموضوع سيمكنك عمل ذلك بنفسك ويمكن ان ارسل لك او اي اخ الحل مباشرة ولكن المحاولة والوصول للنتيجة بنفسك ستجعل ملفك اروع ... واي استفسار عن الموضوع قم بوضعه في الموضوع المذكور ومعك دائما باذن الله جزاك الله خيرا