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

**ناصرالمصرى** · نوفمبر 2

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

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

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

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

Book1.xlsx

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

**محمد هشام.** · نوفمبر 2

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

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

=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