حمادة عمر

وبرجاء الاطلاع علي الرابط التالي لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع http://www.officena....showtopic=41520

السلام عليكم الاخ الكريم / ehab mamdouh بارك الله فيك شاهد المرفق .... ان شاء الله به طلبك كما تريد Copy of New Microsoft Excel Worksheet.rar

السلام عليكم الأخ الكريم تم تعديل العنوان طبقا لشروط المشاركة بالمنتدي ليكون العنوان معبرا عن السؤال حتي لا يتعرض موضوعك للإغلاق او الحذف برجاء مراجعة ذلك فيما بعد اما بخصوص ارفاق ملفات يجب ضغط الملف قبل رفعه للمنتدي بأحد برامج الضغط winrar - winzip علي سبيل المثال =============== الإدارة =============== تقبل خالص تحياتي

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

السلام عليكم الاخ الكريم / ابو يوسـف بارك الله فيك اسمك منور بالعربي ياراجل ... ايوه كده بالنسبة لهذا الطلب فعذرا لم اراه الا الآن اليك الكود التالي ... ولكن هناك بعض الملاحظات لطريقه عمله 1- قم بوضع اسماء ملفات المدارس الموجودة لديك والتي تريد تجميع بياناتها في ملف تجميع في العمود AA اسفل بعض والكود يعمل علي 110 ملف .... وان اردت زيادتهم ما عليك الا زيادة الرقم 110 في الكود الي الرقم الذي تريده 2- شاهد الملف وطريقه عمله واي شرح لاي جزء من الكود ... اخبرني ومعك دائما باذن الله 3- كما سبق ذكره يجب ان يكون ملف تجميع موجود في نفس فولدر المدارس 4- تم وضع مثال لعدد 5 مدارس من ملفاتك المرفقة Private Sub CommandButton1_Click() Dim I As Integer Dim File As String Dim LR As Long Set ws = Worksheets("ورقة1") Application.ScreenUpdating = False Application.DisplayAlerts = False '----------------------------- ws.Range("A11:Y10000").ClearContents For I = 1 To 110 If Cells(I, 27) = "" Then Exit For TextBox1.Value = Cells(I, 27).Value File = ActiveWorkbook.Path & "\" & TextBox1.Value Workbooks.Open File Sheets("اعمال سنة").Range("A11:Y1000").Copy '----------------------------- Windows("تجميع.xls").Activate ws.Select LR = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(LR, 1).Select ws.Paste Range("a11").Select Application.ScreenUpdating = True Application.DisplayAlerts = True Next I Unload Me End Sub ارجو ان يفي بطلبك ... جرب واشعرنا بالنتائج واهلا وسهلا بك بيننا وسط اخوه لك في الله ( بالعربي ) ... هههه تقبل خالص تحياتي تجميع بيانات المدارس.rar

السلام عليكم الاخ الحبيب / ابو اياد ( الاسيوطى ) بارك الله فيك دائما اعمالك تنم عن انك بالفعل محاسب من الدرجة الاولي .... ذكي جدا بالفعل ملف فوق الرووعة والامتياز رحم الله والدتك رحمه واسعة واسكنها فسيح جناته وجمعها مع النبيين والصديقين اللهم آمين .... آمين .... آمين تقبل خالص تحياتي

مرور طيب وكريم من اخ كريم تقبل خالص تحياتي اخي الكريم / رائد

بالنسبة لتحديد شيت اعمال السنة اخي الكريم استبدل السطر التالي الموجود في الكود Range("A11:Y1000").Copy بهذا السطر .... لتحديد شيت ( اعمال سنة ) Sheets("اعمال سنة").Range("A11:Y1000").Copy وعذرا ع التأخر في الرد ... نظرا لانشغالي في العمل تقبل خالص تحياتي

