• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Seçilecek Hücre Adresini Formülle Belirlemek

Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
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
 
KAYIT sayfası E2 hücresine uygulayınız.

Kod:
=EĞERHATA(İNDİS(DATA!A:A;KAÇINCI(KAYIT!A2;DATA!D:D;0));"")
 
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.

Kod:
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
 
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.
 
Geri
Üst