Soru Farklı Sayfalardan Veri Çekme

[mc_exrem]

Merhabalar üstadlarım,

Çalışma dosyamın SRYA AL sayfasının J16 hücresine isim soyisim yazdığımda, J17 ve J18 hücrelerine İCRA D. sayfası aynı isim soyisimdeki personelin en eski TEBLİĞ TARİHLİ İcra Dairesini ve Dosya Numarasını çekmek istiyorum.

Örneğin İCRA D sayfasında KEMAL ŞEN' e ait 4 SATIR veri bulunmaktadır. Bunların en eski tebliğ tarihli olan
J17 hücresine: Bursa 14. İcra Dairesi
J18 hücresine 2020/5094 verilerini çekmesini talep ediyorum.

Yardımlarınız için teşekkür eder saygılar sunarım.

 

[dEdE]

Merhaba,
Sorunuzu Fonksiyon Soruları bölümüne sormuşsunuz ama dosyanızda çok sayıda kod olduğu için ben de kod önerdim. Aşağıdaki kodu SRYA AL sayfasının kod bölümüne yapıştırarak dener misiniz?
Öneri:
-İCRA D. sayfasında olduğu gibi sayfa adlarında nokta(.) karakteri kullanmayın. Kodlamada sorun çıkarır.
-Kodun doğru sonuç vermesi için aynı kişiye ait dosya tarihleri küçükten büyüğe sıralı olmalıdır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [J16]) Is Nothing Then Exit Sub
Set S1 = Sheets("SRYA AL")
Set S2 = Sheets("İCRA D.")
ss2 = S2.Cells(Rows.Count, "A").End(3).Row
s1.Range("J17:J18") = ""
    For j = 2 To ss2
        If S1.Range("J16") = S2.Cells(j, 2) Then
            S1.Range("J17") = S2.Cells(j, 3)
            S1.Range("J18") = S2.Cells(j, 4)
            Exit Sub
        End If
    Next j
    MsgBox "Kayıt Bulunamadı", vbInformation, "DİKKAT !"
End Sub

 

[mc_exrem]

Çok teşekkür ederim hocam

Ellerinize sağlık. Sayfadaki noktaları silerek kodu düzelttim.

Kod ile daha iyi oldu.