ابو تميم قام بنشر مارس 27, 2012 مشاركة قام بنشر مارس 27, 2012 تحياتي الحارة وتقديري لجميع أساتذتنا الكرام في المرفق ملفين اكسل على مجلد موجود على المسار d:\PRO الملف الأول ( الرئيسي ) موجود مباشرة في المجلد PRO أما الملف الثاني 1 موجود في المجلد الفرعي data وكما هو في المرفق المجلد PRO هو المجلد الرئيسي في المسار أعلاه المطلوب في الملف الرئيسي البيانات الأساسية وعندما أضغط على زر إظهار الملف يفتح الملف المحدد بنفس الرقم وهو هنا رقم 1 في الملف الذي تم فتحه رقم 1 والذي يحتوي على جدول يحتوي على جزء من بيانات الملف الرئيسي وهي كما في الجدول المبين في الملف رقم 1 والمطلوب هو جلب البيانات المطلوبة في الملف 1 من الملف الرئيسي حسب الجدول المحدد وعندما أقوم بالتغيير في البيانات الاساسية في الملف الرئيسي تتغير وتتعدل البيانات في الملف رقم 1 بالتزامن مع الملف الرئيسي علما أن الملف رقم 1 لا يفتح إلا إذا كان الملف الرئيسي مفتوح أي أنه هنا الملفين مفتوحين ولا يوجد ملف مغلق ولكم جزيل الشكر PRO.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 27, 2012 مشاركة قام بنشر مارس 27, 2012 السلام عليكم شرح واضح اخي ابو تميم ولكن لازم كلمة السر للملف1 رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر مارس 27, 2012 الكاتب مشاركة قام بنشر مارس 27, 2012 عذرا أخي نسيت إدراجها كلمة المرور 123 علما أن كلمة المرور موجودة في الملف الرئيسي في الكود المخصص للزر ( إظهار الملف ) من تجهيز الاستاذ محمد مصطفي رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر مارس 28, 2012 الكاتب مشاركة قام بنشر مارس 28, 2012 عذرا على الازعاج السؤال لا زال مفتوحا ولم أتمكن من إيجاد حل لكم جزيل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
محمد مصطفى ابو حمزة قام بنشر مارس 28, 2012 مشاركة قام بنشر مارس 28, 2012 جرب اخى ورد على ان كان هذا هو المطلوب PRO.rar رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر مارس 28, 2012 الكاتب مشاركة قام بنشر مارس 28, 2012 شكرا أخي ابو حمزه فعلا هذا المطلوب بالضبط أنا حاولت أن أعمل على دالة vlookup ولكن لا اعلم لماذا لم تعمل معي بشكل جيد وها أنت تعملها وهي تعمل بشكل ممتاز وكما هو مطلوب ولكن هل يمكن أن نطبق نفس هذه الطريقة أو غيرها بما ينفذ نفس العملية ولكن ليس بمعادلة بل بالأكواد وهنا للتسهيل أنا أرغب بتطبيقها على رقم 1 فقط لأن كل ورقة سيكون فيها رقم واحد فقط دون أن تشتمل الورقة على الجدول كاملا بل كل رقم في الجدول له ورقة مستقلة خاصة به. الهدف من ذلك أنني لا أريد أن يكون عندي معادلات في الخلايا لأن المعادلات يسهل حذفها بطريق الخطأ مع ملاحظة تطبيق الطريقة بالأكواد مع مراعاة أن الملف الرئيسي فس المسار المحدد سابقا d:\pro لكم جزيل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 للرفع رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 السلام عليكم اولا سوف نقوم بتسهيل عملية فتح الملف اضغط على اسم المجلد الموجود في العمود M تظهر لك شاشة تحدد منها موقع المجلد وبضغط موافق يتم ادراج كامل المسار في الخلية N1 ادخل اسم الملف في N2 ادخل نوع الملف في N3 ثم اضغط اظهار الملف يتم فتح الملف PRO.rar رابط هذا التعليق شارك More sharing options...
ابو تميم قام بنشر أبريل 2, 2012 الكاتب مشاركة قام بنشر أبريل 2, 2012 طريقة جميلة أخي احمد زمان ولكنها طويلة بعض الشيء إضافة إلى انها تحتوي على قيم داخل الخلايا يسهل حذفها الهدف من السؤال كان لتوفير الوقت ومنع حذف محتويات الخلية من المعادلات بطريق الخطأ وطريقة الأخ محمد مصطفى سريعة جدا ولكنها تحتوي على معادلات vlookup في الخلايا وأنا أريد تطبيق نفس الطريقة ولكن أريد تطبيقها بالأكواد وذلك لإلغاء المعادلات في الخلايا ويسهل حذفها بطريق الخطأ شكرا جزيلا أخي العزيز احمد زمان رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 ولكن أريد تطبيقها بالأكواد وذلك لإلغاء المعادلات في الخلايا ويسهل حذفها بطريق الخطأ شكرا جزيلا أخي العزيز احمد زمان بكرة ان شاء الله تلاقيها جاهزة رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 3, 2012 مشاركة قام بنشر أبريل 3, 2012 السلام عليكم اخي الفاضل Sub qwe() Dim WB1 As Workbook, WB2 As Workbook, SH1 As Worksheet, SH2 As Worksheet Dim C, Q, R Set WB1 = Workbooks(ThisWorkbook.Name) Set WB2 = Workbooks(WB1.Sheets(1).Range("C3").Text) Set SH1 = WB1.Sheets(1) Set SH2 = WB2.Sheets(1) er = SH1.UsedRange.Rows.Count Q = SH2.Range("a2").Value For R = 5 To er If SH1.Cells(R, 1) = Q Then For C = 1 To 5 SH2.Cells(2, C) = SH1.Cells(R, C) Next C Exit For End If Next R End Sub اضغط نقل البيانات رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر أبريل 3, 2012 مشاركة قام بنشر أبريل 3, 2012 السلام عليكم PRO.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان