السلام عليكم ورحمه الله وبركاته
كل عام وانتم بخير _ بمناسبه شهر رمضان الكريم
كيف يمكن ان يتم تفجير الكود تلقائيا بان يقوم بالقراءه الاليه لمحتويات الخلايا بالنطاق ("A2:B20") وارجاع القيمه المقابله للداله
Private Sub Worksheet_Activate
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row >= 2 And Target.Row <= 20 Then
Me.Cells(Target.Row, 4).Value = Application.WorksheetFunction.VLookup(Target.Value, Me.Range("A2:B20").Value, 2, False)
End If
End Sub