هل هذا ممكن: ان تغير المجموع في الخلية d7 من ملف book1 تتغير الخلية a1 من الملف book2

[أبو العقاب]

السلام عليكم أخواني الكرام

لدي ملفان book1 ,book2

الملف book1 فيه مجموع بيانات والمجموع في الخلية d7 في ورقة2

سؤالي هو كيف أصل من book2 إلى الخلية d7 في ورقة2 من ملف book1

ولتظهر في الخلية a1 مثلا في ورقة1 في الملف book2

وان تغير المجموع في الخلية d7 من ملف book1 تتغير الخلية a1 من الملف book2

أي أن a1 من ملف book2 هي نفسها d7 من ملف book1

فهل هذا ممكن ؟؟؟

آمل أن يكون مرادي واضحا

المرفق بين أيديكم

Desktop.rar

[رجب جاويش]

تفضل أخى

Desktop.rar

[أبو العقاب]

بارك الله بك أخ رجب

كود رائع

لك كل تحية

ولكن ولو اني ثقلت عليك

هل يمكن اجراء التعديل السابق لاستيراد مجموعة بيانات لو تكرمت أخي الكريم

تم تعديل يناير 18, 2013 بواسطه أبو العقاب

[حمادة عمر]

الاستاذ / رجب جاويش

دائما كبير .... انت كبير استاذي

كودك رائع وسهل وجميل جداً للمبتدئين امثالي استاذي الكبير

وبعد اذن الاستاذ / رجب جاويش

واحب أن اضيف اضافة صغيرة للتسهيل ليس الا علي الملف المرسل من سيادتكم بنفس الكود وهي وضع الكود في حدث ThisWorkbook

وذلك ليعمل كود الكبير الاستاذ / رجب جاويش تلقائياً عند فتح الملف book2 دون الحاجة لكي يتم الضغط علي الزر ( استيراد بيانات )

الكود

Private Sub Workbook_Open()

Call get_data

End Sub

[رجب جاويش]

أخى الفاضل / حمادة عمر

اضافة رائعة من شخص رائع

تسلم ايديك

وجزاك الله كل خير على هذه الكلمات الطيبة

[رجب جاويش]

أخى الفاضل / أبو العقاب

نعم يمكن التعديل كما تريد

أرفق البيانات التى تريدها وان شاء الله يتم عمل المطلوب

[حمادة عمر]

السلام عليكم

الاستاذ الكبير / رجب جاويش

هذا اقل ما تستحقه استاذنا فأنت كبير لدينا

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

[أبو العقاب]

أستاذ رجب

تفضل

المطلوب نقل المجاميع من الخلايا d7 في الملفات book1,book2,book3 وكلها في ورقة2

إلى الخلايا a1,a2,a3 في الملف book في الورقة 1

تفضل...

Desktop.rar

[رجب جاويش]

تفضل أخى

Sub ragab()

Dim cl As Range

Dim ws As Worksheet

Application.ScreenUpdating = False

On Error Resume Next

y = ActiveWorkbook.Name

For T = 1 To 3

x = ActiveWorkbook.Path & "\" & "Book" & T & ".xls"

Workbooks.Open Filename:=x

arr = arr & Sheets("ورقة2").Range("D7").Value & ","

Workbooks("Book" & T).Save

Activewindow.Close

Next

Range("A1").Resize(1, 3) = Split(arr, ",")

Application.ScreenUpdating = True

End Sub

Desktop_2.rar

[جمال عبد السميع]

بعد إذن أستاذى ( رجب جاويش ) هذا حل أخر بالمعادلات لعله يفيد

Desktop_3.rar

[عمرو رحيل]

بعد اذن جميع الأساتذة الأفاضل

هل المرفق التالى يحقق المطلوب ام اننى فهمت خطأ

وشكرا لكم جميعا

Desktop4.rar

[أبو العقاب]

الأخوة الكرام رجب ومحمود وعمرو

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

ولكن أخ رجب لو غيرنا الكود من (Resize(1, 3 إلى (Resize(3, 1 هل تظهر المجاميع في الملف book على شكل أعمدة

a1,a2,a3

بدل a1,b1.c1

تم تعديل يناير 18, 2013 بواسطه أبو العقاب

[رجب جاويش]

أخى الفاضل

سيكون هذا السطر كالآتى :

Range("A1").Resize(3) = Application.WorksheetFunction.Transpose(Split(arr, ","))

[أبو العقاب]

أستاذ رجب

بارك الله بك وجعل الله هذا العمل في ميزان حسناتك

أشكرك شكرا جزيلا

وكذلك أشكر الأخوة

mahmoud-lee

عمرو رحيل

حمادة عمر

على مرورهم وبارك الله بالجميع