ترحيل البيانات بين ملفي اكسل محدد المسار

[ابو تميم]

تحياتي الحارة وتقديري لجميع أساتذتنا الكرام

في المرفق ملفين اكسل على مجلد موجود على المسار d:\PRO

الملف الأول ( الرئيسي ) موجود مباشرة في المجلد PRO أما الملف الثاني 1 موجود في المجلد الفرعي data

وكما هو في المرفق المجلد PRO هو المجلد الرئيسي في المسار أعلاه

المطلوب

في الملف الرئيسي البيانات الأساسية وعندما أضغط على زر إظهار الملف يفتح الملف المحدد بنفس الرقم وهو هنا رقم 1

في الملف الذي تم فتحه رقم 1 والذي يحتوي على جدول يحتوي على جزء من بيانات الملف الرئيسي وهي كما في الجدول المبين في الملف رقم 1

والمطلوب هو جلب البيانات المطلوبة في الملف 1 من الملف الرئيسي حسب الجدول المحدد وعندما أقوم بالتغيير في البيانات الاساسية في الملف الرئيسي تتغير وتتعدل البيانات في الملف رقم 1 بالتزامن مع الملف الرئيسي

علما أن الملف رقم 1 لا يفتح إلا إذا كان الملف الرئيسي مفتوح أي أنه هنا الملفين مفتوحين ولا يوجد ملف مغلق

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

PRO.rar

[احمدزمان]

السلام عليكم

شرح واضح اخي ابو تميم

ولكن لازم كلمة السر للملف1

[ابو تميم]

عذرا أخي نسيت إدراجها

كلمة المرور

123

علما أن كلمة المرور موجودة في الملف الرئيسي في الكود المخصص للزر ( إظهار الملف ) من تجهيز الاستاذ محمد مصطفي

[ابو تميم]

عذرا على الازعاج

السؤال لا زال مفتوحا ولم أتمكن من إيجاد حل

لكم جزيل الشكر والتقدير

[محمد مصطفى ابو حمزة]

جرب اخى ورد على ان كان هذا هو المطلوب

PRO.rar

[ابو تميم]

شكرا أخي ابو حمزه

فعلا هذا المطلوب بالضبط

أنا حاولت أن أعمل على دالة vlookup ولكن لا اعلم لماذا لم تعمل معي بشكل جيد وها أنت تعملها وهي تعمل بشكل ممتاز وكما هو مطلوب

ولكن هل يمكن أن نطبق نفس هذه الطريقة أو غيرها بما ينفذ نفس العملية ولكن ليس بمعادلة بل بالأكواد وهنا للتسهيل أنا أرغب بتطبيقها على رقم 1 فقط لأن كل ورقة سيكون فيها رقم واحد فقط دون أن تشتمل الورقة على الجدول كاملا بل كل رقم في الجدول له ورقة مستقلة خاصة به.

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

مع ملاحظة تطبيق الطريقة بالأكواد مع مراعاة أن الملف الرئيسي فس المسار المحدد سابقا d:\pro

لكم جزيل الشكر والتقدير

[احمدزمان]

للرفع

[احمدزمان]

السلام عليكم

اولا سوف نقوم بتسهيل عملية فتح الملف

اضغط على اسم المجلد الموجود في العمود M

تظهر لك شاشة تحدد منها موقع المجلد

وبضغط موافق

يتم ادراج كامل المسار في الخلية N1

ادخل اسم الملف في N2

ادخل نوع الملف في N3

ثم اضغط اظهار الملف

يتم فتح الملف

PRO.rar

[ابو تميم]

طريقة جميلة أخي احمد زمان ولكنها طويلة بعض الشيء إضافة إلى انها تحتوي على قيم داخل الخلايا يسهل حذفها

الهدف من السؤال كان لتوفير الوقت ومنع حذف محتويات الخلية من المعادلات بطريق الخطأ

وطريقة الأخ محمد مصطفى سريعة جدا ولكنها تحتوي على معادلات vlookup في الخلايا وأنا أريد تطبيق نفس الطريقة ولكن أريد تطبيقها بالأكواد وذلك لإلغاء المعادلات في الخلايا ويسهل حذفها بطريق الخطأ

شكرا جزيلا أخي العزيز احمد زمان

[احمدزمان]

ولكن أريد تطبيقها بالأكواد وذلك لإلغاء المعادلات في الخلايا ويسهل حذفها بطريق الخطأ

شكرا جزيلا أخي العزيز احمد زمان

بكرة ان شاء الله تلاقيها جاهزة

[احمدزمان]

السلام عليكم

اخي الفاضل

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

اضغط نقل البيانات

[احمدزمان]

السلام عليكم

PRO.rar