مطلوب كود او معادلة لترحيل البيانات من صف معين فى شيت لصف فى شيت اخر

[هيثم الرملى]

السلام عليكم اصدقائي المحترمين

اولا اشكر كل القائمين علي الصفحه جزاهم الله خيرا

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

مثال فى الشيت رقم 1 موجود بيانات العاملين لدى الاسم والرقم القومى وقيمة المرتب بعد احتساب اجمالى المرتب وفى الشيت رقم 2 موجود بيانات العاملين الاسم والرقم القومى لكن بترتيب اخر 

ارغب فى استيراد اجمالى المرتب الموجود فى الشيت رقم 1 الى الشيت رقم 2 طبقا للرقم القومى 

شيت رقم 1.xlsx شيت رقم2.xlsx

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

عليكم السلام

تفضل أخي الكريم

يجب مراعاة أن يكون الملفين مفتوحين

 

شيت رقم 1.xlsm

[محمد هشام.]

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

عبد ادن الاخ @محي الدين ابو البشر  اليك حل اخر 

Sub FindNational_ID() 


    Dim WSdata As Worksheet, WSdest As Worksheet, i As Long
    Dim Sh1 As Variant, Sh2 As Variant
    
    Set WSdata = Feuil1
    
    Application.ScreenUpdating = False
    Set WSdest = Workbooks.Open(ThisWorkbook.Path & "\شيت رقم2.xlsx").Sheets(1)
    

    
    Sh1 = WSdest.Range("c2", WSdest.Range("c" & Rows.Count).End(xlUp)).Value
    Sh2 = WSdata.Range("C2", WSdata.Range("C" & Rows.Count).End(xlUp)).Value
    
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(Sh2, 1)
            If Not .Exists(Sh2(i, 1)) Then
                .Add Sh2(i, 1), Nothing
            End If
        Next i
        
        For i = 1 To UBound(Sh1, 1)
            If .Exists(Sh1(i, 1)) Then
                WSdest.Range("F" & i + 1).Value = WSdata.Range("N" & i + 1).Value
            End If
            
        Next i
    End With
 Workbooks("شيت رقم2.xlsx").Close True
    Application.ScreenUpdating = True
  
End Sub

 

شيت رقم 1.xlsb

تم تعديل أكتوبر 26, 2023 بواسطه محمد هشام.

[هيثم الرملى]

اشكركم زملائى الأعزاء كلا الحلين ممتازين ويفون بالمطلوب 

اسف طمعا فى كرمكم 

ممكن شرح طريقة التنفيذ كى اتمكن من تطبيق الطريقة على اى شيت اواجهه وزيادة فى كرمكم هل يمكننى التنفيذ بحيث يكون مصدر البيانات شيت 1 ويتم تصدير البيانات الى كلا من شيت 2 و شيت 3