نسخ المرتب من عمود N الى العمود G في حالة وجود الرقم القومي

[رجب مرسي]

البحث عن الرقم القومي الموجود في جدول رقم 2  في الجدول رقم 1 في حالة وجود الرقم القومي يتم كتابة المرتب الموجود في الجدول الثاني امام كل رقم قومي موجود اذا لم يجد الرقم القومي تظل خانة المرتب اصفار كما هي

نسخ المرتب من  عمود N الى العمود G في حالة وجود الرقم القومي وجزاكم الله خيرا

البحث.xlsx

تم تعديل أكتوبر 12, 2023 بواسطه رجب مرسي

[محمد هشام.]

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

تفضل اخي 

Sub Recher_des_valeurs()

Dim MyRng As Range, MyCell As Range
Set WSdata = Sheets("Sheet1")

Application.ScreenUpdating = False

With WSdata
 
 .Range("E3", Range("E" & Rows.Count).End(4)).ClearContents

    For Each MyRng In .Range("B3:B" & .Cells(Application.Rows.Count, 2).End(xlUp).Row)
    Set MyCell = .Columns(9).Find(MyRng.Value, , xlValues, xlPart)
        If Not MyCell Is Nothing Then MyRng.Offset(, 3).Value = MyCell.Offset(, 3).Value Else MyRng.Offset(, 3).Value = 0
             
  Next MyRng

End With

Application.ScreenUpdating = True
End Sub

 

 

البحث 2.xlsb

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

[بحار الاكسس]

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

لان عملت معادلة صغير تقرا من sheet 1 وتعطى النتائج فى Sheet2

وكلنا نجتهد لارسال المعلومة 

وشكرا

 

البحث.xlsx

[أ / محمد صالح]

بعد اذن الأخوة المشاركين في الوصول للحل

المطلوب محالف للمرفق

أعتقد المطلوب البحث في جدول 2 عن الرقم القومي الموجود في جدول 1

وكتابة المرتب من العمود L إلى العمود E في نفس الشيت الأول

وإذا كان هذا المطلوب فعلا

فيكطم استخدام معادلة بحث عادية vlookup أبسطها

=IFERROR(VLOOKUP(B3,$I$3:$L$15,4,0),0)

بالتوفيق

البحث.xlsx

[محمد هشام.]

شكرا أستاد   @أ / محمد صالح  على الاشارة لاكن على ما يبدو أن الأخ @رجب مرسي قد قام بتعديل الملف بعد رفعه أول مرة بحيث كنت أنا قد حملت الملف يوم امس لاكن لم يكن لدي الوقت لكتابة الكود لم أنتبه أنه قام بتغيير  تموضع الأعمدة  دون أن يقوم بتعديل عنوان المشاركة

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

بالتوفيق أخي @بحار الاكسس

 

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

[رجب مرسي]

وفيتم وكفيتم شكرا للجميع جربت كل الحلول وكانت ممتازة اشكرو على تعاونكم