Sabit hücreden veri girişi

[saydn]

Merhaba arkadaşlar, tablomda sabit bir hücreye veri girdikçe bu verilerin ilgili sütuna sorgulama yaparak aktarılması gerekmekte bununla ilgili yardımcı olursanız çok sevinirim, örnek dosyada açıklama mevcut.

 

[Necdet]

Merhaba,

Umarım doğru anlamışımdır. Aşağıdaki kodlar, ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E2]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Set Bul = [B:B].Find(Target.Value)
Application.EnableEvents = False
If Bul Is Nothing Then
    Target = "Kayıtlarda Yok"
Else
    Cells(Bul.Row, "C") = Target
End If
Application.EnableEvents = True
End Sub

 

[saydn]

Evet doğru anlamışsınız sn.yeşertener yardımınıza çok ama çok teşekkür ederim.

 

[Necdet]

Rica ederim, güle güle kullanınız.