en yakın metni bulma

[Bakigemlik]

Arkadaşlar elimde bir isim listesi var, ben bu isim listesine karşılık gelen başka bir listeden değerleri getirmek istiyorum, düşeyara formulüyle denedim ama sonuç alamadım başka yolu nedir desteğinizi rica ederim,

 

[Murat OSMA]

Deneyiniz;

[FONT="Trebuchet MS"]=EĞERHATA(ARA(9,99999999999999E+307;MBUL(A16;Sayfa2!$A$2:$A$164);Sayfa2!$B$2:$B$164);"")[/FONT]

 

[Bakigemlik]

Deneyiniz;

[FONT="Trebuchet MS"]=ARA(A2;Sayfa2!A:A;Sayfa2!B:B)[/FONT]

ilginiz için teşekkürler ama bu doğru sonuç vermedi,

Örnek; Sayfa 1 de Bahadır BOL ismi var ama sayfa 2 de yok onuda getiriyor,

 

[Murat OSMA]

Düzenledim tekrar deneyiniz.

 

[Bakigemlik]

Düzenledim tekrar deneyiniz.

murat Bey ne yazık ki sonucu yine alamadım ekte kırmızı ile işaretlediklerim sayfa 2 de olmamasına rağmen geliyor diğerlerinde de olmasına rağmen gelmiyor

 

[Murat OSMA]

Bendeki durum bu şekilde;

Siz ilk hücredeki formülde A2 yerine A16 yazmışsınız.

 

[Mahir64]

Merhaba,

Araya gidereğim, kusura bakmayın.
Murat Bey'in verdiği ve C2 hücresine uyguladığınız formül,

=EĞERHATA(ARA(9,99999999999999E+307;MBUL([COLOR=Red]A17[/COLOR];Sayfa2!$A$2:$A$164);Sayfa2!$B$2:$B$164);"")

Neden A17 hücresini referans alıyor.

--

 

[Bakigemlik]

Merhaba,

Araya gidereğim, kusura bakmayın.
Murat Bey'in verdiği ve C2 hücresine uyguladığınız formül,

=EĞERHATA(ARA(9,99999999999999E+307;MBUL([COLOR=Red]A17[/COLOR];Sayfa2!$A$2:$A$164);Sayfa2!$B$2:$B$164);"")

Neden A17 hücresini referans alıyor.

--

umarım bende hata yoktur hala Bilal Güner ve Alı Ozanadolu isimleri bulunmadı

 

[ZorBey_]

Merhaba İyi Çalışmlar.
Noktalara Dikkat
Sayfa1 = BILAL GUNER
Sayfa2 = BİLAL GÜNER

Sayfa1 = ALI OZANADOLU
Sayfa2 = ALİ ÖZANADOLU

 

[Bakigemlik]

Merhaba İyi Çalışmlar.
Noktalara Dikkat
Sayfa1 = BILAL GUNER
Sayfa2 = BİLAL GÜNER

Sayfa1 = ALI OZANADOLU
Sayfa2 = ALİ ÖZANADOLU

bende bundan dolayı çözemiyorum liste çok uzun ve 2 farklı yerden geliyor bunlardan biri türkçe karakter diğeri ingilizce tek tek düzeltmek sorun oluyor nasıl bir yol izlemeliyim,

teşekkürler,

 

[Murat OSMA]

Makro ile bu şekilde bir çözüm önerebilirim;

[FONT="Trebuchet MS"]Option Base 1
Sub Emre()
    For i = 2 To Range("A65536").End(3).Row
        Columns("A:A").Replace What:=Cells(i, 4).Value, _
        Replacement:=Cells(i, 5).Value, LookAt:=xlPart
    Next i
    Call Getir
End Sub
Sub Getir()
    Dim i%, Evn(), dizi1, dizi2, Rky As Range
    For Each Rky In Sayfa2.Range("A2:A164")
       For i = 2 To Range("A65536").End(3).Row
            dizi1 = Split(Cells(i, 1), " ")
            dizi2 = Split(Rky.Value, " ")
            ReDim Preserve Evn(1, 1 To 2)
            Evn(1, 1) = dizi1(0)
            Evn(1, 2) = dizi1(1)
            If Evn(1, 1) = dizi2(0) And Evn(1, 2) = dizi2(1) Then
                Cells(i, 2) = Rky.Offset(0, 1).Value
            End If
        Next i
    Next Rky
    Erase Evn: Erase dizi1: Erase dizi2: Set Rky = Nothing: i = Empty
End Sub[/FONT]

Sonuç

Dosyayı da ekliyorum.

 

[Bakigemlik]

Makro ile bu şekilde bir çözüm önerebilirim;

[FONT="Trebuchet MS"]Option Base 1
Sub Emre()
    For i = 2 To Range("A65536").End(3).Row
        Columns("A:A").Replace What:=Cells(i, 4).Value, _
        Replacement:=Cells(i, 5).Value, LookAt:=xlPart
    Next i
    Call Getir
End Sub
Sub Getir()
    Dim i%, Evn(), dizi1, dizi2, Rky As Range
    For Each Rky In Sayfa2.Range("A2:A164")
       For i = 2 To Range("A65536").End(3).Row
            dizi1 = Split(Cells(i, 1), " ")
            dizi2 = Split(Rky.Value, " ")
            ReDim Preserve Evn(1, 1 To 2)
            Evn(1, 1) = dizi1(0)
            Evn(1, 2) = dizi1(1)
            If Evn(1, 1) = dizi2(0) And Evn(1, 2) = dizi2(1) Then
                Cells(i, 2) = Rky.Offset(0, 1).Value
            End If
        Next i
    Next Rky
    Erase Evn: Erase dizi1: Erase dizi2: Set Rky = Nothing: i = Empty
End Sub[/FONT]

Sonuç

Dosyayı da ekliyorum.

çok teşekkürler

 

[Murat OSMA]

Rica ederim, iyi günler.