İki metin arasındaki farkı bulma

[muhammed yıldız]

Merhaba,

Ekte yer alan dosyada iki ayrı hücredeki metinlerin farkını nasıl bulabilirim?
Değerli yardımlarınız için şimdiden teşekkürler.

 

[Muzaffer Ali]

Merhaba.
F'de olup H'de olmayanları I'da belirtir.

Sub Fark_Bul()
    Dim Bak As Long
    Dim Satirlar As Variant
    Dim Satir As Integer
    Dim Fark As String

    For Bak = 2 To Cells(Rows.Count, "F").End(xlUp).Row
        Satirlar = Split(Cells(Bak, "F"), Chr(10))
        For Satir = 0 To UBound(Satirlar)
            If Chr(10) & InStr(Cells(Bak, "H"), Satirlar(Satir)) = 0 Then
                Fark = Fark & Chr(10) & Satirlar(Satir)
            End If
        Next
        Cells(Bak, "I") = Fark
        Fark = ""
    Next
End Sub

 

[muhammed yıldız]

Çok teşekkür ederim elinize emeğinize sağlık