جمع بيانات من عدة شيتات

[وليد المصرى 1]

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

ارجو من الاخوة الاعضاء المساعدة فى الملف المرفق المطلوب

هوالجمع جمع ارقام من جدوال من جميع الشيتات الى جدول شيت ( MAIN )

اشكركم

POR.rar

[عبدالله المجرب]

ضع هذا الكود في زر أمر في الشيت

( MAIN )

Sub Abu_Ahmed_Count()

Dim cl As Range, cel As Range

For Each cel In Range("A10:A" & [A1000].End(xlUp).Row - 1)

For i = 1 To Sheets.Count - 1

For Each cl In Sheets(i).Range("B1:B" & Sheets(i).[B1000].End(xlUp).Row)

If cel = cl Then

x = x + cl.Offset(0, 1)

Y = Y + cl.Offset(0, 2)

End If

Next

w = w + x

Z = Z + Y

cel.Offset(0, 1) = w

cel.Offset(0, 2) = Z

x = 0

Y = 0

Next

w = 0

Z = 0

Next

End Sub

[عبدالله باقشير]

السلام عليكم

الشكر واصل لاخي عبد الله المجرب حفظه الله

ولائراء الموضوع :

ممكن استخدام الغرض Consolidate

وهو متعدد الاستخدامات

xlAverage default.

xlCount

xlCountNums

xlMax

xlMin

xlProduct

xlStDev

xlStDevP

xlSum

xlVar

xlVarP

Sub kh_()

    Dim cAry(1 To 12) As String

    Dim i As Integer

    For i = 1 To 12

        cAry(i) = "'" & Sheets(i).Name & "'!" & Range("C5:D22").Address(ReferenceStyle:=xlR1C1)

    Next

    Range("B10:C10").Consolidate cAry, xlSum

End Sub

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

[عبدالله المجرب]

الاستاذ الفاضل عبدالله باقشير

هذه الاكواد اعلى مما نعرفه ونطمع في شرح هذه الخاصية

[رجب جاويش]

بعد إذن أستاذ الإبداع / الأستاذ عبد الله باقشير

بعد إذن المبدع / الأستاذ عبد الله المجرب

هذه فكره أخرى من تلميذ لكم أرجو أن تلقى القبول

Sub ragab()

	Range("B10:C27").FormulaR1C1 = "=SUM('jan 12:des 12'!R[-5]C[1])"

End Sub]

جمع من عدة شيتات.rar

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل رجب جاويش حفظك الله

رغم أنني لاأفقه بالاكواد ولكني أظنها و الله وأعلم قفزة إحترافية كبيرة.

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

الدعاء موصول للاساتذة عبد الله باقشير وعبد الله المجرب.

أبو أنس

[رجب جاويش]

الأخ الكريم الفاضل / أبو أنس الحاجب

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

وجعل الله لك من دعائك بمثله وأكثر

أخوك / رجب جاويش

[وليد المصرى 1]

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

ولكن اذا كان هناك فى الجداول من jan12 الى dec 12 معادلات

جربت الكود على شغلى ولكن لا فائدة لان فى الجداول معادلات لا يعطينى جمع فى شيت MAIN

هل يوجد حل

اشكركم جميعا

[رجب جاويش]

أخى الفاضل

وجود المعادلات فى الجداول من jan 12 الى dec 12 لا يؤثر على عمل الكود

أرجو ارفاق ملف يوجد به ما تقصده

[وليد المصرى 1]

اشكرك اخى لردك السريع

المعادلة هى

Sub ragab()

Range("B10:C27").FormulaR1C1 = "=SUM('1:12'!R[-1]C[1])"

End Sub

المطلوب فى ملف شغلى

الجداول تبدأ من c502 و d502 اذا امكن التعديل على الكود

[رجب جاويش]

أخى أرفق ملف للعمل عليه

[وليد المصرى 1]

هذا هو المرفق كمثال لعملى

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

جمع من عدة شيتات.rar

[رجب جاويش]

تفضل أخى

جمع من عدة شيتات.rar

[وليد المصرى 1]

جزاك الله خير يا اخى الف شكر

[مروان الجبالى]

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