kayıt no verme

[aydgur]

belki tam anlatamam diye dosya yoluyorum , şimdiden teşekkürler..

 

[Orion1]

Dosyanız ekte.

=KAYDIR(İNDİS(DOLAYLI(E2&"!A:A");(BAĞ_DEĞ_DOLU_SAY(DOLAYLI(E2&"!A:A")));1);1;2)

 

[ozgretmen]

Alternatif isterseniz:
Sayfa1 in kod yapısına ekleyiniz.İyi çalışmalar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E2:E65536]) Is Nothing Then Exit Sub
j = ActiveCell.Row - 1
i = Sheets(Cells(j, 5).Text).[D65536].End(xlUp).Row + 1
Cells(j, 22).Value = Sheets(Cells(j, 5).Text).Cells(i, 3).Value
End Sub

 

[aydgur]

Sn.Gizlen ve sn.ozgretmen çok teşekkür ederim.

 

[ozgretmen]

Rica ederim.iyi çalışmalar