دالة البحث من ورقة إلى أخرى

[ناصرالمصرى]

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

لدى هذا الملف يحتوى على ورقتين " الرئيسية / بحث"

أريد معادلة لتحقيق ما فى داخل الملف أو ربما هناك الأفضل

شاكر فضل حضراتكم وجزاكم الله خيرا

 

 

Book1.xlsx

تم تعديل نوفمبر 2, 2024 بواسطه ناصرالمصرى

[محمد هشام.]

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

 جرب إحدى المعادلات التالية 

=IFERROR(INDEX(الرئيسة!B:B, MATCH(H6, الرئيسة!A:A, 0)),"")

او

=IFERROR(VLOOKUP(H6,الرئيسة!A:B, 2, FALSE),"")

او استخدام الأكواد 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$H$6" Then
        Dim tmp As String, Rng As Range, References As Variant
        tmp = Target.Value
        Set Rng = Me.Range("I6")
        
        If tmp = "" Then: Rng.Value = "": Exit Sub
        
        On Error Resume Next
        References = Application.WorksheetFunction.VLookup(tmp, _
                          Sheets("الرئيسة").Range("A:B"), 2, False)
        On Error GoTo 0

        If Not IsError(References) Then
            Rng.Value = References
        End If
    End If
End Sub

 

Book1.xlsx

[ناصرالمصرى]

شكرا جزيلا أخى الكريم

عندما وضعت الكود الخاص بكم فى حدث ThisWorkbook أو الورقة الرئيسية أو ورقة البحث لم يعمل معى

ربما لإختلاف الإصدارات علما بأننى أعمل على أوفيس 2010 

يمكنك إرسال ملف أخر أخى الفاضل وشاكر فضل حضرتك

[محمد هشام.]

 

Book1.xlsb

[ناصرالمصرى]

عفوا سيدى الفاضل

الخطأ من عندى حيث يوجد خطأ بكلمة الرئيسية

جزاكم الله خيرا وبارك فيكم