ياسر خليل أبو البراء

أخي الحبيب أهلا ومرحبا بك في المنتدى بين إخوانك يرجى قراءة التوجيهات على الرابط http://www.officena.net/ib/index.php?s=795c26bea4b6f1eccf4d637a7a9858ce&showtopic=60147 ارفق ملفك ليساعدك الأخوة الأعضاء

جزاكم الله خيرا يا باشمهندس على الهدية الرائعة ومتحرمناش من هداياك

جزاكم الله خيراً أخي محيي الدين مشكور على مرورك العطر وكلماتك الرقيقة في حقي تقبل تحياتي

تفضل أخي الحبيب الملف المرفق.. التجميع سيكون من الشيتات 1 ، 2 ، 3 حسب ما فهمت .. الكود سيعمل مع الشيتات التي سوف تقوم بترقيمها بشرط تغيير طفيف في الكود .. في الحلفة التكرارية بدلا من 1 إلى 3 ، ستقوم بتغيير آخر رقم لآخر شيت تريد Sub CollectDataFromSheets() Dim I As Long, LR As Long Application.ScreenUpdating = False Sheets("شيت مجمع").Range("A3:H1000").ClearContents For I = 1 To 3 With Sheets("" & I & "") .Activate LR = .Cells(300, 2).End(xlUp).Row .Range("B5:H" & LR).Copy With Sheets("شيت مجمع") .Range("B" & .Cells(Rows.Count, 2).End(xlUp).Row + 1).PasteSpecial xlPasteValues .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1 & ":A" & .Cells(Rows.Count, 2).End(xlUp).Row) = Sheets("" & I & "").Name End With End With Next I Sheets("شيت مجمع").Activate: Range("A1").Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub تقبل تحياتي Collect Data From Sheets.rar

المنتدى مفيهوش عمالقة ..المنتدى فيه أخوة بيحاولوا يساعدوا بعضهم بما آتاهم الله ..كل على قدر استطاعته ...

أخي الحبيب أولا عنوان الموضوع مخالف راجع التوجيهات http://www.officena.net/ib/index.php?showtopic=60147 ثانيا يفضل دائما إرفاق ملف حتى لو كان الطلب بسيط ثالثا بالنسبة للخلايا التي بها معادلات فإنه يتم نسخ الخلية بالمرجع الجديد .. يعني لو معادلة جمع في العمود A في النطاق A1:A10 وجيت في الخلية A11 ووضعت معادلة جمع =Sum(A1:A10) لما تنسخ الخلية دي في مكان تاني هتتغير الخلايا المرجعية ..يعني لو نسخناها في العمود C مثلا ..المعادلة ستصبح =Sum(C1:C10) ممكن لو مش عايز تغير الخلايا المرجعية ممكن تضع علامة الدولار قبل اسم العمود أو رقم الصف المراد تثبيته

والأجمل مرورك العطر أخي محمد الخازمي . وفي انتظار إبداعاتكم (مش كله هات هات ..الدنيا خد وهات )

أخي الحبيب محمد فريد ممكن توضح فكرة الحصول على معادلة في حين أن الحصول على القيمة بدون معادلات برأي الإجماع في هذا التخصص أفضل بكثير .. الحصول على القيمة لا يرهق الجهاز في الحسابات المرتبطة بهذا النوع من المعادلات التي تعتبر ثقيلة في التعامل معها خصوصاً إذا كانت المعادلات كثيرة .. عموماً سأحاول أن أساعدك ولكن نفهم السبب ..لأنه إذا عرف السبب دا يريحني و يريح الأستاذ رجب ...

روعة أخي الحبيب طلعت بارك الله فيك وجزاك الله خيراً تقبل ودي واحترامي وتحياتي

تفضل أخي الفاضل المرفق التالي 2015.rar

كليك يمين على الخلية المراد نسخها ثم Copy .. في المكان الجديد ليك يمين Paste انتهى

أخي الحبيب غسان مجهود رائع تشكر عليه ..جزاكم الله خيرا تقبل تحياتي

