Seçilecek Hücre Adresini Formülle Belirlemek

[baydeniro]

Merhaba Arkadaşlar,

DATA sayfası D sütununa bir № yazıldığında aynı satırdaki REFERANS bilgisini; KAYIT sayfası E sütununda ilgili numaranın satırına yazması mümkün mü ?

Örnek dosya linki : https://yadi.sk/i/f96UYQb5xvY1IQ

 

[Korhan Ayhan]

KAYIT sayfası E2 hücresine uygulayınız.

=EĞERHATA(İNDİS(DATA!A:A;KAÇINCI(KAYIT!A2;DATA!D:D;0));"")

 

[baydeniro]

Korhan Ayhan Üstadım ilginize çok teşekkür ediyorum. Acaba bunu kod ile yapmanın bir yolu var mıdır !

 

[Korhan Ayhan]

DATA sayfanızın kod bölümüne uygulayıp deneyiniz.

"D" sütununa veri girişi yaptıkça kod çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D2:D" & Rows.Count)) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        Set Bul = Sheets("KAYIT").Range("A:A").Find(Target, , , xlWhole)
        If Not Bul Is Nothing Then Bul.Offset(0, 4) = Target.Offset(0, -3)
    End If
End Sub

 

[baydeniro]

Korhan Ayhan üstadım mükemmel bir kod. Elinize, aklınıza sağlık. Çok çok teşekkür ediyorum. Sağlıcakla kalın.