Makro ile arama motoru

[zkssharky]

Üstadlar selamlar.

Bir müşteri portföyü oluşturmaya çalışıyorum. Daha önce YUSUF44 üstadın yardımlarıyla işin büyük çoğunluğunu halletik.

Kalan kısımda ise tekrardan sizlerin yardımına ihtiyaç duymaktayım. Ekteki dosyada "Arama Sayfası" isimli sayfada "Müşteri Ad Soyad" yazan kısma aranacak isim yazıldığında "Makrolu Sonuç" isimli sayfadan ilgili müşterinin "Tarih" sütununda yazan değeri alıp yine "Arama Sayfası" isimli sayfada "Kayıt Tarihi" yazan kısımda görmek istiyorum.

İlgili dosya: http://s6.dosya.tc/server5/kr1vi5/Fihrist_Makro.rar.html

Yardımlar için şimdiden çok teşekkürler.
İyi çalışmalar.

 

[zkssharky]

Arkadaşlar çok acil yardımlarınıza ihtiyacım var.

Teşekkürler.

 

[Orion1]

Dosyanız ektedir.

DOSYAYI İNDİR

Sub ara_bul59()
Dim ad As String, sonsat As Long, i As Long, sh As Worksheet
Dim deg As String
deg = UCase(Replace(Replace(Range("E9").Value, "i", "İ"), "ı", "I"))
If deg = "" Then Exit Sub
Range("E18").Value = Empty
Set sh = Sheets("Makrolu sonuç")
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
For i = 4 To sonsat
    ad = sh.Range("A" & i).Value & " " & sh.Range("B" & i).Value
    ad = UCase(Replace(Replace(ad, "i", "İ"), "ı", "I"))
    If deg = ad Then Range("E18").Value = sh.Range("C" & i).Value: Exit Sub
Next i
End Sub