İki metin arasındaki farkı bulma

muhammed yıldız

Altın Üye
Katılım
22 Aralık 2008
Mesajlar
154
Excel Vers. ve Dili
Excel 2019İngilizce
Altın Üyelik Bitiş Tarihi
18-08-2028
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.
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
F'de olup H'de olmayanları I'da belirtir.

Kod:
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

Altın Üye
Katılım
22 Aralık 2008
Mesajlar
154
Excel Vers. ve Dili
Excel 2019İngilizce
Altın Üyelik Bitiş Tarihi
18-08-2028
Çok teşekkür ederim elinize emeğinize sağlık
 
Üst