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.
Umarım doğru anlamışımdır. Aşağıdaki kodlar, ilgili sayfanın kod bölümünde olmalı.
Kod:
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.