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

بارك الله فيك أخي محمد الخازمي وجزيت خيراً تسجيل الماكرو ينتج عنه أسطر كثيرة جداً لا داعي لها ------------------------------------------------- جرب الكود بالشكل التالي .. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = 0 With Selection .ColumnWidth = 15 .RowHeight = 20.5 .Interior.ColorIndex = 3 .Font.Name = "Monotype Koufi" .Font.Size = 12 .Font.Bold = True .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .BorderAround ColorIndex:=xlAutomatic, Weight:=xlMedium End With End Sub تقبل تحياتي

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

جرب الملف التالي أخي الفاضل Sub SumWorkbooks() Dim SummarySheet As Worksheet Dim FolderPath As String Dim FileName As String Dim WorkBk As Workbook Dim I As Long Dim X As Long X = 3 Set SummarySheet = ThisWorkbook.Worksheets("Sheet1") FolderPath = ThisWorkbook.Path & "\Test\" FileName = Dir(FolderPath & "*.xl*") Application.ScreenUpdating = False SummarySheet.Range("A3:B1000").ClearContents Do While FileName <> "" Set WorkBk = Workbooks.Open(FolderPath & FileName) For I = 3 To 7 SummarySheet.Range("A" & X) = SummarySheet.Range("A" & X) + Cells(I, "A").Value SummarySheet.Range("B" & X) = SummarySheet.Range("B" & X) + Cells(I, "B").Value X = X + 1 Next I X = 3 WorkBk.Close savechanges:=False FileName = Dir() Loop Range("A1").Select Application.ScreenUpdating = True End Sub Sum Workbooks V2.rar

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

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

أخي الفاضل جرب الملف التالي .. يتم وضع الملفات المراد جمع قيمها في مجلد باسم Test في نفس مسار المصنف .. قم بالنقر على Run لتنفيذ الكود .. Sum Workbooks By YasserKhalil.rar

أخي الغالي علاء رسلان جرب الملف التالي عله يفي بالغرض Dynamic SUMIF.rar

ما هو شرط تغير لون الخلية؟

بارك الله فيك أخي الغالي خالد على مثابرتك معي جربت المشاركة رقم 31 خطوة خطوة وتمت الخطوات بشكل جيد إلى الخطوة المفترض فيها إضافة Reference المسمى Microsoft Windows Common Controls 2-6.0 (SP6 فلم أجد هذا المرجع ...!! قمت بالعودة إلى المشاركة الأولى وأضفت Additional Controls التي أشرت إليها من قبل في مجموعة 3 صور .. فوجدتها وأضفتها وحفظت الملف وأعدت فتحه فلم تظهر الرسالة الأولى ولكن ظهرت رسالة خطأ أثناء تشغيل الفورم Method or data member not found

أخي الفاضل لكي يعمل الكود بشكل صحيح يفترض أن تكون الجداول متطابقة تماما في العناوين وفي عدد الأعمدة وأن تكون متجاورة بدون أعمدة تفصل بين كل جدول والآخر كما في المثال الذي أرفقته.. والعناوين تكون كما عدلتها في المرفق رقم 5 لو حدثت مشكلة يرجى إرفاق الملف الأصلي الذي يحتوي على الـ 500 جدول للإطلاع عليه

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

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

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

أخي الغالي علاء رسلان لم أفهم المطلوب بشكل جيد .. هل يمكنك طرح مثال أو نتيجة متوقعة لندرك الأمر .. ولما تريدأن تكون البيانات أفقية ورأسية في نفس الوقت؟

أخي الحبيب ياسر الشيخ جرب الملف التالي وإن شاء الله يفي بالغرض Unique Sorted Combox On UserForm.rar

أخي الفاضل أحمد المعادلة لا تني شيئاً بدون ملف مرفق ..

الأخ الحبيب الغالي أحمد فضيلة اللي مطنشنا ومش معبرنا ومش متواجد معانا بشكل دائم .. مشكور على مرروك الكريم وأتمنى تواجدك معنا بشكل دااااااااااائم

طلبك مبهم إلى حد ما .. يرجى وضع الجداول كلها والإشارة للمدى المراد تجميع قيمه . هل الجدول في ورقة 2 يمثل كل الشهور أي أنه يمثل الجدول الذي تريد التجميع منه أم أن هناك جداول أخرى ؟؟ وأين تريد ظهور قيم التجميع ؟؟

الأخ الفاضل جواد أهلا ومرحبا بك في المنتدى ونورت المنتدى بين إخوانك ببساطة روح لورقة العمل 2 في الخلية B2 وحددها واكتب من لوحة المفاتيح علامة يساوي عشان تربط الخلية دي بالخلية اللي في ورقة 1 ، علامة يساوي وروح لورقة 1 بعد ما تكتب علامة يساوي وحدد الخلية A1 بالنقر عليها مرة واحدة ، هتلاقي إن المعادلة اتكتبت ..اضغط إنتر من لوحة المفاتيح لتأكيد المعادلة جرب تدخل أي قيمة في الخلية A1 في الورقة 1 وروح لورقة العمل 2 وشوف النتيجة ..هتلاقي طلبك تم إن شاء الله

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

أخي الحبيب ضاحي الغريب مشاركة ومباركة متميزة من شخص متميز .. جزيت خيراً أخي وأستاذي ضاحي تقبل ودي وحبي واحترامي وتحياتي

يرجى إرفاق ملف وتوضيح المسألة لكي تجد المساعدة من الأخوة الأعضاء

الأخ الحبيب عبدو الأخ الحبيب مهند الزيدي بارك الله فيكما وجزاكما الله خير الجزاء وعقبالكم إن شاء الله

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

الأخ الفاضل عبد العزيز جرب الملف التالي الملف.rar