عند كتابة اسم الجهة تظهر المسافة على ضوء شيت المسافة

[محمد لؤي]

السلام عليكم

سؤال اعزكم الله

عند كتابة اسم الجهة المستفيدة تظهر المسافة المبينة في شيت المسافة (وجدول الموجود في شيت المسافة يتغير وفي ازدياد)

اكرمكم الله

 

المسافة.rar

[ياسر خليل أبو البراء]

وعليكم السلام أخي الكريم محمد

جرب الكود التالي في حدث ورقة العمل المسماة "الجدول"

كليك يمين على اسم ورقة العمل "الجدول" ثم اختر View Code والصق الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 2 And Target.Column = 3 Then
        Application.EnableEvents = False
            Dim iRow
            iRow = Application.Match(Target.Value, Sheet1.Columns(1), 0)
            If IsNumeric(iRow) Then
                Target.Offset(, 1).Value = Sheet1.Cells(iRow, "B").Value
            End If
        Application.EnableEvents = True
    End If
End Sub

تقبل تحياتي

 

[محمد لؤي]

السلام عليكم

استاذ ياسر ظهرت الرسالة التالية

 

[ياسر خليل أبو البراء]

ضع السطر التالي قبل سطر الخطأ

On Error Resume Next

 

[أبو حنــــين]

 

مرحبا

بعد إذن أخي ياسر يمكن ان نستعمل الدالة التالية في الخلية  D2 ونسحبها للأسفل

=IFERROR(VLOOKUP(C2;المسافة!$A$1:$B$500;2;0);"")

 

[محمد لؤي]

السلام عليكم

جزيت خيرا على الاجابة وسرعة الرد

استاذ ياسر

وضعت الكود ولكن لم احصل على نتيجة

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

 

 

 

المسافة-حل استاذ ياسر.rar

[ياسر العربى]

بعد اذن  الاخوة تفضل هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        On Error Resume Next
        Dim myrg As Range
        Set myrg = ورقة1.Range("A1:B100")
        Target.Offset(, 1).Value = ""
        Target.Offset(, 1).Value = Application.WorksheetFunction.VLookup(Target.Text, myrg, 2, 0)
    End If
End Sub

اما بخصوص كود اخي الغالي ابو البراء 
قم بتعديل من    Sheet1     الى     ورقة 1     داخل الكود

حسب الموجود لديك

[محمد لؤي]

مشكور استاذ ابو حنين

ممكن كود بدل المعادلة

[أبو حنــــين]

المعادلة ترجمها أخي ياسر العربي في مشاركته

[ياسر خليل أبو البراء]

أعتذر عن الخطأ الوارد بخصوص Sheet1 بدلاً من ورقة1 حيث أنني أعمل على ملف عندي ومسميات أوراق العمل باللغة الإنجليزية .. وأنا أفضل استخدام المسميات الإنجليزية في أسماء أوراق العمل البرمجية حتى لا يحدث لبس في الأكواد .. ربما تعودت على ذلك

بخصوص الكود يعمل بشكل جيد لدي ولا أدري ما السبب في أنه لا يعمل لديك

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

 

[محمد لؤي]

جزيتم خيرا

كود استاذ العربي - يعمل 100%