Sanırım eşleştirme olmalı

[qwert11]

Arkadaşlaar iyi geceler formlarda aradım ama tam istediğim gibi bulamadım .elimde tek çalışma kitabında bir kaçtane sayfa var örnek dosyada açıklamaya çalıştım ama burda da tkrar belirtmek isterim.hücredeki bir bilgiye başka bir hücredeki bilgiyi tanımlamak istiyorum ve herhangi bir hücrede ben o değeri girdiğimde eşleştirdiğim değeri yazmasını istemekteyim elimdeki dosya oldukça büyük olduğundan örnek olması için aşağıdaki dosyayı ekledim.şimdiden yardımlarınız için çok teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim S1 As Worksheet
    Dim Bul As Range
    
    Set S1 = Sheets("KARŞILIKLARI OLAN BİLGİLER")
    
    If Target <> "" Then
        Application.EnableEvents = False
        Set Bul = S1.Range("B:B").Find(Target, LookAt:=xlWhole)
        If Not Bul Is Nothing Then
            Target.Next = Bul.Offset(0, -1)
        Else
            Target.Next = ""
            MsgBox "Aranan değer bulunamadı !", vbExclamation
        End If
        Application.EnableEvents = True
    End If
 
    Set Bul = Nothing
    Set S1 = Nothing
End Sub