كيف أرحل مجموعة قيم من صفحة إلى صفحة مع تغير ترتيب الأشخاص -يوجد مثال-

[شكيب عمار]

كيف أنقل قيمة كل شخص من الصفحة الأولى إلى الصفحة الثانية مع التنبه إلى أن ترتيب الأشخاص في الصفحة الثانية قد تغير.

الترحيل يكون بماكرو.

 

أنظر المثال في المرفقات

 

وبارك الله في أوقاتكم سلفاً

مشكل تعديل ونقل المعلومات.rar

تم تعديل أغسطس 29, 2015 بواسطه شكيب عمار

[خالد الرشيدى]

جرب المرفق علة المطلوب

 مشكل تعديل ونقل المعلومات_2.rar

واليك شرح اسلوب عمل دالة البحث المستخدمة

[شكيب عمار]

جزاك الباري خير الجزاء، حل طيب.

أيضا أخي الكريم شكر الله لك، كيف يتم ذلك عن طريق ماكرو مع زر ترحيل.

ورزق الله وباقي الإخوة البركة في الوقت

المشكل أخي الكريم في الترحيل وليس استعلام.

وعن طريق الماكرو.

بارك الله فيك.

[خالد الرشيدى]

جرب المرفق علة المطلوب

 مشكل تعديل ونقل المعلومات.rar

[شكيب عمار]

هذا هو المطلوب جزاك الله خيرا، وبارك الله فيك وحفظك الله من كل شر ومكروه وسائر الإخوة الذين يسهرون مثلك في هذا المنتدى على مساعدة إخوانهم لوجه الله تعالى.

أرجو شرح الكود أخي الكريم، وكيف لو كان في الصفحة الثانية تعديل كالتالي، وجزاك الله خيرا

مشكل تعديل ونقل المعلومات.rar

[شكيب عمار]

نرجو شرح الكود الموجود في المرفقات

CODE.rar

[خالد الرشيدى]

 لا اعلم لماذا قائمة ادراج كود معطلة .. لهذا الصورة التالية بها شرح الكود علة يمثل اضافة لاحد الاعضاء

المرفق وبه التعديل المطلوب فى المشاركة قبل الاخيرة لك

 مشكل تعديل ونقل المعلومات.rar

[شكيب عمار]

الله يعافيك ويبارك فيك، صراحة الحل أفادني كثيرا، جزاكم الله خيرا.

 

ومع ذلك فهناك إضافة أخرى، أريد زيادتها لكي تضبطه أكثر خاصة بعد التجربة والملاحظة، وهي:

1- في حالة إذا لم يجد قيمة تطابق الإسم لا يكتب شيء في الخلية عند الترحيل. لأنه يظهر الخطأ #N/A يضعه في الخلايا التي لا يجد لها قيما مطابقة. (رقم3 في المرفق)

2- أهم شيء في حالة العمل أكثر من مرة، إذا وجد مسبقا شخص غير معني بالترحيل ولديه قيمة قد نقلت سابقا في الصفحة الثانية، فعليه أن يتركها ولا يحذفها، أما الشخص الذي لديه قيمة سترحل حاليا من الصفحة 1 ووجد مسبقا أن لديه قيمة في الصفحة 2 فعليه أن يقوم بتحديثها تلقائيا أو يسأل قبل التحديث. (رقم 4 في المرفق)

 

وغفر الله لكم ولذويكم جميعا.

 Bureau.rar

تم تعديل أغسطس 30, 2015 بواسطه شكيب عمار

[خالد الرشيدى]

اخى الكريم

بخصوص الطلب الاول استبدل الكود السابق بهذا الكود

