اسكندراني

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

تفضل اخي جدول-العلامات-المدرسية-للصف-العاشر-الأساسي-المعتمد-لعام-2017--.rar

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

الاستاذ الفاضل - ياسر بالنسبه للكود الذى ارفقته فى اعلى المشاركه هو واضح لى ولكى قمت بوضع مرفق لتعديل هذا الكود ليقوم بنفس المهمه ولكن والملفات التى يجلب منها البيانات تكون مغلقه لانه حاليا حتى يقوم هذا الكود بعمله لابد من فتح جميع الملفات اولا ثم تشغيله ولكنى اريد تعديله ليقوم بنفس المهمه ولكن والملفات التى يجلب منها البيانات تكون مغلقه ويكون فقط الملف book1 هو المفتوح على ان يتم وضع اسم الملف الذى تم احضار البيانات منه فى خانه العمود المجاور للبيانات المنسوخه منه لا ادرى هل استطعت توصيل الفكرة ام لا بمعني يوجد عندي تقريبا 15 ملف باسم من test1 الى test 15 فيتم نسخ البيانات من الملف الاولى الى ملف book1 ولكي يتم التعرف من اى ملف وردت تلك البيانات يتم وضع اسم ملف test1 مثلا بجوار بياناته فى العمود المجاور لها وهكذا لجميع المفات معذرة للاطاله

السلام عليكم ورحمه الله وبركاته الاستاذ الفاضل / ياسر خليل كل الشكر لمرورك الكريم مرفق ملف للعمل عليه وارجو منكم وضع شرح بسيط مع الكود لسهوله التعديل عليه حسب المتغريات المطلوبه وجزاكم الله خيرا الاستاذ الفاضل / صلاح الصغير اشكر ل اهتما مك بالرد ولكن المثال يتم النقل فيه لملف واحد وقد ارفقت ملف يحتوى على مجموعه ملفات يكون الملف الاساسي مثلا book1 وباقى الملفات المرفقه معه ومطلوب نسخ جميع البيانات من الملفات الاخرى الى المف الرئيسي وهى ملغقه New folder.rar

السلام عليكم ورحمه الله وبركاته كل عام والاساتذة الكرام وجميع اعضاء المنتدي الكريم بالصحه والعافيه بمناسبه شهر رمضان المبارك وجعلنا الله واياكم من عتقائه من النار ارجو من الاساتذه الافاضل المساعدة في الكود المرفق والذي حصلت عليه من خلال اليوتيوب في الانترنت لعمل بعض التعديلات عليه فكره عامه عن الكود فانه يقوم بتجميع البيانات من عدة ملفات الي ملف واحد رئيسي ولكن احتاج بعض الاتي الكود لا يعمل الا اذا كانت الملفات مفتوحه ارجو تعديله ليقوم هو بفتح وغلق الملف بعد نسخ البيانات منه كذلك ان يتم اضافه اسم الملف بجوار البيانات التي تم نسخها من كل ملف الي الملف الرئيسي Sub compin_data() For i = 2 To 17 Workbooks(i).Activate Workbooks(i).Sheets("sheet1").Range("a1:b" & Cells(Rows.Count, "a").End(xlUp).Row).Copy Workbooks("book1.xlsm").Sheets("sheet1").Activate Workbooks("book1.xlsm").Sheets("sheet1").Range("a" & Rows.Count).End(xlUp).Rows.Offset(2, 0).Select Selection.PasteSpecial xlPasteValues Next i Application.CutCopyMode = False Workbooks("book1.xlsm").Sheets("sheet1").Activate End Sub

Private Sub Worksheet_Activate() Cells.Columns.Hidden = True Dim pas As String pas = InputBox("Enter password", "password") If pas = "123" Then Cells.Columns.Hidden = False MsgBox "WELCOME" Else MsgBox "GOOD BAY" End If End Sub هذا كود بسيط لاخفاء الصفحه وفتحها بكلمه سر طبعا لا يجارى اكواد اساتذة المنتدي العريق ولكنه اجتهاد تلميذ يتعلم من هذا المنتدي الجميل معذرة الكود لا يخفي الصفحه بل محتوياتها فقط

Private Sub Worksheet_Activate() Cells.Columns.Hidden = True Dim pas As String pas = InputBox("Enter password", "password") If pas = "123" Then Cells.Columns.Hidden = False MsgBox "WELCOME" Else MsgBox "GOOD BAY" End If End Sub يمكنك وضع هذا الكود فى حدث تفعيل الصفحه مباشرة فهو يقوم باخفاء جميع اعمدة الصفحه عند تنشيطها ويطلب ادخال كلمه مرور فاذا كانت صحيحه قام باظهار الاعمدة والا فانه يترك مخفيه كما هي

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

للرفع

للرفع

للرفع

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

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

السلام عليكم ورحمه الله وبركاته مرفق كود للاستاذ الفاضل العيدروس فى تجميع بيانات اعمدة محددة فى الصفحه الاجماليه والكود يعمل بشكل ممتاز فى الملف رقم 3 ولكن عند تغير مكان الاعمدة المحددة لم اتمكن من معرفه اين يمكن التعديل لكي يتماشي مع التعديل مرفق فى ملف 4 يرجى المساعدة فى ذلك والتوضيح ايضا اذا امكن فى مكان التعديل لتعم الفائدة وجزاكم الله كل خير وجزى الله الاستاذ العيدروس على ما قدمه من كود رائع خير الجزاء والحقيقه كل الاستاذة بالمنتدى يعجز الكلام عن شكرهم excel.rar