حسين مامون

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

للرفع

للرفع

السلام عليكم ورحمة الله الاخوة الافاضل عندي كود ترحيل في هذا الملف يعمل ترحيل من الصفحة "الرئيسية" الى الصفحات حسب الرقم عدد هذه الصفحات يزيد عن 257 ص واريد وضع شريط التقدم في الكود مع شرح الكود جزاكم الله خيرا اصنافform.rar

السلام عليكم في النمودج بالمرفق مكتوبة افقيا اريد عند ادخال رقم الشهر في التسكست بوكس7 ثم النقر على زرطباعة في الفورم تطبع البيانات التي حدثث في نفس الشهر ارقام الشهور في الصف2 جزاكم الله خيرا مصاريف النقل.rar

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

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

جزاك الله خيرا ساجرب وارد

السالم عليكم ورحمة الله جمعة مباركة اساتذتي بالمنتدى: في المرفق يوزرفورم فيه زرين OptionButton2 و OptionButton1 كل واحد مكوب عليه اسم الطابعة واريد عند اختيار واحد منهما ثم النقر الزر طباعة ان تعمل الطباعة المختارة تحياتي اختيار الطابعة.rar

السلام عليكم استاذنا حفظك الله لاشك ان عملك هذا صدقة جارية وباذن الله تجزى تحياتي

السلام عليكم اخوتي في الله اريد وضع امر اغلاق وحفظ التعديل على زر مع رسالة التنبيه هل تريد حفظ التعديل /نعم /لا تحياتي

جزاك الله خيرا استاذ سليم تحياتي

Sub doyoun() Dim ws As Worksheet, x%, lr%, xx As Worksheet, rng As Range Application.ScreenUpdating = False For Each xx In Sheets lr = xx.Cells(Rows.Count, "d").End(xlUp).Row For x = 9 To lr If xx.Name <> "الرئيسية" And xx.Name <> "طباعة" Then xx.Range("h4").ClearContents Set rng = xx.Range("d9:d" & lr) xx.Range("h3").Value = Application.Sum(rng) xx.Range("h3").Offset(1) = xx.Range("d" & lr) End If Next Next Application.ScreenUpdating = True End Sub تفضل اخي

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

استاذ سليم ... بعد ما فهمت الكود الذ ارسلته في المشاركة السابقة وجدت ان سبب المشكلة في هذا الجزء .Offset(1) = Range("d" & lr) اظنك نسيت كتابة WS بعد = المهم الكود يعمل بكفاءة وهو خفيف جدا السطر المذكور بعد التعديل Offset(1) = ws. Range("d" & lr) ارجو ان تقبل اعتداري جزاك الله خيرا استاذ سليم

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

اضف بيانات في العمود d وانضر صفحة امجد و فارس

يشرفني مرورك استاذ سليم اخر خلية في بعض الصفحات لا تطلع صحيحة في h4 تحياتي

السلام عليكم اساتذتنا في المنتذى الجميل طلبي هو تعديل الكود في المديول الموجودفي الملف على جميع الصفحات باستثناء الرئيسية و طباعة عمل الكود الان هو استدعاء اخر خلية في العمود D صفحة ياسر الى الخلية H4 ولقلة خبرتي لم استطيع تطبقه ليشمل باقي الصفحات علما ان الملف الاصلي يحتوي على اكثر من 50 شيت لذلك اريد الكود مطاطيا ليعمل مع الصفحات حتى ولو اضفنا صفحات اخرى جزاكم الله خيرا الانخراط بالتقسيط.rar

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

الف الف شكر استاذ جزاك الله خيرا تحياتي

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

السلام عليكم المعادلة لاتعمل اذا كانت قيمة الخلية 0 تحياتي

شكرا استاذ سليم جزاك الله خيرا

الف الف شكر اخي في اي خلية اضع المعادلة الكود ممتاز ولكن يتحكم في 5 صفحات فقط