أبو ردينة قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 السلام عليكم و رحمة الله و بركاته الأخوة الكرام بالمرفق طلب جلب بيانات عميل إلى جدول من خلال كتابه رقم كود خاص به برجاء الإفادة مأجورين عن الطريقة الأنسب سواء معادلة أو كود علما بأن المثال لتوضيح الفكرة أما توظيف الحل فسيكون إن شاء الله في أكثر من عمل جزاكم الله خيرا جلب البيانات برقم العميل.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 (معدل) السلام عليكم جرب هذا الكود في حدث الورقة 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 تم تعديل أبريل 10, 2012 بواسطه alidroos رابط هذا التعليق شارك More sharing options...
أبو ردينة قام بنشر أبريل 10, 2012 الكاتب مشاركة قام بنشر أبريل 10, 2012 ما شاء الله لا قوة إلا بالله اسأل الله الكريم رب العرش العظيم أن يرزقك أخي العيدروس الخير حيث كان الكود و لا أروع ربنا يبارك فيك سأطمع في كرمك بأن أطبق الكود على أكثر من نموذج عمل و أستشيرك في الأفضل لكل نموذج تباعا جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 تفضل اخى حل بالمعادلات جلب البيانات برقم العميل1.rar رابط هذا التعليق شارك More sharing options...
أبو ردينة قام بنشر أبريل 10, 2012 الكاتب مشاركة قام بنشر أبريل 10, 2012 بارك الله فيك اخي الكريم أ / أحمد البحيري عن كل ما تتفضل به للجميع المعادلة هنا لا تظهر المعلومات سوى بالصف الأول فقط من الجدول فهل يمكن التعديل بحيث كلما تغير الرقم بالخلية h2 تظهر المعلومات في الصف التالي بالجدول و هكذا ؟ و أشكرك مرة أخرى على كريم تعاونك رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 غير الرقم سوف يتغير معك البيانات رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 أخى الحبيب / أحمد البحيرى بارك الله فيك أخى الحبيب / العيدروس بعد اذنك تعديل بسيط فى الكود لمنع تكرار البيانات جلب البيانات برقم العميل 2.rar رابط هذا التعليق شارك More sharing options...
أبو ردينة قام بنشر أبريل 10, 2012 الكاتب مشاركة قام بنشر أبريل 10, 2012 لا يا أستاذ أحمد ما أقصده كما ذكرت في الورقة الأساسية هو أن ظهور البيانات يكونفي الصف الأول من الجدول ثم عند تغيير الرقم تظهر البيانات الجديدة في الصف الثاني ( لأن الأول به بيانات الرقم السابق ) و عند التغيير تظهر البيانات في الصف الرابع و هكذا كلما غيرنا الرقم بالخلية h2 يتم تعبئتها في صف جديد بالجدول رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر أبريل 10, 2012 مشاركة قام بنشر أبريل 10, 2012 تحتاج الى كود وليس معادلات رابط هذا التعليق شارك More sharing options...
أبو ردينة قام بنشر أبريل 10, 2012 الكاتب مشاركة قام بنشر أبريل 10, 2012 أستاذنا رجب جاويش إضافة رائعة بارك الله فيك و نفع بعلمك أشكرك رابط هذا التعليق شارك More sharing options...
أبو ردينة قام بنشر أبريل 10, 2012 الكاتب مشاركة قام بنشر أبريل 10, 2012 شكرا لجميع الأساتذة الكرام أ / العيدروس أ / أحمد البحيري أ / رجب جاويش على ما تفضلوا به مشكورين من تقديم العون و الإرشاد و أحب أن أدعو جميع الأعضاء إلى الإستفادة مما يطرح كل بحسب ما يخدم عمله بمعنى إن لم تكن صاحب نفس المشكلة فيمكنك توظيف الحلول المقترحة في أشياء كثيرة جدا تفيدك و الآخرين بارك الله فيكم و نفع بكم - آمين رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان