نسخ ولصق بيانات من شيت الى شيت اخر ولكن بترتيب اسماء مختلفه

[ايهاب السيد بدوى]

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

فى الملف يوجد فى الشيت الاول وهو قاعده البيانات اسماء بترتيب معين ويوجد امام كل اسم خانات للاجر الوظيفى واساسى 30/6 والاجر الوظيفى 7/ 2021 هل يوجد معادلات يتم بها نسخ بيانات خانات الاجر الوظيفى واساسى 30/6 والاجر الوظيفى 7/ 2021  ولصقها الى شيت البيانات الوظيفيه امام نفس الاسماء مع العلم ان الاسماء فى شيت البيانات الوظيفيه مختلفه فى الترتيب عن قاعده البيانات وانه يمكن اضافه اسماء فى شيت قاعده البيانات وشيت البيانات الوظيفيه بعد ذلك يمكن ان يصل عدد الاسماء الى 1500 اسم فى كل شيت ولكن بترتيب اسماء مختلفه فى قاعده البيانات عن البيانات الوظيفيه 

وهل يوجد طريقه فى حاله النسخ ولصق البيانات ان يتم الغاء المعادلات او اخفاها لانى اريد مسح شيت قاعده البيانات بعد ان يتم نسخ البيانات

الملف.xlsx

[lionheart]

Sub Test()
    Dim x, ws As Worksheet, sh As Worksheet, r As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        Set sh = ThisWorkbook.Worksheets(2)
        For r = 2 To sh.Cells(Rows.Count, 1).End(xlUp).Row
            x = Application.Match(sh.Cells(r, 1).Value, ws.Columns(2), 0)
            If Not IsError(x) Then
                sh.Range("H" & r).Resize(1, 3).Value = ws.Range("K" & x).Resize(1, 3).Value
            End If
        Next r
    Application.ScreenUpdating = True
End Sub

 

[ايهاب السيد بدوى]

اقتباس

 

شكرا على ردك يا استاذ lion heart بس الكود مش شغال على الملف

[عبدالفتاح في بي اكسيل]

جرب هذا  الماكرو 

Sub match_copy()
Dim lRow, x As Long, ws As Worksheet

Set ws = Sheets("Sheet1")
lRow = ws.Range("B1").End(xlDown).Row

For Each cell In Range("B2:B" & lRow)
    x = 2
    Do
        If cell.Value = Sheets("Sheet2").Cells(x, "A").Value Then
        Sheets("Sheet2").Cells(x, "H").Value = cell.Offset(, 11)
        Sheets("Sheet2").Cells(x, "i").Value = cell.Offset(, 10)
        Sheets("Sheet2").Cells(x, "j").Value = cell.Offset(, 9)
        End If
        x = x + 1
    Loop Until IsEmpty(Sheets("Sheet2").Cells(x, "A"))
Next
Sheets("Sheet2").Activate
    
End Sub

 

match & copy.xlsm

[محي الدين ابو البشر]

طريقة أخرى!!

الملف.xlsm

[ايهاب السيد بدوى]

شكرا على ردكم 

ممكن يا استاذ عبد الفتاح  فى بى اكسل بعد  اذنك 

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

الاعمده فى الشيتين متنساقه 

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

match & copy (1).xlsm

تم تعديل نوفمبر 4, 2021 بواسطه ايهاب السيد بدوى
اضافه ملف مرفق

[عبدالفتاح في بي اكسيل]

في  المرة  القادمة  ضع  كل  متطلباتك  وليس  كل  مرة  يتم  تعديل  الكود

تحياتي 

match & copy (1).xlsm

[ايهاب السيد بدوى]

السلام عليكم

ايه السبب الى ممكن يخلى فى اسماء موجوده فى شيت رقم 1 ونفس الاسماء موجوده فى شيت 2 ولا يتم نسخ الرقم الموجود امام تلك الاسماء فى شيت رقم 1

[عبدالفتاح في بي اكسيل]

اقتباس

لايتم نسخ الرقم الموجود امام تلك الاسماء فى شيت رقم 1

حسب  ملفك يتم  نسخ الى شيت 2  وليس 1

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

تم تعديل نوفمبر 4, 2021 بواسطه عبدالفتاح في بي اكسيل

[ايهاب السيد بدوى]

مثلا الملف المرفق فيه اسم يوسف عبد الكريم عبد الرحمن لا يتم نسخ المبالغ الخاصه به  

match & copy (1).xlsm

[عبدالفتاح في بي اكسيل]

لا يوجد  مشكلة   الكود  يعمل   . اعتقد   المشكلة   عدم  تتطابق المسافات بين  الاسماء  في  كلا  الورقتين لتجنب ذلك    

عليك  بنسخ  ولصق  نفس  الاسماء  من الشيت  الاول  الى الشيت  الثاني  بدلا من كتابتها  حتى لا تحدث هذه  المشكلة 

تحياتي

[ايهاب السيد بدوى]

هل يوجد حل اخر حيث انا اقوم باحضار اسماء بترتيب معين من شيت  والصقها فى شيت رقم 1 و اقوم باحضار نفس الاسماء من شيت اخر بس بترتيب مختلف والصقها فى شيت رقم 2 

[عبدالفتاح في بي اكسيل]

لا ادري  ماذا تريد  حصلت اكثر من اجابة من بقية الاخوة وفي كل مر تريد شيء  لايمكن اهدار الوقت بتغيير الكود في كل مرة  وانا اجبتك بالفعل بناء على سؤالك الاصلي

انتظر المساعدة من الاخرين

[محي الدين ابو البشر]

match & copy (1) (1).xlsm

عسى يفي بالغرض

[ايهاب السيد بدوى]

فى الملف المرفق يوجد فى شيت رقم 1 اسماء بترتيب معين ونفس الاسماء ولكن بترتيب مختلف واسماء اخرى موجوده فى شيت رقم 2  ويوجد اسماء لا تظهر نتائج نسخ بياناتها مع العلم انها توجد فى شيت رقم 1 برجاء المساعده فى تعديل الماكرو ليتم نسخ جميع البيانات كل الشيت 

مع العلم انه سيكون بعد ذلك تغيير البيانات فى شيت رقم 1 

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

 

match & copy (1).xlsm

[ايهاب السيد بدوى]

فى الملف المرفق يوجد اسماء فى العمود A
ونفس الاسماء واسماء اخرى موجوده فى العمودJ  ولكن بترتيب مختلف عند استخدم داله البحث VLOOKUP 
لا تظهر نتائج الاسماء على الرغم من وجودها فى العمود A 
مثلا الاسم احمد المرسى حسين لا يظهر نتائج امامه ويظهر خطا فى الداله 
هل يمكن حل المشكله واذا كانت هناك داله بحث اخرى افضل من داله VLOOKUP يمكن تغييرها بدلا من VLOOK UP

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

بحث.xlsx

[alliiia]

المعذرة منك أخي الحبيب، الخطأ مني لم أركز جيدًا، تم تعديل الملف

 

تنبيه: 

ينبغي أن تكون الأسماء هي نفسها لأن هناك اختلاف بين خانة الاسماء اليمنى وخانة الأسماء اليسرى، الاسم ليس متطابق.

 

بحث (1).xlsx

تم تعديل نوفمبر 6, 2021 بواسطه alliiia

[ايهاب السيد بدوى]

مافيش حل لمشكله ان الاسماء غير مطابقه