İsimleri eşleştirme yüzdesi

[sldrkyurdal]

Arkadaşlar merhaba,

Bir konuda desteğinize ihtiyacım var a ve b satırlarında isimler yazıyor bu isimleri aynı olup olmadığını teyit etmek için % karşılaştırmak istiyorum desteğinizi rica ederim.
teşekkürler,

​

 

[ÖmerBey]

Merhaba,
Bence çok doğru bir mantık değil ama aşağıdaki kodlar sizin örneğinize göre doğru sonuç üretiyor, deneyiniz...

Sub Kod()
Dim a As Long, b As Integer, say As Integer, met1 As String, met2 As String
For a = 2 To Cells(Rows.Count, "B").End(3).Row
    met1 = Cells(a, "B")
    met2 = Cells(a, "C")
    For b = 1 To Len(met1)
        If InStr(1, met2, Mid(met1, b, 1)) > 0 Then
            say = say + 1
        End If
    Next
    Cells(a, "D") = say / Len(met1) * 100
    say = 0
Next
End Sub

 

[tukayf]

https://www.excel.web.tr/threads/suetun-karsilastirma.178129/
Sayın hocam konuyu inceleyebilir misiniz. Bende buna benzer bir şeyler arıyorum mümkünse geliştirebilirseniz merhem olacaktır bana. A da bulunan bir veriyi aynen b ye kopyaladığımda %100 vermesi gerekirken vermiyor.

 

[sldrkyurdal]

Merhaba,
Bence çok doğru bir mantık değil ama aşağıdaki kodlar sizin örneğinize göre doğru sonuç üretiyor, deneyiniz...

Sub Kod()
Dim a As Long, b As Integer, say As Integer, met1 As String, met2 As String
For a = 2 To Cells(Rows.Count, "B").End(3).Row
    met1 = Cells(a, "B")
    met2 = Cells(a, "C")
    For b = 1 To Len(met1)
        If InStr(1, met2, Mid(met1, b, 1)) > 0 Then
            say = say + 1
        End If
    Next
    Cells(a, "D") = say / Len(met1) * 100
    say = 0
Next
End Sub

Çok teşekkürler

 

[tukayf]

Sn. Ömerbey kodlarınızda farklı bir mantık mı var. Benim yaptığım denemelerde hatalı sonuçlar getiriyor.

 

[ÖmerBey]

Sayın tukayf, kodlar B sütununda yer alan kelimedeki harfleri C sütunundaki aynı satırdaki diğer kelimede arıyor ve bulduğu harf sayısının tüm harflere oranı eşleştirme oranını veriyor. Yukarıda da belirttiğim gibi bence çok mantıklı bir sorgulama değil...
Sizin açtığınız konuyu da inceledim ve bu kod sizin kullanacağınız mantıkta bir kod değil maalesef.

 

[tukayf]

Anladım hocam açıklama için çok teşekkürler.