İki datanın ilk 3 harfini karşılaştırma

[sldrkyurdal]

Merhaba,
A ve B sütünunda datalarım var iki data bulunan isimleri ilk üç harfine göre karşılaştırmak istiyorum makro ile nasıl yapabilirim teşekkürler

 

[antonio]

Merhaba,
Aşağıdaki kod size fikir verecektir.

Sub karsilastir()
With Sheets("Sayfa1") ' işlem yaptığınız sayfanın adı
For i = 2 To 20 'örnekte 20 son satırdır.
    a = Left(.Range("A" & i).Value, 3)
    b = Left(.Range("B" & i).Value, 3)
    If a = b Then
        MsgBox "Değerler birbiine eşit", vbInformation, "antonio"
    Else
        MsgBox "Değerler farklı, uyuşmuyor", vbExclamation, "antonio"
    End If
Next i
End With
End Sub

 

[sldrkyurdal]

Teşekkür ederim 1 to 20 olarak yazdığınız bunu yandaki şutunun sayısı kadar nasıl yapabilirim

 

[antonio]

With Sheets("Sayfa1") ' işlem yaptığınız sayfanın adı
son = .Range("A:B").Find("*", , , , xlByRows, xlPrevious).Row   'A ve B sütunlarının bulunduğu alandaki son satır
End With

 

[sldrkyurdal]

Teşekkürler

 

[antonio]

Rica ederim.