السلام عليكم الاخوة والاساتذة الكرام بارك الله فيكم بوجود هذه الروح الراائعة بيننا احببت ان اتشارك معكم الموضوع ولو بمعلومة بسيطة ... بعد الحلول الراائعة لكم الاستاذ / بن علية حاجي الفاضلة / أم عبد الله الاستاذ / محمد أبو البراء جزاكم الله خيرا ولاثراء الموضوع .... شاهد اخي الرابط التالي مطلوب كود يقوم بعمل قائمة بأسماء الشيتات وربطها للتنقل منها ؟؟ http://www.officena.net/ib/index.php?showtopic=46759&hl=%2B%D8%A7%D9%84%D8%A7%D8%B1%D8%AA%D8%A8%D8%A7%D8%B7+%2B%D8%A7%D9%84%D8%AA%D8%B4%D8%B9%D8%A8%D9%8A تقبلوا خالص تحياتي كود للتنقل بين الصفحات ارتباط تشعبي.rar

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

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

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

ولاثراء الموضوع وبعد رد استاذي الحبيب / أبو حنين ... جزاه الله خيرا اشارك بهذا الملف ( موجود في مكتبتي من فترة قديمة ... ولا اتذكر الآن صاحب الملف ) يقوم الكود بتسجيل اسم المستخدم في العمود B اذا تم التسجيل في العمود A ارجو ان يستفاد منه تقبلوا خالص تحياتي تسجيل اسم مستخدم الويندوز في خلية في حالة تغير خلية اخري11.rar

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

تم تعديل العنوان ليتناسب مع شروط المشاركة بالمنتدي برجاء ملاحظة ذلك فيما بعد =========== الادارة =========== قواعد المشاركة فى الموقعاضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

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

واليك الرابط التالي به شرح فيديو لطريقة رفع الملفات للمنتدي ( فيديو ) بعد الضغط كما ذكر اخي الحبيب / وليد http://www.officena.net/ib/index.php?showtopic=44625

وبرجاء الاطلاع علي الرابط التالي لتغيير الاسم الي العربية ( طبقا لسياسة وشروط المنتدي ) ولزيادة التواصل .... برجاء الاطلاع علي الموضوع http://www.officena....showtopic=41520

السلام عليكم الاخ الكريم / baselnagar بارك الله فيك علي حسب فهمي لطلبك ... انك تريد تجميع البيانات الموجودة في ملفات المدارس من الكشوف في كشف واحد اسفل بعض في ملف تجميع وان كان كذلك ... شاهد المرفق التالي ( ولكن تم التنفيذ علي مدرستين فقط كمثال (( الحرية 1 - الحرية 2 )) حاولت تقديم ابسط كود ممكن لتنفيذ الفكرة ليمكن التعديل عليه بسهوله ... ارجو ان يتناسب مع طلبك قم بفتح ملف ( تجميع ) ثم اضغط علي زر ( تجميع البيانات ) وشاهد النتيجة ** ملحوظة : يجب ان يكون ملف تجميع في نفس الفولدر مع المدارس كما هو مرفق بالمرفقات تقبل خالص تحياتي شاهد المرفق المدارس.rar

تم تعديل العنوان ليتناسب مع شروط المشاركة بالمنتدي برجاء ملاحظة ذلك فيما بعد =========== الادارة =========== قواعد المشاركة فى الموقعاضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

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

بارك الله فيك اخي الحبيب / وليد فتحي تقبل خالص تحياتي

السلام عليكم الاخ الحبيب / سليم حاصبيا بارك الله فيك بالفعل معادلة ذكية جدا وراائعة تقدم سلسلة للمعادلات والطرق اكثر من راائعة ولي ملاحظة علي الملف ... برجاء مراجعة الدالة في الخلية C10 وهي ليست خطأ في تركيب المعادلة ولكن فقط في السحب لاسفل حتي يستفيد منها اكبر قدر من الاخوة لمن يحتاج مثل هذه الطريقة للجمع تقبل خالص تحياتي