بحث بدالة و تعديل و ترحيل

[أبو أنس80]

بسم الله الرحمن الرحيم

يا اخوان ممكن حل فكرة

في المرفق صنع  جدول ب في لوك اب لجلب معلومات

ممكن بعد استدعاء معلومات تعديلها و ترحيلها

 

قبل سنة او اكثر وجدت ملف في منتدى لكن 

بحثت كثيرا ما وجدت

اشكركم على مساعدتي

اوفيسنا.rar

تم تعديل فبراير 13, 2016 بواسطه أبو أنس80

[ياسر خليل أبو البراء]

أخي الكريم أبو أنس

يرجى إرفاق ملف مع مزيد من التوضيح للمطلوب لتجد الاستجابة من قبل إخوانك ..

تقبل تحياتي

[أبو أنس80]

استاذي غالي 

رفعت ملف

مجرد اريد استدعاء بيانات و تعديل و ترحيل الى نفس مكان

 

اوفيسنا.rar

[سليم حاصبيا]

جرب هذا الملف

 

Book1.rar

[أبو أنس80]

لا يا حبيبي استاذ سليم

مو مشكلتي استدعاء مشكلتي تعديل بيانات بعد استدعاء

و بعد تعديل ممكن ترحيل الى نفس صف او مكان قديم

 

[رجب جاويش]

بعد اذن أخى سليم

تفضل اخى

كله بالاكود لانه مينفعش تعديل ع وجود معادلات الاستدعاء

هذا كود الاستدعاء فى حدث الورقه

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

[سليم حاصبيا]

اليك هذا الملف مع كود اخر

Tarhil.rar

[أبو أنس80]

اشكرك استاذ رجب 

ياخي غالي

بالفعل هذا قصدي

بس بلا زحمة 

ممكن زر اخر لاضافة بيانات جديدة و ترحيل الى شيت2

شوف مرفق 

اذا مايسير مو موشكلة 

اشكرك على مساعدتي

اشكركم جميعا يا رفاق و جماعة منتدى

اوفيسنا.rar

استاذ سليم اشكرك شكرا جزيلا

ملفك جميل باتكيد استفيد من ملفك

جربت ملف 

هس حاول دمج ملفك مع ملف استاذ رجب

[رجب جاويش]

السلام عليكم

أخى الفاضل

ما رأيك فى زر واحد يستخدم لترحيل الجديد وترحيل بعد التعديل

جرب المرفق

 

اوفيسنا.rar

 

[أبو أنس80]

ماشا الله 

بلفعل هذا قصدي

اشكرك اخي غالي 

الله طول عمرك

همشي شكري و تقديري لاستاذ سليم

بعد اذن انت و اخي سليم 

انا دمجت كلا ملفين لكن موجميل مثل ملفك

اشكركم مرارا و تكرارا

اوفيسنا.rar