Bir Listeden Veri Seçmek

[dipterus]

Selamlar. Öncelikle aşağıda açıklamaya çalışacağım konu daha önce işlendiyse özür dilerim. Belkide doğru kelimeleri bulamadığım için yaptığım aramalarda bir sonuca ulaşamadım.

Yardımınızı istediğim konu "eleman" formülünde ki gibi bir hücreye bir kod yazıldığında yanında ki hücreye o koda ait bilgilerin otomatik olarak yazılmasını sağlamak.

Örneğin SONUÇ sayfası içerisinde A sütununa alt alta TK1, TK2, TK3 gibi kodlar yazıldığında B sütununa A'da yanına gelecek şekilde ve VERİ sayfası içerisinden çekilen TK1 in içeriği, TK2 in içeriği, TK3 ün içeriği şeklinde bilgi çekilmesidir. Ayrıca kod olarak TK0 yazıldığında yanında ki alan boş kalmalı ve açıklama manule olarak girilebilmelidir. Elbette bu kod ve içeriği yüz belki daha fazla kodu ve kod bilgisi içerecektir.

Örnek Sayfa: https://yadi.sk/i/Paf1OFSifqCBf

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Link:
http://s3.dosya.tc/server/uxdxz4/dipterus-OrnekSayfa.zip.html

 

[vardar07]

Merhaba. Gerçi muygun arkadaş cevap vermiş. Aşağıdaki kod alternatif olsun.
Ayrıca Örnek Konu inceleyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Set S1 = Sheets("Veri")
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
If Target.Value = "TK0" Then
Target.Offset(0, 1) = ""
Else
Target.Offset(0, 1) = WorksheetFunction.VLookup(Target, S1.[A:B], 2, 1)
End If
End Sub