اذهب الي المحتوي
أوفيسنا

(تمت الاجابة) استبدال المعادلة 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

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

رابط هذا التعليق
شارك

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

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

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

:power::jump:

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information