Need help to compare /equal

[elmnas]

Hello guys
script that loops through cells in column J and K

I need a statement

if the textcontent in a cell in Column J and Column K same row have same value example "test" then do something

alert the instances


Could someone help me ?

Thank you in advance

 

[Michael M]

Do what, when the match is found ??

Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "J").End(xlUp).Row
For r = lr To 1 Step -1
    If Range("J" & r).Value = Range("K" & r).Value Then
        'do soemthing
    End If
Next r
End Sub

 

[elmnas]

Do what, when the match is found ??

Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "J").End(xlUp).Row
For r = lr To 1 Step -1
    If Range("J" & r).Value = Range("K" & r).Value Then
        'do soemthing
    End If
Next r
End Sub

Make a string of the found and alert it

 

[elmnas]

I would like to have a msgbox that alert the found value (also make a string) is it possible?

 

[elmnas]

already solved

Sub CheckMatch()
For i = 4 To 210
    If Cells(i, "J") = Cells(i, "K") And Len(Cells(i, "B")) <> 0 And Cells(i, "AB") <> 0 Then
    MsgBox "Row " & i & " match"
    
    
    End If
Next i