ilk dört harfi aynı olanları nasıl görebilirim

[numb999]

mehaba daha önce farklı bir konuda başlığı altında sorunumu yazdım. fakat çözememiştik. soru ilkine benziyor ama biraz farklı.

soru: A ve B olmak üzere 2 sutun olsun. A2 ve B2 yazılan metinlerden ilk dört harfi aynı olanları görmek istiyorum. bu mümkünmüdür?

ekte dosya mevcuttur.

 

[uzmanamele]

merhaba
ilk basit alternatif benden olsun, bu formüle bel bağlamayın.
bu tablo için doğru ama bir isim kayarsa sonuç yanlış olur.

=EĞER(PARÇAAL(B2;1;4)=PARÇAAL(C2;1;4);B2;"")

 

[omerceri]

Aşağıdaki formülü kullanın
=EĞER(SOLDAN(B3;4)=SOLDAN(C3;4);1;0)

 

[Ayhan Ercan]

Merhaba Sn numb999

Makrolusu da benden olsun..

Ek Dosyayı "KARŞILAŞTIR" düğmesini çalıştırarak inceleyiniz...

Private Sub CommandButton1_Click()
Dim hcr As Range, son As Long
son = Range("b65536").End(3).Row
    For Each hcr In Range("b2:b" & son)
        If Left(hcr, 4) = Left(hcr.Offset(0, 1), 4) Then
            hcr.Offset(0, 2) = "AYNI"
        Else
            hcr.Offset(0, 2) = "AYNI DEĞİL"
        End If
    Next
End Sub

 

[numb999]

Ayhan ercan hocam çoş teşekkür ederim. fakat birşey daha rica edebilrimiyim.
makro dan pek anlamıyorum da ben.sağ tarafa birkaç satır daha ekledim. "H" sutununda sonuç çıkacak şeklinde makroyu yeniden düzenlebilirmiyiz.

teşekkür ederim.

 

[Ayhan Ercan]

Ayhan ercan hocam çoş teşekkür ederim. fakat birşey daha rica edebilrimiyim.
makro dan pek anlamıyorum da ben.sağ tarafa birkaç satır daha ekledim. "H" sutununda sonuç çıkacak şeklinde makroyu yeniden düzenlebilirmiyiz.

teşekkür ederim.

Merhaba Sn numb999

Dosyanız ekte....

 

[numb999]

çok teşekkür ederim. çok işime yaradı.