Eng_A_Shawky

ماشاء الله ولا حول ولا قوة إلا بالله أبداع X تميز X تألق لا أملك إلا أن ادعو لكم اخواني الكرام عن ظهر الغيب، أعزكم الله جميعا وشرح صدوركم وييسر لكم جميع أموركم وفتح الله عليكم فتوح العارفين كان الله دائما في عونكم لما تبذلوه من مجهود في معاونة أخوانكم ، بارك الله فيكم وجزيتم كل خير كم من الإفادة التي استفدتها منكم أخواني الأحباء وبإذن الله تعالى سأحاول فهم كيفية عمل هذا الكود لتطبيقه على أوراق عمل أخرى فعلا لايقل أي عمل عن الآخر في الأهمية فجميع الأعمال تم تقديمها من عمالقة المنتدى بارك الله فيكم وجزيتم كل خير

وعليكم السلام ورحمة الله وبركاته حياك الله وجزيت كل خير أخي الغالي على تقديم المساعدة، بالفعل الملف يقوم بالترحيل لكن لي سؤال إن لم أكن أثقل عليك: لماذا يتم مسح البيانات المرحلة من اوراق العمل الخاصة بكل شهر إذا تم ترحيل بيانات جديدة عليها؟ بارك الله فيك

اين انت يا غالي ، برجاء المساعدة بارك الله فيكم

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

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

السلام عليكم ورحمة الله وبركاته قمت بإنشاء ملف لأدخال البيانات للمعدات بالعمل، ما اريده ان يتم ترحيل هذه البيانات عند الضغط على الزر "ترحيل" على حسب الشهر، بمعنى البيانات الخاصة بشهر يناير يتم ترحيلها الى ورقة العمل التي تسمى يناير والبيانات الخاصة بشهر فبراير يتم ترحيلها الى ورقة العمل المسماه فبراير وهكذا حاولت عملها بقاعدة IF لكنها لم تنجح معي فلازلت مبتدأ في البرمجة باستخدام VBA بارك الله فيكم وجزيتم كل خير Transfer.rar

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

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

سؤال : هل ما أطلبه يمكن تنفيذه بسهولة وموجود أم يصعب؟ (هو سؤال حول امكانية تنفيذ ما أريد) بالنسبة للجمع وجدت له حل وهو ان أضع TextBox في بداية العمود ومن ثم اساوي قيمتها بقيمة خلية أخرى بعيدة عن ورقة العمل ويكون مكتوب فيها معادلة الجمع وبالتالي فسيتم الجمع لاي بيانات مدخلة بالنسبة للأطار حاولت أستخدام قاعدة If معه لكن لم تنجح المحاولة معي ترحيل البيانات المشروط لم ينجح معي بتاتا ولازلت أحاول إلى إن يمن الله علي أو على أحد من اخواني بالحل السليم بارك الله فيكم

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

بارك الله فيك وجزيت كل خير أخي Justice أسطوانة رائعة ومفيدة جدا بأذن الله تؤجر عن كل معلومة منها خير الجزاء

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

بارك الله فيكم وجزيتم كل خير عنا مبتدأ بالبرمجة بالأكسل والحمد لله وجدت الإفادة الكبيرة في هذا الموضوع

السلام عليكم ورحمة الله وبركاته والله اخي انا ما فهمت الفكرة من الملف، استسمحك ان توضحها لي

بارك الله فيك وجزاك الله كل خير أخي، جعل الله المحبة في الله بيننا وحبب فيك الناس اجمعين ويسر عليك من امورك العسيرة كلها قدر ما يشاء فائق احترامي لك فقد قمت بعمل البرنامج بفضل الله اولا وتوفيقه ثم بفضل مساعدتك لي قمت بعمل قائمة رئيسية ووضعت فيها Command Button's لكي استطيع التنقل بين اوراق الاعمال بالشيت وايضا استطعت عمل Combo box لكي ادرج أرقام المعدات فيه ليتم الاختيار منه كما اوضحت لي اخي في الحقيقة هو اول برنامج أقوم بعمله عن طريق الفورم، والحمد لله أستاذ عزيز وله وزنه وثقله قام بارشادي للطريق وبتوفيق من العزيز العليم تمكنت من اخراج البرنامج باذن الله سأقوم بمراجعة الموضوع الذي أرجحته إلى وابدأ بالكتب الصغيرة الحجم كما قلت يتبقى لي سؤال يا غالي وهو عن كيفية حماية الملف؟ فأريد ان اقوم بعمل حماية على الـ VBA التي قمت بعملها ضد التعديل أو المسح وايضا هل من طريقة تمكنني من عمل حماية للخلايا، بمعنى انني اريد ان يتم ادخال البيانات من الفورم (النموذج) فقط ولا يمكن ان يتم تعديل البيانات او مسحها عن طريق الشيت بالاكسل فعند عمل Protect للشيت لا يمكن أن يتم إدخال البيانات فائق احترامي لك اخي