match&index

[عبدالله فريد]

السلام عليكم 

 

ارجو المساعدة في الدالة المرفقة في جلب البيانات من الجدول المرفق 

 

الشرح بالملف الاكسل 

match and index.xlsx

[حسين مامون]

جرب هذا الملف ولكن ب VBA

match and index.xlsm

[سليم حاصبيا]

جرب هذا الملف  بالطبع بعد اذن الاخ حسين مأمون

 

VL_FUNTION.xlsx

[عبدالله فريد]

سليم حاصبيا

جزاك الله كل خير تمام التمام  مشكور جدا

 

حسين مامون

مشكور جدا

[سليم حاصبيا]

اخي العزيز حسين

أرى انه لا ضرورة لحلقة تكرارية من ثاني صف في العامود C الى ان تجد ما نفتش عنه (ممكن ان يكون الرقم في الصف رقم 5000 مثلاً اذا كانت البيانات كثيرة)

يكفي ان نستعمل دالة Find في VBA  لايجاد الرقم بسرعة اكبر بكثير ،    لان هذه الدالة تضع يدها على الصف المطلوب مباشرة 

باستعمال هذا الماكرو

Sub Find_Me()
Dim rng, r%
On Error Resume Next
    With Sheets("Sheet1")
    .Range("H2") = vbNullString
    If .Range("G2") = "" Then End
        Set rng = .Range("c2", Range("c1").End(4))
        r = rng.Find(.Range("G2"), lookat:=1).Row
        If r > 0 Then .Range("H2") = .Cells(r, "D")
    End With
End Sub

 

 

[حسين مامون]

استادي سليم 

الف الف تحية 

اخي لا يمكن لي كتابة مثل هذا الماكرو مازلت مبتدءا في الاكسيل ومعرفتي في الميدان محدودة ، انتم اساتذتنا تعلمنا منكم وما زلنا 

ماكرو رائع كعادتك دائما وابدا نستمتع بأعمالك جزاك الله خيرا وحفظك وزادك علما .

تحياتي لجميع الاساتدة في المنتدى

    اخوكم في الله حسين مامون من المغرب