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

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


إذهب إلى أفضل إجابة Solved by محمد هشام.,

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

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

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

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

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

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

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

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

  • أفضل إجابة

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

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

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

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

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

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

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

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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information