Açılır listeyi farklı çağırma

[cevax]

Arkadaşlar elimdeki dosyada VERİ sayfasında olan bilgileri GİRİŞ sayfasına getirebiliyorum. Yapmak istedigim açılır liste bozulmadan bir üst satıra ID girdiğim zaman açılır listede de o kişinin gelmesi.



Arkadaşlar ekteki dosya örnek bir dosyadır. KEndi dosyam çok büyük ve üçüncü sahış bilgileri içerdiği için paylaşmadım



https://1drv.ms/x/s!AiW6r_A_-A9_l40BVjT_BAfPCsHMCw

 

[çıtır]

Böyle bir çözüm mü? Sorunuzu anlayabildiğim kadar yapmaya çalıştım. Kolay gelsin

http://s6.dosya.tc/server8/2whr3d/Liste.rar.html

 

[cevax]

ilgin için teşekkür ederim. istediğim tam olarak. açılır liste olduğu gibi kalacak ve ID kısmına yazdığım zaman aynı zamnda açılır listede değişecek. hem ıd den hemde açılır listeden işimi yapmak istiyorum her ıkısınıde kullanabilmeliyim

 

[PLİNT]

Merhaba
İstediğiniz ek dosyadaki gibimi? bir denermisiniz?
http://s3.dosya.tc/server11/9ewrcb/soru.zip.html

[SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$4" Then Exit Sub
Set s1 = Sheets("GİRİŞ")
Set s2 = Sheets("VERİ")
Set r = s2.[B:B].Find(Range("c4").Value, , , xlWhole)
If Not r Is Nothing Then
s1.Range("c5") = s2.Cells(r.Row, "A")
Else
MsgBox "ARADIĞINIZ ID BULUNAMADI"
End If
End Sub[/SIZE]

 

[cevax]

Elin ayağın dert görmesin arkadaşım. teşekkür ederim tam da istediğim buydu.

 

[çıtır]

Alternatif olarak bu çözüm olabilir mi?

http://s6.dosya.tc/server8/a9znux/Liste2.rar.html