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

Hücre Değerine Göre Otomatik Bilgi Girme, yazılan metne göre yan tarafındaki hücreye otomatik yazdırmayı öğreten kodlar içermektedir.

Hazır Kod: 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

Açıklama

• Excel'de ALT + F11 tuşlarına basarak VBA Editörünü açın.
• Sol taraftaki Project Explorer'da istediğiniz sayfaya sağ tıklayın ve "View Code" seçeneğine tıklayın.

Kullanım

Yukarıda verdiğim kodu bu sayfaya yapıştırın.

A1 hücresine Ürün Kodu, B1 hücresine Ürün Adı yazın.

A2'den itibaren alt alta P001, P002, .. P010 yazdıkça, Ürün Adı kısımlarına otomatik veri geldiğini gözlemleyin.

Sonuç yukarıdaki gibi olacaktır.

Yararlanılması temennisiyle.