هيثم الرملى قام بنشر أكتوبر 25, 2023 مشاركة قام بنشر أكتوبر 25, 2023 السلام عليكم اصدقائي المحترمين اولا اشكر كل القائمين علي الصفحه جزاهم الله خيرا ثانيا الرجاء من سيادتكم التكرم بمساعدتى فى كود لترحيل البيانات من صف معين فى شيت لصف معين فى شيت اخر بناء على الرقم القومى مثال فى الشيت رقم 1 موجود بيانات العاملين لدى الاسم والرقم القومى وقيمة المرتب بعد احتساب اجمالى المرتب وفى الشيت رقم 2 موجود بيانات العاملين الاسم والرقم القومى لكن بترتيب اخر ارغب فى استيراد اجمالى المرتب الموجود فى الشيت رقم 1 الى الشيت رقم 2 طبقا للرقم القومى شيت رقم 1.xlsx شيت رقم2.xlsx رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر أكتوبر 25, 2023 مشاركة قام بنشر أكتوبر 25, 2023 عليكم السلام تفضل أخي الكريم يجب مراعاة أن يكون الملفين مفتوحين شيت رقم 1.xlsm 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر أكتوبر 26, 2023 أفضل إجابة مشاركة قام بنشر أكتوبر 26, 2023 (معدل) وعليكم السلام ورحمة الله تعالى وبركاته عبد ادن الاخ @محي الدين ابو البشر اليك حل اخر 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 بواسطه محمد هشام. رابط هذا التعليق شارك More sharing options...
هيثم الرملى قام بنشر أكتوبر 26, 2023 الكاتب مشاركة قام بنشر أكتوبر 26, 2023 اشكركم زملائى الأعزاء كلا الحلين ممتازين ويفون بالمطلوب اسف طمعا فى كرمكم ممكن شرح طريقة التنفيذ كى اتمكن من تطبيق الطريقة على اى شيت اواجهه وزيادة فى كرمكم هل يمكننى التنفيذ بحيث يكون مصدر البيانات شيت 1 ويتم تصدير البيانات الى كلا من شيت 2 و شيت 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها