استخراج مجموعة من البيانات من عدة جداول

[hantish]

 السلام عليكم ورحمة الله ،، اساتذتي وزملائي محتاج منكم مساعدة اذا تكرمتم .. عندي ملف اكسل يوجد به عدد من الشيتات كل شيت يحتوي على كشف حساب عميل وتفاصيله ويوجد شيت به الاجمالي .. سؤالي هل اقدر اسحب الداتا من اي شيت في وقت واحد مثل( اجمالي العقود - اجمالي المسدد - اجمالي المتبقى) وهكذا .. شكرا لكم 

تقرير.xlsx

[ابراهيم الحداد]

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

استخدم الكود التالى

Sub GetData()
Dim ws As Worksheet, Sh As Worksheet
Dim C As Range, x As Long, Data
Set ws = Sheets("اجمالي")
x = 14
For Each C In ws.Range("D3:D" & ws.Range("D" & _
Rows.Count).End(3).Row)
For Each Sh In Worksheets
If Sh.Name <> ws.Name And Sh.Name = C.Value Then
x = WorksheetFunction.CountA(Sh.Range("B14:B" & _
Sh.Range("B" & Rows.Count).End(3).Row)) + 12
C.Offset(0, 1) = Sh.Range("J7")
C.Offset(0, 2) = Sh.Range("C" & x)
C.Offset(0, 3) = Sh.Range("C" & x + 1)
C.Offset(0, 4) = Sh.Range("J" & x)
C.Offset(0, 5) = Sh.Range("J" & x + 1)
End If
Next
Next
End Sub

 

[hantish]

السلام عليكم استاذي .. معلش اعذرني مافهمت قصدك ازاي استخدم الكود ؟؟

[ابراهيم الحداد]

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

مرسل اليك الملف بعد ادراج الكود الموجود بمشاركتى السابقة و سترى النتيجة بنفسك

فقط اضغط على الزر الموجود بورقة الاجمالى

تقرير.xlsm

[hantish]

السلام عليكم ورحمة الله .. استاذي اسف جدا على ازعاج حضرتك .. ولكن ظهر لي هذا الخطأ فما الحل ؟

[ابراهيم الحداد]

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

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

يبدو انك قمت بمسح اسم الملف دون قصد

على العموم 

استبدل العبارة التى باللون الاصفر و التى تدل على الخطأ بهذه العبارة

Set ws = Sheets("اجمالي")

 

[hantish]

تظهر لي هذه الرسالة مرة اخرى

[حسونة حسين]

اخى ظبط اعدادات الويندوز كما في في هذا الرابط

مشكلة اللغه العربية

 

[hantish]

السلام عليكم ورحمة الله.. استاذ ابراهيم واستاذ حسونة والله مش عارف اشكركم ازاي الف شكر وجزاكم الله كل خير وجعله في ميزان حسناتكم .. واعذروني عندي سوال اخير .. لو ضيفت كذا شيت تاني بجانب الشيتات الموجودة هل هحتاج اعدل الكود ولا لا ؟

[حسونة حسين]

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

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

وجزاكم مثله اخى الكريم 

[hantish]

شكرا لحضرتك وجزاك الله كل خير