Hücre Değerine Göre Otomatik Bilgi Girme

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim productCode As String
    Dim productName As String
   
    If Not Intersect(Target, Range("A2:A11")) Is Nothing Then
        productCode = Target.Value
       
        Select Case productCode
            Case "P001"
                productName = "Kalem"
            Case "P002"
                productName = "Defter"
            Case "P003"
                productName = "Silgi"
            Case "P004"
                productName = "Cetvel"
            Case "P005"
                productName = "Makastar"
            Case "P006"
                productName = "Dosya"
            Case "P007"
                productName = "Zımba"
            Case "P008"
                productName = "Yapıştırıcı"
            Case "P009"
                productName = "Kalemtraş"
            Case "P010"
                productName = "Şerit"
            Case Else
                productName = "Bu koda tanımlı Ürün yok"
        End Select
       
        Target.Offset(0, 1).Value = productName
    End If
End Sub