أبو أنس80 قام بنشر فبراير 13, 2016 مشاركة قام بنشر فبراير 13, 2016 (معدل) بسم الله الرحمن الرحيم يا اخوان ممكن حل فكرة في المرفق صنع جدول ب في لوك اب لجلب معلومات ممكن بعد استدعاء معلومات تعديلها و ترحيلها قبل سنة او اكثر وجدت ملف في منتدى لكن بحثت كثيرا ما وجدت اشكركم على مساعدتي اوفيسنا.rar تم تعديل فبراير 13, 2016 بواسطه أبو أنس80 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 13, 2016 مشاركة قام بنشر فبراير 13, 2016 أخي الكريم أبو أنس يرجى إرفاق ملف مع مزيد من التوضيح للمطلوب لتجد الاستجابة من قبل إخوانك .. تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
أبو أنس80 قام بنشر فبراير 13, 2016 الكاتب مشاركة قام بنشر فبراير 13, 2016 استاذي غالي رفعت ملف مجرد اريد استدعاء بيانات و تعديل و ترحيل الى نفس مكان اوفيسنا.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 13, 2016 مشاركة قام بنشر فبراير 13, 2016 جرب هذا الملف Book1.rar رابط هذا التعليق شارك More sharing options...
أبو أنس80 قام بنشر فبراير 13, 2016 الكاتب مشاركة قام بنشر فبراير 13, 2016 لا يا حبيبي استاذ سليم مو مشكلتي استدعاء مشكلتي تعديل بيانات بعد استدعاء و بعد تعديل ممكن ترحيل الى نفس صف او مكان قديم رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 13, 2016 مشاركة قام بنشر فبراير 13, 2016 بعد اذن أخى سليم تفضل اخى كله بالاكود لانه مينفعش تعديل ع وجود معادلات الاستدعاء هذا كود الاستدعاء فى حدث الورقه Private Sub Worksheet_Change(ByVal Target As Range) Dim cl As Range Dim LR As Integer Dim sh2 As Worksheet Set sh2 = Sheet2 If Target.Address = [c2].Address Then LR = sh2.Cells(Rows.Count, 1).End(xlUp).Row For Each cl In sh2.Range("A4:A" & LR) If [c2] = cl Then [c4] = cl.Offset(0, 1) [b6] = cl.Offset(0, 2) [b8] = cl.Offset(0, 3) [b10] = cl.Offset(0, 4) End If Next End If End Sub وهذا كود الترحيل Sub ragab() Dim cl As Range Dim LR As Integer Dim sh1 As Worksheet Dim sh2 As Worksheet Set sh1 = Sheet1 Set sh2 = Sheet2 LR = sh2.Cells(Rows.Count, 1).End(xlUp).Row For Each cl In sh2.Range("A4:A" & LR) If sh1.[c2] = cl Then cl.Offset(0, 1) = sh1.[c4] cl.Offset(0, 2) = sh1.[b6] cl.Offset(0, 3) = sh1.[b8] cl.Offset(0, 4) = sh1.[b10] End If Next End Sub وهذا الملف اوفيسنا.rar 2 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 13, 2016 مشاركة قام بنشر فبراير 13, 2016 اليك هذا الملف مع كود اخر Tarhil.rar 2 رابط هذا التعليق شارك More sharing options...
أبو أنس80 قام بنشر فبراير 13, 2016 الكاتب مشاركة قام بنشر فبراير 13, 2016 اشكرك استاذ رجب ياخي غالي بالفعل هذا قصدي بس بلا زحمة ممكن زر اخر لاضافة بيانات جديدة و ترحيل الى شيت2 شوف مرفق اذا مايسير مو موشكلة اشكرك على مساعدتي اشكركم جميعا يا رفاق و جماعة منتدى اوفيسنا.rar استاذ سليم اشكرك شكرا جزيلا ملفك جميل باتكيد استفيد من ملفك جربت ملف هس حاول دمج ملفك مع ملف استاذ رجب رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 14, 2016 مشاركة قام بنشر فبراير 14, 2016 السلام عليكم أخى الفاضل ما رأيك فى زر واحد يستخدم لترحيل الجديد وترحيل بعد التعديل جرب المرفق اوفيسنا.rar 1 رابط هذا التعليق شارك More sharing options...
أبو أنس80 قام بنشر فبراير 14, 2016 الكاتب مشاركة قام بنشر فبراير 14, 2016 ماشا الله بلفعل هذا قصدي اشكرك اخي غالي الله طول عمرك همشي شكري و تقديري لاستاذ سليم بعد اذن انت و اخي سليم انا دمجت كلا ملفين لكن موجميل مثل ملفك اشكركم مرارا و تكرارا اوفيسنا.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.