konafa4000

السلام عليكم ورحمة الله وبركاته اخوانى اعضاء المنتدى (رواده ، علماؤه ، المبتدئين ، ..... الخ) تحية طيبة ، كل عام وانتم بخير جميعا لدى سؤال هنا ولقد حاولت البحث عن اجابته ولم أفلح ، واتمنى أن اجد اجابته هنا ؟ كثيرا منا يتكلم عن ترحيل البيانات من شيت الى شيت داخل نفس الملف ولكن ماذا عن ترحيل البيانات من مجموعة ملفات الى ملف واحد بعد كل ملف لدى مجموعه من التقارير R001 , R002 , R003 ..... الخ كل تقريريحتوى على ثلاثة اعمدة المبلغ و الرقم والعنوان ولدى ملف مجمع باسمSal به تقرير مجمع يحتوى على اربعة اعمدة المبلغ و الرقم والعنوان كما فى الملفات السابقة وعمود رابع يحمل اسم يخص تقرير والمطلوب كودموجود ضمن الملف Report001 للترحيل من التقرير R001 بيناته كاملة دون صف الاجمالى الى الملف Sal المجمع مع اعطاء العمود يخص تقرير اسم التقرير R001 وبالمثل كودموجود Report002 للترحيل من التقرير R002 الى الملف SAL بنفس الطريقة وبالمثل كودموجودٌ Report003 للترحيل من التقرير R003 الى الملف Sal بنفس الطريقة مرفق طيه الملفات مع العلم بان الملف Sal بالشيت 1 موجود المطلوب الوصول اليها واريد التطبيق على شيت2 (ويسلام لو كان شرح للكود يكون فى الشيت 3 ، تبقى كنافة خالص) شكر مقدم لجميع الزائرين لهذا الموضوع ومشاركيه،،، اخوكم Konafa4000 ترحيل لملف اخر.rar

بصراحة عبقرى hben

والله عملاق يا ياسر أنت وصانع الكود

ومرفق الملف بعد التعديل (لايحتوى على اغلاق تلقائى بعد تنفيذ الكود) نفذ الخطوات التالية تاكد من ان تاريخ الجهاز قبل تاريخ (expiry) 1/10/2010) افتح الملف ستجد الملف كامل دون تنفيذ الكود الشيت 3 بها معادلات اقفل الملف دون اى شي او اجعل تاريخ الجهاز بعد تاريخ (expiry) 1/10/2010) افتح الملف ستجد الملف ينفذ الكود ويخفى الشيتات ويظل مفتوحا اغلق الملف ثم افتحه ثانية ستجده على الوضع الجديد (الشيتات مخفيه ) اظهر الشيت 3 ستجد المعادلات بها اصبحت قيم لن تحتاج الى ارجاع التاريخ الى ما قبل تاريخ (expiry) 1/10/2010) تحياتى KONAFA4000 2Copy of Amir_Yasser.rar

ومرفق الملف بعد التعديل (يحتوى على اغلاق تلقائى بعد تنفيذ الكود) نفذ الخطوات التالية تاكد من ان تاريخ الجهاز قبل تاريخ (expiry) 1/10/2010) افتح الملف ستجد الملف كامل دون تنفيذ الكود الشيت 3 بها معادلات اقفل الملف دون اى شي او اجعل تاريخ الجهاز بعد تاريخ (expiry) 1/10/2010) افتح الملف ستجد الملف ينفذ الكود ثم يغلق تلقائيا اذا اردت فتح الملف ثانية سيغلق تلقائيا ولن تقدر على فتحه ثانية ارجع تاريخ جهازك الى ما قبل تاريخ (expiry) 1/10/2010) افتح الملف سيفتح الملف ولكنك ستجده بالوضع الجديد الشيتات مخفيه اظهر الشيت 3 ستجد المعادلات اصبحت قيم Copy of Amir_Yasser.rar

اخى amir501 لقد فهمت من كلامك انك تريد عند بلوغ التاريخ المعين (Expiry) يقوم الكود بتحويل المعادلات الى قيمها واخفاء الشيتات وحفظ العمل (الملف بوضعه الجديد) ثم اغلاق الملف اذا كان هذا ما تريده فانه يجب ان تضيف السطرين ActiveWorkbook.Save ActiveWorkbook.close بعد السطر Sheet1.Select لكن فى هذه الحالة بمجرد فتح الملف اول مرة بعد التاريخ المعين (Expiry) سينفذ الكود ويقفل الملف تلقائيا ولن تستطيع فتح الملف مجددا بعد ذلك الا اذا ارجعت تاريخ الجهاز الى ماقبل التاريخ المعين (Expiry) وعند ارجاعك لتاريخ الجهاز وفتح الملف ستجده محفوظ بالوضع الجديد المعادلات محولة لقيم والشيتات مخفية (لذا لا افضل اضافة السطر ActiveWorkbook.close حتى تستطيع فتح الملف ثانية بعد التاريخ المعين دون الحاجة لارجاع تاريخ الجهاز ) (لاحظ فى كل الاحوال لن يكون هناك داع للسطرين المختصين بحالة عدم تحقق الشرط else و ActiveWorkbook.Save)

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

بارك الله فيك وفى اخونا هشام

الله يعطيك ألف عافية شرح جميل ووافى وموضوع جميل جزاك الله خير

