(تمت الاجابة) استبدال المعادلة Vlookup والارتباط التشعبي بكود

[ابو تميم]

السادة عباقرة الأكواد الكرام

تحياتي الحارة لكم

في الورقة main يتم سحب البيانات التالية من الورقة ذات الرقم المساوي لرقم الترتيب المحدد كما يلي

الترتيب رقم (1) يتم سحب بيانات كل من ( عدد الاعطال ، الاعطال العالقة ، وقت التبليغ ، ايام التأخير )

وذلك يتم سحبها من الورقة التي تحمل نفس الترتيب وهي هنا الورقة رقم 1 وكلما تغيرت في الورقة الاصلية 1 تتغير هنا

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

المطلوب الاول ( في الورقة main ).. هل يمكن استبدال الارتباط التشعبي بكود يقوم بجلب البيانات من الخلايا المحددة هنا حسب رقم الورقة وهو هنا ( رقم الورقة = رقم الترتيب )

المطلوب الثاني ..( في الورقة رقم (1)) ...

في هذه الصفحة يتم سحب البيانات من الورقة main كما يلي

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

نوع الجهاز والرقم التسلسلي واسم الشركة وترميز الجهاز واسم المستخدم ومكان عمله واسم الموقع ( المؤسسة العامة ) يتم سحبه من الورقة mainlk من خلال المعادلة Vlookup كما هو موضح في المثال

هنا في هذه الصفحة المطلوب هو استبدال معادلة vlookup بكود يعمل نفس العمل ويجلب البيانات المحدده هنا من الورقة main المعرفة بنطاق محدد device

ولكم جزيل الشكر والاحترام والتقدير على جهودكم المتميزة

استبدال المعادلة Vlookup والارتباط التشعبي بكود يعمل نفس العمل.rar

[عبدالله المجرب]

السلام عليكم

تم استبدال المعادلات باكواد

وتعمل الاكواد بلتغير في الخلية

استبدال المعادلة Vlookup والارتباط التشعبي بكود يعمل نفس العمل.rar

[ابو تميم]

سلمت يداك اخي ابو احمد يا ملك الأكواد أنت ...

الكود يعمل بشكل ممتاز ولكن إذا قمنا بالتعديل على البيانات في الصفحة الرئيسية main لا يتغير ذلك في الورقة الثانية إلا إذا قمنا بالضغط في الخلية التي تحمل رقم الترتيب وإعادة كتابة الرقم مرة أخرى حتى يتم جلب البيانات المعدلة

هل يمكن تعديل الكود ليتم تعديل البيانات تلقائيا بمجرد تعديلها على الصفحة الرئيسية أو ربط عملية التعديل بالضغط على زر ( ترحيل ) مثلا ليتم تعديل المطلوب وترحيل البيانات سواء من الصفحة الرئيسية إلى الورقة الفرعية أو بالعكس

لأنه هنا يجب إعادة كتابة رقم الترتيب ليتم سحب التعديل

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

[عبدالله المجرب]

الى الغد ان شاء الله

ان لم يقم احد الاخوة بالتعديل المطلوب

[ابو تميم]

بالانتظار إن أحيانا الله تعالى

لكم جزيل الشكر والتقدير على جهودكم المتميزة

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

[ابو تميم]

لا يزال السؤال مفتوح

شكرا للجميع

[عبدالله المجرب]

السلام عليكم

اخي ابوتميم

اضف هذا السطر الى الكود في صفحة main

Sheets(Application.Text((Target.Value), "@")).[C6] = Target.Value

ليصبح

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo 1

If Not Intersect(Target, [A5:A13]) Is Nothing Then

Cells(Target.Row, 9) = Sheets(Application.Text((Target.Value), "@")).[E11]

Cells(Target.Row, 10) = Sheets(Application.Text((Target.Value), "@")).[G11]

Cells(Target.Row, 11) = Sheets(Application.Text((Target.Value), "@")).[A15]

Cells(Target.Row, 12) = Sheets(Application.Text((Target.Value), "@")).[F11]

End If

Sheets(Application.Text((Target.Value), "@")).[C6] = Target.Value

1 End Sub

[ابو تميم]

إضافة ممتازة من رجل متميزة

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

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

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

بانتظارك أخي ابو احمد في ربط عملية الترحيل بشكل آلي

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

[عبدالله المجرب]

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

وضح أكثر

[ابو تميم]

شكرا أخي ابو احمد

المقصود بالترحيل بين الصفحات هو نفسه المطلوب في المشاركة رقم 3

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

مثال :

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

وكذلك الأمر في الورقة main أي أنني عندما أكون في الورقة 1 وأقوم بالتعديل عليها والإضافة عليها والعودة إلى الورقة main فإنه هنا لن يسحب التعديل الذي تم على الورقة 1 إلا إذا قمت بالانتقال إلى رقم الترتيب 1 في الورقة main والضغط في الخلية التي تحمل رقم الترتيب 1 وكتابة الرقم 1 مرة أخرة ليتم سحب البيانات التي تم تعديلها في الورقة 1 إلى الورقة main

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

[ابو تميم]

السؤال لا يزال قيد الانتظار

شكرا للجميع

[عبدالله المجرب]

جرب المرفق بعد التعديل

استبدال المعادلة Vlookup والارتباط التشعبي بكود يعمل نفس العمل.rar

[ابو تميم]

سلمت يداك أخي ابو احمد

قلت لنفسي لن يحلها أحد غيرك

الطريقة تعمل معي بشكل ممتاز سأعمل على تطبيقها على ملف العمل

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