الترحيل الى أكثر من ورقة عمل بشرط + تنسيق الخلية + جمع تلقائي

[Eng_A_Shawky]

السلام عليكم ورحمة الله وبركاته

بارك الله فيكم اخواني الكرام على هذا الجهد الطيب جزاكم الله عنه خير الجزاء

استفدت كثيرا من بحثي بالمنتدى، لم اكن استطع ان اقوم بعمل ماكرو للطباعة وبفضل الله تعالى ثم المنتدى والصحبة الطيبة بهذا الصرح الكبير تمكنت من البرمجة بلغة ال VBA

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

وقفت معي امور قليلة على انهاء ما اريد عمله وهي الترحيل والتنسيق والجمع التلقائي

أرفقت لكم ملف لاوضح ما اريد ان اقوم بعمله وللتوضيح أكثر

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

ثانيا: هل يمكن ان يتم وضع اطار للصفوف التي تحتوي على بيانات بصورة تلقائية؟ بمعنى انه عند ادخال بيان الى الصف يتم وضع اطار له وإن لم يكن به بيان لايتم وضع اطار للصف

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

لكن ما اريده هو ان يتم ترحيل البيانات بصورة نستمرة عن طريق الضغط على مفتاح Command ،ويكون الترحيل كالتالي:

أولا يتم الترحيل تبعا لرقم المعدة الى الصفحة الخاصة بالمعدة

ثانيا: الترحيل تبعا لاسم الشهر الى ورقة العمل الخاصة بالشهر (طبعا سنتجاهل هنا رقم المعدات)

وان يكون الترحيل متتابع، بمعنى انه اذا تم ادخال بيانات جديدة ومن ثم ترحيلها يتم ترحيلها في صفوف تلي البيانات القديمة دون احلالها لمكانها

وإن كان من الممكن ترحيل خانة الاجمالي معهم

اسأل الله ان اكون قد أوضحت مقصدي

بارك الله فيكم وجزيتم خير الجزاء

[Eng_A_Shawky]

سؤال : هل ما أطلبه يمكن تنفيذه بسهولة وموجود أم يصعب؟ (هو سؤال حول امكانية تنفيذ ما أريد)

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

وبالتالي فسيتم الجمع لاي بيانات مدخلة

بالنسبة للأطار حاولت أستخدام قاعدة If معه لكن لم تنجح المحاولة معي

ترحيل البيانات المشروط لم ينجح معي بتاتا ولازلت أحاول إلى إن يمن الله علي أو على أحد من اخواني بالحل السليم

بارك الله فيكم

[Eng_A_Shawky]

اين انتم يا عباقرة الموقع

هل ما اطلبه لايمكن تنفيذه يا اخوان؟ افيدوني بالله عليكم

ماتوصلت اليه انه يمكن التنفيذ عن طريق قاعدة If لكن ينقصني صيغتها في صورة Range فقد قمت بتطبيقها عن طريق الخلايا (اي لخلية واحدة فقط)

ارفقت لكم الملف مره أخرى

Machines_1.rar

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

ملفك المرفق لا يرحل فى الماكن المناسبه

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

جرب الملف المرفق كبدايه لترحيل الكميه الى شهر يناير لتعرف الفكره

السلام عليكم

Machines_1_01.rar

[Eng_A_Shawky]

السلام عليكم ورحمة الله وبركاته

بارك الله فيك أخي الغالي هادي سالم على تقديم يد العون والمساعدة، جزيت كل خير عني وعن ما تفعله من خير ، كان الله في عونك دائما

لطالما استفدت من مواضيعك الموجودة بالمنتدى والتي تكثر بها المعلومات

بالنسبة للترحيل، فالملف المرفق يرحل بالفعل بالمكان المناسب، ففكرة عمل الملف انه سيتم ادخل البيانات اولا في الشيت المسمى "الرئيسية" ومن ثم سأقوم بانشاء مفتاح يسمى "ترحيل" حيث يتم الترحيل تبعا لاسم الشهر ولرقم المعدة

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

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

حفظك الله أخي

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

بالنسبة للترحيل، فالملف المرفق يرحل بالفعل بالمكان المناسب، ففكرة عمل الملف انه سيتم ادخل البيانات اولا في الشيت المسمى "الرئيسية" ومن ثم سأقوم بانشاء مفتاح يسمى "ترحيل" حيث يتم الترحيل تبعا لاسم الشهر ولرقم المعدة

يمكن القيام بما تريد و لكن ماذا يحدث اذا ادخلت شهر مثل ديسمبر و ليس له ورقه عمل او رقم معده ليس لها ورقه عمل

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

و الخيار لك

السلام عليكم