veri aktarma

[eseseski]

herkese ii çalışmalar
eklediğim dosyada liste sayfasına isim girdiğimizde veri sayfasındaki bilgiler ismin karşısına nasıl aktarılabilir?
bilgisi olanlar yardımcı olabilir mi?saygılarımla

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range, sh As Worksheet
If Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then Exit Sub
Set sh = Sheets("VERİ")
Set k = sh.Range("A2:A" & Rows.Count).Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Range("C" & Target.Row & ":F" & Target.Row).Value = sh.Range("B" & k.Row & ":E" & k.Row).Value
End If
End Sub

 

[eseseski]

teşekkür ederim Evren Bey sağolasınız.
Affınıza sığınarak sormak istiyorum! Bu kodu aktar butonuna yazmak isteseydik nasıl yapacaktık?

 

[Orion1]

Aktar butonunda tıkladığında isim girince otomatik veriler gelmez.
Tıklayınca gelir.

 

[eseseski]