Veri Aktarma Makro Yöntemi İle

[volki79]

iyi günler arkadaşlar;

Her zaman kullanmış olduğum excell tablosunda, 2 sayfadan veya 3 sayfadan oluşuyor. Bilgileri Ana_Sayfaya toplama için hep düşeyara kullanmaktayım. Ektedi dosyada anasayfaya T.C. kimlik numaraları girdiğimde, Bilgiler sayfasından Ünvan, Ekgösterge veya benzeri değerleri Ana Sayfada ilgili kısımlara makro ile getirebilir miyim, kısaca yol tuşu kullanarak. Bu konuda yardım edebilir misiniz? Yardımlarınız için şimdiden çok teşekkür ederim.


http://dosya.co/zu22eulvm1uj/Personel_Yemek.xls.html

 

[vardar07]

G Sütununa TC yi girip enter leyince çalışır.Sayfanın kod bölümüne ekleyip deneyiniz. Kod mantığına göre diğerlerini düzenleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Set sb = Sheets("Bilgiler")
If Intersect(Target, Range("G2:G" & Cells(Rows.Count, "G").End(3).Row)) Is Nothing Then Exit Sub
Set bul = sb.Range("C:C").Find(Cells(Target.Row, "G"))
Cells(Target.Row, "A") = WorksheetFunction.Max(Range("A2:A" & Target.Row)) + 1
Cells(Target.Row, "B") = sb.Cells(bul.Row, "A")
Cells(Target.Row, "C") = sb.Cells(bul.Row, "B")
End Sub