أبو العقاب قام بنشر يناير 18, 2013 مشاركة قام بنشر يناير 18, 2013 السلام عليكم أخواني الكرام لدي ملفان book1 ,book2 الملف book1 فيه مجموع بيانات والمجموع في الخلية d7 في ورقة2 سؤالي هو كيف أصل من book2 إلى الخلية d7 في ورقة2 من ملف book1 ولتظهر في الخلية a1 مثلا في ورقة1 في الملف book2 وان تغير المجموع في الخلية d7 من ملف book1 تتغير الخلية a1 من الملف book2 أي أن a1 من ملف book2 هي نفسها d7 من ملف book1 فهل هذا ممكن ؟؟؟ آمل أن يكون مرادي واضحا المرفق بين أيديكم Desktop.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يناير 18, 2013 مشاركة قام بنشر يناير 18, 2013 تفضل أخى Desktop.rar رابط هذا التعليق شارك More sharing options...
أبو العقاب قام بنشر يناير 18, 2013 الكاتب مشاركة قام بنشر يناير 18, 2013 (معدل) بارك الله بك أخ رجب كود رائع لك كل تحية ولكن ولو اني ثقلت عليك هل يمكن اجراء التعديل السابق لاستيراد مجموعة بيانات لو تكرمت أخي الكريم تم تعديل يناير 18, 2013 بواسطه أبو العقاب رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 18, 2013 مشاركة قام بنشر يناير 18, 2013 الاستاذ / رجب جاويش دائما كبير .... انت كبير استاذي كودك رائع وسهل وجميل جداً للمبتدئين امثالي استاذي الكبير وبعد اذن الاستاذ / رجب جاويش واحب أن اضيف اضافة صغيرة للتسهيل ليس الا علي الملف المرسل من سيادتكم بنفس الكود وهي وضع الكود في حدث ThisWorkbook وذلك ليعمل كود الكبير الاستاذ / رجب جاويش تلقائياً عند فتح الملف book2 دون الحاجة لكي يتم الضغط علي الزر ( استيراد بيانات ) الكود Private Sub Workbook_Open() Call get_data End Sub رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يناير 18, 2013 مشاركة قام بنشر يناير 18, 2013 أخى الفاضل / حمادة عمر اضافة رائعة من شخص رائع تسلم ايديك وجزاك الله كل خير على هذه الكلمات الطيبة رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يناير 18, 2013 مشاركة قام بنشر يناير 18, 2013 أخى الفاضل / أبو العقاب نعم يمكن التعديل كما تريد أرفق البيانات التى تريدها وان شاء الله يتم عمل المطلوب رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر يناير 18, 2013 مشاركة قام بنشر يناير 18, 2013 السلام عليكم الاستاذ الكبير / رجب جاويش هذا اقل ما تستحقه استاذنا فأنت كبير لدينا جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
أبو العقاب قام بنشر يناير 18, 2013 الكاتب مشاركة قام بنشر يناير 18, 2013 أستاذ رجب تفضل المطلوب نقل المجاميع من الخلايا d7 في الملفات book1,book2,book3 وكلها في ورقة2 إلى الخلايا a1,a2,a3 في الملف book في الورقة 1 تفضل... Desktop.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يناير 18, 2013 مشاركة قام بنشر يناير 18, 2013 تفضل أخى 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 رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر يناير 18, 2013 مشاركة قام بنشر يناير 18, 2013 بعد إذن أستاذى ( رجب جاويش ) هذا حل أخر بالمعادلات لعله يفيد Desktop_3.rar رابط هذا التعليق شارك More sharing options...
عمرو رحيل قام بنشر يناير 18, 2013 مشاركة قام بنشر يناير 18, 2013 بعد اذن جميع الأساتذة الأفاضل هل المرفق التالى يحقق المطلوب ام اننى فهمت خطأ وشكرا لكم جميعا Desktop4.rar رابط هذا التعليق شارك More sharing options...
أبو العقاب قام بنشر يناير 18, 2013 الكاتب مشاركة قام بنشر يناير 18, 2013 (معدل) الأخوة الكرام رجب ومحمود وعمرو بارك الله بكم جميعا وجزاكم الله كل خير ولكن أخ رجب لو غيرنا الكود من (Resize(1, 3 إلى (Resize(3, 1 هل تظهر المجاميع في الملف book على شكل أعمدة a1,a2,a3 بدل a1,b1.c1 تم تعديل يناير 18, 2013 بواسطه أبو العقاب رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر يناير 19, 2013 مشاركة قام بنشر يناير 19, 2013 أخى الفاضل سيكون هذا السطر كالآتى : Range("A1").Resize(3) = Application.WorksheetFunction.Transpose(Split(arr, ",")) رابط هذا التعليق شارك More sharing options...
أبو العقاب قام بنشر يناير 19, 2013 الكاتب مشاركة قام بنشر يناير 19, 2013 أستاذ رجب بارك الله بك وجعل الله هذا العمل في ميزان حسناتك أشكرك شكرا جزيلا وكذلك أشكر الأخوة mahmoud-lee عمرو رحيل حمادة عمر على مرورهم وبارك الله بالجميع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.