Sub Button2_Click()
  Dim lr As Long
     lr = ورقة2.Cells(Rows.Count, "B").End(xlUp).Row
        With ورقة2.Range("D2:D" & lr)
            .FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-2],ورقة1!R2C2:R1762C3,2,0),"""")"
            .Value = .Value
        End With
End Sub

اما بخصوص الطلب الثانى :- فلم افهم المطلوب ارجوا مزيداً من التوضيح

مع العلم ان طبيعة عمل الكود هو البحث عن القيمة (الورقة 2 ) فى الورقة 1 وارجاع قيمة السطر المجاور لها

[شكيب عمار]

الأخ خالد حفظك الله وزادك والإخوة فضلا وفهما، شكرا لك وبارك الله فيك

جاري تجريب هذا الحل للمشكل الأول.

أما المشكل الثاني، فأنت في العملية كما وضعتها لي، فهي  تقوم بنسخ تلقائي،

يعني: إذا وجد شخص مثلا (عمر) في الصفحة 1 ويوجد في الصفحة 2 ونقلت له قيمته من الصفحة 1 إلى الصفحة 2، بهذا يصبح لديه قيمة عند هذا ترحيل.

فإذا حذفت الشخص (عمر) من القائمة في الصفحة الأولى فأكيد يبقى في الصفحة الثانية مع القيمة التي رحلتها له في الخطوة السابقة،

لكن المشكل بخطوتك فإنه عند ترحيل جديد يحذف القيمة القديمة التي رحلتها لـ (عمر) على أساس أنه لم يجده في الصفحة 1. وأنا أريد القيمة القديمة تبقى لا أن تحذف.

بل وإذا قمت بإعادة (عمر) في قائمة الصفحة الأولى وأعطيت له قيمة أخرى، مع الملاحظة أن (عمر) موجود سلفا في الصفحة 2 فأريد عند ترحيل القيم إما يقوم بتحديث تلقائي لقيمة (عمر) في الصفحة 2 أو يسألني قبل التحديث.

هذا هو الشرح الدقيق غفر الله لك ولوالديك.

Bureau.rar

تم تعديل أغسطس 30, 2015 بواسطه شكيب عمار

[خالد الرشيدى]

استخدم الكود التالى وابدى ملاحظاتك

 Sub Button2_Click()
  Dim lr As Long, cl As Range, n As Integer
     lr = ورقة2.Cells(Rows.Count, "B").End(xlUp).Row
        For Each cl In ورقة2.Range("B2:B" & lr)
          For n = 1 To ورقة1.Cells(Rows.Count, "B").End(xlUp).Row
            If cl.Value = ورقة1.Cells(n, 2) Then
                With cl.Offset(0, 2)
                   .FormulaR1C1 = "=VLOOKUP(RC[-2],ورقة1!R2C2:R1762C3,2,0)"
                   .Value = .Value
                End With
             End If
          Next
        Next
 End Sub

 

تم تعديل أغسطس 30, 2015 بواسطه خالد الرشيدى

[شكيب عمار]

غفر الله لك سأجرب وأرد عليك

[شكيب عمار]

تم بنجاح شكرا لك، لو تتحفه بشرح يكون الموضوع قد أثري من قبلك فجزاك الله خيرا.

[باسم فاروق]

اخى العزيز خالد الرشيدى جزاك الله خير على هذة المعلومات

ولكن ارجو منك ايجاد حل لمشكلة لدى وهى لدى مثلاً كشف مرتبات بة 200 اسم أو فاتورة بيع بها 200 صنف وذلك فى ملف رفم 1

وارغب فى ترحيل هذة الأسماء أو الأصناف فى ملف اخر  رقم 2 موجود بة بطاقة باسم كل عامل أو كارت الصنف بحيث يتم نقل الصف بالكامل ( 15 او 20 خلية امام كل اسم او صنف ) الذى امام الأسم او الصنف الى الملف الجديد ببطاقة العامل او كارت الصنف مرة واحدة للصف كلة الموجود امام الأسم او الصنف وليس خلية خلية

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

[خالد الرشيدى]

اخى الكريم

باسم فاروق.. لم افهم المطلوب جيداً ....قم بارفاق ملف اكسيل موضح فيه طلبك فى موضوع جديد تحت عنوان معبر عن الطلب

وان شاء الله تجد المساعدة ان لم تكن منى ستكون من باقى الاساتذه بالمنتدى

خالص تحياتى

[شكيب عمار]

كيف لو نضيف عمودا آخر أخي خالد في المثال التالي، أنا أريد أفهم الصيغة جيدا، يا ريت شرح لما أضفته --فقط- وتكون صدقة جارية لك وللإخوة بارك الله فيك

مشكل تعديل ونقل المعلومات-رقم5.rar

[خالد الرشيدى]

اخى الكريم

الشرح سأقوم بوضعة فى اقرب فرصه -ان شاء الله -اما عن التعديل المطلوب

Sub Button2_Click()
  Dim lr As Long, cl As Range, n As Integer
     lr = ورقة2.Cells(Rows.Count, "B").End(xlUp).Row
        For Each cl In ورقة2.Range("B2:B" & lr)
          For n = 1 To ورقة1.Cells(Rows.Count, "B").End(xlUp).Row
            If cl.Value = ورقة1.Cells(n, 2) Then
                With cl.Offset(0, 2)
                   .FormulaR1C1 = "=VLOOKUP(RC[-2],ورقة1!R2C2:R1762C5,2,0)"
                   .Value = .Value
                End With
                With cl.Offset(0, 4)
                   .FormulaR1C1 = "=VLOOKUP(RC[-4],ورقة1!R2C2:R1762C5,4,0)"
                   .Value = .Value
                End With
             End If
          Next
        Next
 End Sub

 

تم تعديل سبتمبر 1, 2015 بواسطه خالد الرشيدى