اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

الملف.xlsx

رابط هذا التعليق
شارك

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

  • Like 1
رابط هذا التعليق
شارك

شكرا على ردكم 

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

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

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

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

match & copy (1).xlsm

تم تعديل بواسطه ايهاب السيد بدوى
اضافه ملف مرفق
رابط هذا التعليق
شارك

السلام عليكم

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

رابط هذا التعليق
شارك

اقتباس

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

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

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

تم تعديل بواسطه عبدالفتاح في بي اكسيل
رابط هذا التعليق
شارك

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

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

تحياتي

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

 

match & copy (1).xlsm

رابط هذا التعليق
شارك

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

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

بحث.xlsx

رابط هذا التعليق
شارك

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

 

تنبيه: 

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

 

بحث (1).xlsx

تم تعديل بواسطه alliiia
رابط هذا التعليق
شارك

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

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information