• DİKKAT

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

Makro ile arama motoru

Katılım
2 Mayıs 2013
Mesajlar
8
Excel Vers. ve Dili
2007
Ü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.
 
Arkadaşlar çok acil yardımlarınıza ihtiyacım var.

Teşekkürler.
 
Dosyanız ektedir.:cool:

DOSYAYI İNDİR

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