بحث بالداله match

[عمر طاهر]

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

هل يمكن تعبئة الخلايا بالكود

مثلا أدخل الرمز فيكتب الصنف بالخلية المجاورة

vlookup مثلا..؟

المرفق للتعديل رجاء

ولكم شكري

01.xlsxFetching info...

[lionheart]

In worksheet module paste the following code

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x
    If Target.Row > 4 And Target.Column = 1 Then
        x = Application.Match(Target.Value, Sheets(2).Columns(1), 0)
        If Not IsError(x) Then
            Target.Offset(, 1).Value = Sheets(2).Cells(x, 2).Value
        End If
    End If
End Sub

 

[عمر طاهر]

  في 28‏/5‏/2023 at 15:48, lionheart said:

In worksheet module paste the following code

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x
    If Target.Row > 4 And Target.Column = 1 Then
        x = Application.Match(Target.Value, Sheets(2).Columns(1), 0)
        If Not IsError(x) Then
            Target.Offset(, 1).Value = Sheets(2).Cells(x, 2).Value
        End If
    End If
End Sub

 

Expand  

شكرا لك اخي 

ممنون لطفك