اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طلب جلب بيانات عميل و تسجيلها في جدول


الردود الموصى بها

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

الأخوة الكرام

بالمرفق طلب جلب بيانات عميل إلى جدول من خلال كتابه رقم كود خاص به

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

علما بأن المثال لتوضيح الفكرة أما توظيف الحل فسيكون إن شاء الله في أكثر من عمل

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

جلب البيانات برقم العميل.rar

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

السلام عليكم

جرب هذا الكود

في حدث الورقة


Private Sub Worksheet_Change(ByVal Target As Range)

Dim SH As Worksheet

Dim M As Range, RR As Range

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

' الورقة النشطه غيرها إلى أي ورقة  تريد

Set SH = ActiveSheet

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

' المدى المراد البحث فيه

Set RR = SH.[A2:A100]

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

If Target.Count > 1 And IsEmpty(Target.Value) = False Then Exit Sub

If Not Intersect(Target, [H2]) Is Nothing Then

For Each M In RR

If Target.Value = M.Value Then

M.Resize(1, 6).Copy

Cells(Cells(Rows.Count, "J").End(xlUp).Offset(1, 0).Row, "J").PasteSpecial xlPasteValues

Exit For

End If

Next

Application.CutCopyMode = False

Target.Select

End If

End Sub

تم تعديل بواسطه alidroos
رابط هذا التعليق
شارك

ما شاء الله لا قوة إلا بالله

اسأل الله الكريم رب العرش العظيم أن يرزقك أخي العيدروس الخير حيث كان

الكود و لا أروع ربنا يبارك فيك

سأطمع في كرمك بأن أطبق الكود على أكثر من نموذج عمل و أستشيرك في الأفضل لكل نموذج تباعا

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

:signthankspin:

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

بارك الله فيك اخي الكريم أ / أحمد البحيري عن كل ما تتفضل به للجميع

المعادلة هنا لا تظهر المعلومات سوى بالصف الأول فقط من الجدول فهل يمكن التعديل بحيث كلما تغير الرقم بالخلية h2 تظهر المعلومات في الصف التالي بالجدول و هكذا ؟

و أشكرك مرة أخرى على كريم تعاونك

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

أخى الحبيب / أحمد البحيرى

بارك الله فيك

أخى الحبيب / العيدروس

بعد اذنك تعديل بسيط فى الكود لمنع تكرار البيانات

جلب البيانات برقم العميل 2.rar

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

لا يا أستاذ أحمد ما أقصده كما ذكرت في الورقة الأساسية هو أن ظهور البيانات يكونفي الصف الأول من الجدول ثم عند تغيير الرقم تظهر البيانات الجديدة في الصف الثاني ( لأن الأول به بيانات الرقم السابق ) و عند التغيير تظهر البيانات في الصف الرابع و هكذا كلما غيرنا الرقم بالخلية h2 يتم تعبئتها في صف جديد بالجدول

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

شكرا لجميع الأساتذة الكرام

أ / العيدروس

أ / أحمد البحيري

أ / رجب جاويش

على ما تفضلوا به مشكورين من تقديم العون و الإرشاد

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

بارك الله فيكم و نفع بكم - آمين

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

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

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



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

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

Important Information