e okula kitap girilmesi

[murat23351]

selam arkadaşlar kolay gelsin. dün nette dolaşırken e okula kitap girilmesi diye dosyalar vardı indirip baktım içindeki excel dosyasını inceledim öğrenci numarası ,kitap adı ve sayfas sayısını sürekli tek tek yazmaktansa sayfa1 deki gibi pratik çözüm buldum ama bir türlü sayfa1 deki öğrenci numarasının yanına kitap sıra no sunu girdiğimde kitap1 sayfasındaki ilgili yere öğrenci numarasını,sayfa sayısını ve kitap adını yazdıramadım... mümkünse bir el atabilirmisiniz....
HerŞey Eğitim İçin..

 

[murat23351]

kodu buldum sitede öğretmen arkadaşlar varsa bunu indirip imacroyla denesinler

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b2:aj60")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) = False Or Target.Value = "" Then Exit Sub
son = Sheets("Kitap1").Range("a65536").End(3).Row + 1
Sheets("Kitap1").Cells(son, 1).Value = Cells(Target.Row, 1).Value
Sheets("Kitap1").Cells(son, 3).Value = Cells(Val(Target.Value) + 1, "al").Value
Sheets("Kitap1").Cells(son, 2).Value = Cells(Val(Target.Value) + 1, "am").Value
End Sub