تجميع بيانات من جداول إلى جدول رئيسي

[سك بابك]

المطلوب تجميع البيانات من جداول بأوراق مختلفة لتظهر في جدول آخر بورقة اخرى على حسب الترتيب

الملف المرفق يوضح المطلوب وهو ترتيب الاشخاص على حسب اجازاتهم

فمثلا

1- الأشخاص الذين حصلوا على اجازة "Leave"

2- الأشخاص الذين حصلوا على إجازة "Sick Leav"

3- الأشخاص الذين لديهم "Cours"

4- الأشخاص الذين لديهم "Excuse" ... وهكذا ....

Book1.rar

[يحيى حسين]

السلام عليكم و رحمة الله

أخي جرب هذا الكود لتجميع الأوراق

Sub FromAllSheets()

Dim ws As Worksheet, Dws As Worksheet, LR As Long

Set Dws = Sheets("Form")

For Each ws In Sheets

    If ws.Name <> "Form" Then

    LR = Dws.Range("D" & Rows.Count).End(xlUp).Row + 1

	    ws.Range("A2:C" & ws.Range("b" & Rows.Count).End(xlUp).Row).Copy

	    Dws.Range("b" & LR).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False

    End If

Next ws

Application.CutCopyMode = False

Dws.Range("B" & LR).Select

End Sub

ثم قم بعملية تسجيل ماكرو لعملية فرز مخصص (لان الفرز المخصص سيعتمد على ترتيب البيانات في جهازك الشخصي )

دمت في حفظ الله

[سك بابك]

السلام عليكم ورحمة الله وبركاته

جميل هذا الابداع أخي يحي بارك الله فيك

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

فلماذا لا يتم مسح البيانات السابقة أولا ثم ادراج البيانات الجديده ..

طلب اخير بارك الله فيك ... هل يمكن عمل هذا الكود بدون زر أمر ... أي أن يتم الأمر تلقائيا في حال وجود بيانات حديثه .. ؟؟

جزاك الله خير ... وبانتظاتر ردك

[يحيى حسين]

السلام عليكم و رحمة الله

قم بإضافة السطر التالي

Dws.Range("b2:d100").ClearContents

[سك بابك]

شكرا لك اخوي يحي ونفعك الله بك

واجهتني مشكلة اخرى ....

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

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

طلب أخير الاستاذ يحي ....

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

وجزاك الله خير على عطائك وصبرك

[يحيى حسين]

السلام عليكم و رحمة الله

أخي جرب هذا الكود

Sub FromAllSheets()

Dim ws As Worksheet, Dws As Worksheet, LR As Long

Set Dws = Sheets("Form")

For Each ws In Sheets

    If ws.Name <> "Form" Then

    LR = Dws.Range("D" & Rows.Count).End(xlUp).Row + 1

    If WorksheetFunction.CountA(ws.Range("b2:b" & LR)) <> 0 Then

		    ws.Range("A2:C" & ws.Range("b" & Rows.Count).End(xlUp).Row).Copy

		    Dws.Range("b" & LR).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False

    End If

    End If

Next ws

Application.CutCopyMode = False

Dws.Range("B" & LR).Select

End Sub

[سك بابك]

وعليكم السلام ورحمة الله وبركاته

جزاك الله خير اخي الحبيب واستاذي يحي حسين

نعم هو المطلوب وجزاك الله خيرا

ولكن إن أمكن .. هل يمكن تطبيق ذلك تلقائيا .... بدون زر أمر لتنفيذ الماكرو ..

وخصوصا عند فتح الملف ... وهل سيختلف الكود في حال لو كانت التجميع من ملفات خارجية وليست أوراق ؟؟؟

لك فائق مودتي وبانتظار ردك

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

تم تعديل ديسمبر 5, 2011 بواسطه سك بابك

[يحيى حسين]

السلام عليكم و رحمة الله

أخي يمكنك وضع الكود في حدث فتح الملف ليعمل عند كل عملية فتح للملف

إذا كان التجميع من صفحات خارجية سيكون الوضع مختلف نوعاً ما

[سك بابك]

السلام عليكم و رحمة الله

أخي يمكنك وضع الكود في حدث فتح الملف ليعمل عند كل عملية فتح للملف

إذا كان التجميع من صفحات خارجية سيكون الوضع مختلف نوعاً ما

عليكم السلام ورحمة الله وبركاته

الله يجزاك الجنه على حسن اخلاقك وجميل علمك

رفعك الله بهما الدرجات العلى في الدنيا والاخرة

اخي واستاذي إن أمكن ... وأكون ممتنا لك .. بعد منة الله وفضله علينا جميعا

الطريقة الاخرى لكتابة الكود في حال كانت البيانات من ملفات خارجية وليست بنفس الملف

وجزاك الله كل خير ونفع بعلمك

[يحيى حسين]

السلام عليكم و رحمة الله

أخي شاهد هذا الرابط به فكرة تجميع من عدة ملفات

http://www.officena.net/ib/index.php?showtopic=39563

دمت في حفظ الله

[سك بابك]

السلام عليكم و رحمة الله

أخي شاهد هذا الرابط به فكرة تجميع من عدة ملفات

http://www.officena....showtopic=39563

دمت في حفظ الله

عليكم السلام ورحمة الله وبركاته

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

فإن امكن بارك الله شرح ذلك أكون لك من الشاكرين

وإلا فجزاك الله خير الجزاء على ما قدمته ولك مني وافر التقدير والاحترام

بارك الله فيك

تم تعديل ديسمبر 6, 2011 بواسطه سك بابك

[سك بابك]

السلام عليكم ورحمة الله وبركاته

الاستاذ يحي حسين اسعد الله اوقاتك بكل خير

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

( اسم السيرفر Home ) والملفات موجودة على مجلدات متفرقة كل مجلد بنفس اسم الملف.

أكون لك ممتناً إن ساعدتني بذلك ... وأرفقت لك الملفات المطلوب بارك الله فيك

Home.rar

[سك بابك]

بانتظار الرد من الاخوة العباقرة