أرجو المساعدة لربط البيانات بين ملفي إكسل

[ranie]

أخواني مشرفي و أعضاء منتدى اوفسينا

أشكركم على هذا الموقع المفيد و أرجو منكم المساعدة في طلبي ....

أخي و أستاذي أحمد زمان

أشكر لك اهتمامك و تواصلك و سعة صدرك على أسئلتي و أرجو من الله أن يوفقك دائماً لكل ما هو خير لك و لكل الاخوة الأعزاء

عندي ملفين إكسل ملف ( 1 ) و هو متغير – ملف ( 2 ) و هو لحفظ البيانات المرسلة من الملف ( 1 )

طلبي هو التالي :

عندما أكتب التفاصيل الموجودة في الملف ( 1 ) أن تنتقل إلى الملف ( 2 ) و ذلك بالضغط على زر حفظ المعلومات الي أريد إنشاؤه في الملف ( 1 ) على أن تنتقل المعلومات بشكل متتالي يعني ( A2,B2,C2 ) و بعد تفريغ المعلومات من الملف ( 1 ) و إضافة اسم جديد و معلومات جديدة أن تنتقل إلى ( A3,B3,C3 ) و هكذا ، عندها يصبح عندي الملف ( 2 ) ملف بيانات لكافة الزبائن .

بشرط أن لا أقوم بحفظ أي من المعلومات في الملف ( 1 ) أي عندما أفتح الملف يكون فارغ و جاهز لكتابة المعلومات .

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

اترككم بحفظ الله و رعايته

1-2.rar

[طارق محمود]

السلام عليكم

تفضل أخي ranie

هذا الكود

Sub Shift_DATA()

Application.DisplayAlerts = False

pt = ActiveWorkbook.Path

On Error Resume Next


LR = [A60000].End(xlUp).Row

If LR < 2 Then Exit Sub


Range("A2:C" & LR).Copy


Workbooks.Open Filename:=pt & "\2.xlsx"

Workbooks("2.xlsx").Activate

NR = Sheets(1).[A60000].End(xlUp).Row + 1

Sheets(1).Cells(NR, "A").Select

ActiveSheet.Paste

Application.CutCopyMode = False

[A60000].End(xlUp).Select

ActiveWorkbook.Save

ActiveWindow.Close


Workbooks("1.xlsm").Activate

Range("A2:C" & LR).ClearContents

Application.DisplayAlerts = True

End Sub

وهذا المرفق

ranie.rar

[ranie]

أخي طارق

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

سلمت يداك على ما أنجزت ، لأني هذا ما كنت أريد بالضبط .

و لكن المشكلة اني عندما أردت أن أنقله على التطبيق الخاص بي لم يعطي النتيجة المطلوبة كما في المرفق الذي أرسلته ، لذلك إني أطمع بكرمك أن تقوم بتطبيق الكود على الملف الخاص بي و الذي سوف أرسله لك بالمرفقات حيث أني أريد ربط المعلومات من الملف الاصلي و المسمى (al khalidiya ) ، الصف ( 46 ) إلى الملف الثاني و المسمى ( Database ) .

وإني لأخجل من كثرة طلباتي و لكن الخبراء أمثالك قد تعودو على كثرة هذه الطلبات ، ففي الملف الخاص بي و المسمى (al khalidiya ) هناك فورم بحث بالأسماء و آخر بالأرقام كان مربوطاً في السابق مع الصفحة ( 6 ) من نفس الملف أما الآن أريد ربطه مع ملف (DataBase ) .

و الطلب الاخير هو كيف أقوم بعمل رقم تسلسلي في كل مرة أفتح فيها ملف ( al khalidiya ) في الخلية رقم ( A46 ) .

أخي الكريم طارق أعتذر مسبقاً عن كثرة الطلبات و أشكرك على كرمك اللامتناهي .

و اسأل الله العلي العظيم أن يوفقكم و جميع الاخوة الأعضاء في المنتدى لكل ما هو خير .

مرفق ملف database لحفظ المعلومات و في الملحق الملف الخاص بي و اسمه Al Khalidiya

DataBase.rar

[طارق محمود]

السلام عليكم

أخي العزيز

أولا لابد من ارسال الملف الآخر al khalidiya

ثانيا

كيف أقوم بعمل رقم تسلسلي في كل مرة أفتح فيها ملف ( al khalidiya ) في الخلية رقم ( A46 )

ضع الكود التالي في حدث فتح الملف Workbook

Private Sub Workbook_Open()

Sheets(1).[A46] = Sheets(1).[A46] + 1

End Sub

[ranie]

السيد طارق هذا رابط ملف الخالدية

http://www.4shared.com/file/rj3kgCFX/al_khalidiya_2.html

و قد تأخرت في إرساله حتى قمت برفعة

[طارق محمود]

السلام عليكم

أخي العزيز

بعد إذنك أزلت صورة الترحيب الأولي فهي التي تزيد جدا من حجم الملف

مرفق الملف وبه التعديلات

لم استطع التأكد من النتيجة

فالملف يعطي رسالة خطأ لأن الأوفيس لدي غير كامل

جرب وأعلمني بالنتيجة

تفضل المرفق

Khalidia.rar

[احمدزمان]

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

استاذي المهندس طارق جزاك الله كل خير

بعد اذنك في ملاحظة بسيطة لأخي السائل

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

اولا شكرا لك

ثانيا كان الأفضل انك تستمر في نفس المشاركة السابقة علشان يكمل الموضوع في مكان واحد

والآن اصبح الموضوع مكرر عدة مرات

http://www.officena.net/ib/index.php?showuser=75844

http://www.officena.net/ib/index.php?showtopic=40383