المشاركة بتتكرر ليه .. عايزين حل من إدارة المنتدى للموقع فيه بعد أي مشاركة بتظهر رسالة فيها كلمة مسح ومشاركة مقتبسة !! عايزين نتخلص من هذا الـ Bug ممكن بالفيجوال بيسك تعملوا Debug :yes:

الأخ الفاضل محبوب أهلا بك في المنتدى بين إخوانك وفي أسرتك الأولى (مش التانية) نورت وإن شاء الله تستفيد وتفيد تقبل ودي وتحياتي

لا إحراج في التعلم أخي الحبيب مصطفى إحنا متولدناش عارفين كل حاجة ... واسأل ولا تحرج مهما كان السؤال بسيطاً ، فقد يكون بسيط عندي ولكنه مهم جداً ومفيد جداً لغيري ومتنساش تختار المشاركة كأبسط إجابة قصدي كأفضل إجابة تقبل تحياتي ..

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

الأخ الحبيب غسان بارك الله فيك وجزاك الله خيراً تسلم على المشاركة المفيدة والرائعة كلمة المرور 123 (خمنت ومن أول مرة صح ..بدون كسر)

أخي الحبيب الباشمهندس ياسر أحبك الله الذي أحببتني فيه جزيت خيراً على مرورك الكريم ومتنساش فيه اختبار على درس اليوم .. متنساش بكررها تاني وبقولك متنساش حااااااااااااااول ومتقولش معرفش

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

الأخ الفاضل مفتاح أهلا بك بين إخوانك بالمنتدى ، وإن شاء الله تكون مستفيد ومفيد راجع التوجيهات أولا http://www.officena.net/ib/index.php?showtopic=60147 إرفاق ملف يسهل على الأخوة مساعدتك ..قم بضغط الملف أولا المراد رفعه

الأخ الحبيب زيزو مشكور على مرورك العطر الأخ الغالي عادل أبو زيد فينك بقالك فترة مختفي ، لعله خير إليك الملف المرفق بتنسيق 2003 جزيتم خيراً إخواني الكرام على مروركم الكريم تقبلوا تحياتي SpecialCells Constants & Formulas.rar

ارفق ملفك أخي الفاضل http://www.officena.net/ib/index.php?showtopic=60147

هنيئاً لك أخي الحبيب بن عليه بهذا الكلام الرائع ايه ده يا أخ سعيد (شكلك شااااااااااعر كبير وإحنا مش واخدين بالنا) تقبل تحياتي

أخي الحبيب مصطفى أبو ملك الإكسيل يتعامل مع الأرقام والتواريخ على أنهم شيء واحد ..حيث أن التواريخ عبارة عن أرقام تسلسلية في الأصل فقط قم بتنسيق الخلية بالشكل المناسب ..كليك يمين ثم Format Cells واختر Date واختار تنسيق التاريخ كما تحب

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم اليوم درس في منتهى الأهمية ، لمن أراد أن يتعامل مع البيانات المختلفة في الفيجوال بيسك الدرس يتعامل مع SpecialCells مع الثوابت والمعادلات (وتوابع الثوابت والمعادلات : الأرقام - النصوص - القيم المنطقية - الأخطاء) مرفق لكم الملف الذي تم الشرح عليه كما يوجد بالمرفق ورقة عمل باسم Test .. هذا اختبار للتدريب على الدرس يرجى الاهتمام وعمل الاختبار وإرساله على الخاص وليس العام ، وسيتم اختيار الفائز ، وسيتم مناشدة الإدارة بترقية الفائز إن شاء الله (الكلام موجه للمشرف حماده عمر) وجوايز للشطار للشطار للشطار .. وهدايا للشطار للشطار للشطار وكل واحد فيكم على كيفوا يختار :gift2: ---------------- أترككم مع الفيديو ، ولا تنسوا اللايكات .. دا إذا كان الفيديو مفيد !! رابط الفيديو أتمنى أن تفيدوا قبل أن تستفيدوا ... دمتم على طاعة الله ............................ كان معكم أخوكم في الله أبو البراء تقبلوا تحياتي SpecialCells Constants & Formulas.rar