Match two different columns

[elmnas]

Hello people

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

[elmnas]

I got this code so far:


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

'how do I alert the found value and make string here??


End If
Next r
End Sub

[elmnas]

Sub CheckMatch()
For i = 2 To 230
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
End Sub




I got this code so far
but I do specify how the cells count 2 to 230

how do I modify the code it goes to the last row that have no value?

[mancubus]

see my post in below threads of yours:
http://www.vbaexpress.com/forum/showthread.php?52693-Compare-two-cell-in-two-columns-and-present-in-new-column
and
http://www.vbaexpress.com/forum/showthread.php?52705-Need-to-loop-until-last-cell-need-to-modify

[elmnas]

Thank you mancubus!