http://www.officena.net/ib/index.php?showtopic=40382

وهذا الرابع

لذلك سوف

مع التحيه

[طارق محمود]

السلام عليكم

عفوا أخي أحمد

لم اقرأ أو أري تكرار الموضوع لقلة الوقت ، سماح

[احمدزمان]

السلام عليكم

عفوا أخي أحمد

لم اقرأ أو أري تكرار الموضوع لقلة الوقت ، سماح

ابدا استاذي الفاضل

لايحتاج سماح ولاحاجة

انته قدمت المساعدة لأخ يحتاجها

الله يكسبك اجرها

انا بس حبيت اوضح للأخ السائل راني

جزاك الله كل خير استاذ طارق

[ranie]

اخواني الاعزاء أولاً أريد أن أشكركم جزيل الشكر و التقدير لما بذلتموه من جهد ، جزاكم الله ألف خير

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

بالنسبة لما أنجزه اخي طارق فإن الملف يعمل بشكل جيد و لكن عند الضغط على زر ( data base ) تظهر النتائج بنفس السطر في ملف الـ ( Data Base ) و ليس في السطر التالي .

فأرجو متابعة الموضوع ، و كما ذكرت سابقاً الرجاء ربط فورم البحث مع ملف الـ ( Data Base ) لأنه مازال مربوطاً بالصفحة ( 6 ) من ملف ( al khalidiya_3 ) .

و إن كان بالإمكان كتابة كود التسلسل الرقمي في الخلية ( A46 ) ليكون البرنامج جاهزاً .

أقدم اعتذاري الشديد لكم بالنسبة لملاحظة أخي أحمد زمان و أرجو أن يتسع صدركم لطلباتي .

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

[ranie]

اخي السيد طارق

بعد العمل على الملف بشكل دقيق ، وجدت بان ربط الملف الاساسي ( Al Khalidiya ) مع ملف ال ( data base ) يتم بشكل دقيق و جيد لا غبار عليه و لكنه بقي موضوع ربط فورم البحث الموجود في صفحة الترحيب بملف الـ ( data base ) .

و شكراً مقدماً

[ranie]

بانتظار ردكم على طلبي

و دمتم بخير

[ranie]

للرفع

أخواني بانتظار لمسات أياديكم الخبيرة للرد على طلبي

و شكراً

[ranie]

للرفــــــــــــــــــــــــــــــــــــــــــــــــع

و الرد من قبل خبراء المنتدى الأعزاء

و شكراً

[طارق محمود]

ربط فورم البحث مع ملف الـ ( Data Base ) لأنه مازال مربوطاً بالصفحة ( 6 ) من ملف ( al khalidiya_3 )

أخي العزيز

الملف لايعمل معي كما قلت لك سابقا ويعطي رسالة خطأ لأن الأوفيس لدي غير كامل

لكن جرب التالي

في أول الكود لكلا من الفورم1 والفورم2

إستبدل

Option Explicit

'******************************************************


Private Const Mysh_Name As String = "sheet6"

بالتالي

Option Explicit

'******************************************************


Private Const Mysh_Name As String = ActiveWorkbook.Path & "\DataBase.xlsx\Sheet1"

[ranie]

الأخ طارق

أشكرك على اهتمامك

عند استبدال الكود و محاولة تشغيل فورم البحث يعطيني الرسالة الموضحة في الصورة المرفقة

أرجو من حضرتك بيان الحالة

[ranie]

مع العلم أن الملفين موجودين بنفس الفولدر

[ranie]

للرفع

[ranie]

أخي طارق أرسل لك جزيل الاحترام و الشكر

و أقدر المشكلة التي يمر بها الأوفيس ، كما أني متاكد بأنك لن توفي أي جهد في مد يد العوم لي .

بانتظار ردك الكريم

[ranie]

هل من منافس ؟؟؟؟؟

للرد على طلبي

[ranie]

حدا يرد علي دخيل الله يا أهل الخبرة

الشكر الجزيل لكل من الاخ أحمد زمان و الاخ طارق على ما قدموه من مساعدة

و أرجو من لديه الحل إطلاعي عليه و شكراً

[ranie]

ما حدا حابب يرد على سؤالي ؟؟؟

وين الاخوان أصحاب المنتدى الخبراء و الاعضاء ردوا علي يا جماعة

[ranie]

وينكون يا جماعة الخير

طيب إذا ما في إمكانية لهذا الاوبشن بالإكسل الرجاء إخباري للعمل على إيجاد حل آخر .

و شكراً لكم

[ranie]

السيد و الاخ الفاضل عبد الله جزاك الله كل خير أنت و جميع الاخوة الأفاضل و أخص كل من الاخ طارق و الاخ أحمد زمان .

الشرح هو كالتالي عند الضغط على زر ( search by mobile ) أو ( search by name ) في الصفحة الابتدائية ( sheet5 ) في الملف المسمى ( al khalidiya ) تفتح عندي صفحة البحث ، طلبي هو ان يتم البحث عن القيمة المرادة في ملف إكسل آخر باسم ( DATABASE ) .

باختصار ربط فورم البحث الموجود بملف ( AL KHALIDSIYA ) مع ملف الـ ( DATABASE ) .

مع العلم أن الملفين ( AL KHALIDSIYA ) و ( DATABASE ) موجودين بنفس المجلد .

أرجو ان أكون قد وفقت بشرح المطلوب .

وهذا مرفق للملفين

http://www.4shared.c..._khalidiya.html

DataBase.rar

[ranie]

مع العلم أن بيانات الدخول كالتالي :

رقم المستخدم : 1

اسم المستخدم : admin

كلمة المرور : admin

وفقك الله أنت و جميع الاخوة الافاضل لما هو خير