لكى أوضح كلامى أكثر لقد حذفت سطرين من هذا الكود لكى تتضح الامور تمام امامك سنستخدم الشيت 3 "Sheet3" ولكنها فى الاصل رقم 4 (لاحظ ذلك جيدا) فى الملف المرفق أولا قبل فتحه عليك أن تتاكد من أن تاريخ جهازك أقل من 10/9/2010 (حالة عدم تحقق الشرط) عند فتح الملف سيفتح الملف عادى جدا وفى الشيت 3 ستجد ان المعادلات قائمة فى الشيت 3 (ملحوظة لفدحذفت السطر ActiveWorkbook.close) لان هذا السطر فى هذه الحالة كان سوف يقوم باقفال الملف تلقائيا ولكنى عمدت ان احذف هذا السطر لكى يظل الملف مفتوح وترى ان المعادلات قائمة فى الشيت 3 ثم اغلق الملف ثانية لا تلعب فى شيئ ولا تحفظ ثانيا اجعل تاريخ جهازك اكبر من 10/9/2010 (حالة تحقق الشرط) افتح الملف سيفتح الملف وستختفى الشيت 1، 2 ، 4 (وستظل الشيت 3 وهى 4 فى الكود ) حيث اننى قد حذفت السطر Sheet4.Visible = xlSheetVeryHidden ستلاحظ فى الشيت 3 ان المعادلات تحولت الى قيمها وقد اخفيت الشيتات 1،2،4 اغلق الملف وحاذر من الحفظ لان الحفظ سيجعل الملف على هيئته الحالية (فعند عودة تاريخ جهازك الى قبل 9/10/2010 سيظل الملف كما هو وتعتقد ان الكود قد تنفذ) اذا لم تحفظ اعد تاريخ جهازك مرة ثانية الى ما قبل 10/9/2010 وافتح الملف ستجد أن الكود لا يعمل كما حدث أولا ارجوا ان اكون قد وفقت فى توصيل المعلومة Amir_Yasser.rar

اخى amir501 الكود الاخير يعمل بشكل صحيح وجيد ما تغفله أنت انه عندما يكون التاريخ بعد 10/9/2010 فان الكود ينفذ تلقائيا ويغير المعادلات الى القيم فى الشيت 2 ثم يخفى الشيت 2،3،4،5 وتظل هذه الشيتات مخفيه (حالة تحقق الشرط) فعندما تعيد التاريخ الى ماقبل 10/9/2010 يحدث ان الملف (حالة عدم تحقق الشرط ) يحفظ الملف على هيئته ( اخفاء الشيتات) ويقفل تلقائيا عندها تعتقد أن الكود قد تنفذ ولكنه لا ينفذ بالمرة ولا تتغير المعادلات الى قيم لانها متغيرة اصلا والشيتات مخفية ايضا فتعتقد ان الكود قد نفذ ولكنه فى حقيقة الامر ينفذ حالة عدم تحقق الشرط ارجوا ان اكون قد اوضحت لك ما يحدث معك بالضبط اخوك كنافة

بالفعل هى الطريقة الاسهل السحب والافلات جزاك الله خير

كما قال الاخ ياسر من الافضل ان ترفق الملف ولكن فى كل الاحوال اننى افضل Data> Validation لانشاء القوائم

ملف جميل وممتاز

احذف السطر الاخير من الكود ActiveWorkbook.Close سيتم تنفيذ الكود ولن يتم اغلاق الملف

شكرا وجزاك الله خيرا

السلام عليكم اختى ،، هذا الملف يحتوى على دالةمصنوعة عن طريق ماكرو مكتوب بلغة VBA جب نقل هذا الماكرو من هذا الملف الى الملف الجديد لكى تقبل الدالة وتنقل الارقام الى نص فى الملف الجديد ولكى تنقلى هذا الماكرو الى الملف الجديد اذهبى الى قائمة Tools ثم امر Macro ثم Visual Basic Editor فيفتح محرر الVBA من Project-VBA project تزلى الى Module1 نقر يمين ثم Export file وتحفظى المديول فى مكان ترجعى له افتحى الملف الجديد ثم اذهبى الى محرر الVBA بالطريقة السابقة ومن قائمة Insert اختر Module فيدرج مديول جديد فى Project-vba project بالنقر يمين عليه ثم import file وتذهب الى المكان المحفوظ فيه المديول ثم open بعد ذلك عند كتابة المعادلة الملف الجديد ستجدها بتشتغل انشاء الله

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

السلام عليكم ورحمة الله وبركاته تحية طيبة للجميع ،،،، وشكري للجميع ومجهوداتهم وابداعاتهم الكبيرة ،،،، اخى طارق ، اخى ابوعبدالله شكر خاص لكما على اكوادكما الرائعة ، لدى خبره محدودة جدا في اكواد VBA فى الاكسيل ولقد حاولت ان اعدل فى الكود لكى يصبح ترتيب دخول الخلايا لكى يصبح فى عمود أخر غير C (مثلا عمود D) ولكننى قد فشلت واصبحت محكوما بالعمود C فى كلا الكودين كما اننى حاولت أن اغير عمود المبالغ بدلا من A ليصبح عمود أخر(B مثلا) ولم أفلح واصبحت محكوما بادخال المبالغ بعمود A فى كلا الكودين ولقد حاولت ايقاف الترتيب الاوتوماتيكى وقد نجحت فى ذلك فى كلا الكودين بحذف بعض السطور لذا سأثقل عليكما بطلب ان تشرحا لى هذه الاكواد سطر سطر ، لكى احاول أن اغير هذه الاعمده للتناسب معى واخير شكرا على مرورك YasserKhalil وعلى خفة ظلك وكل عام وانتم جميعا بخير

ايه فينكم ياشباب المنتدى ؟؟؟

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

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