Comparing two cells with VBA

[lwkochis]

Hi,

I would like to compare two cells in a worksheet. If cell T5 <> U5 then a message displays. I have VBA macro that handles this and its:

If Not IsEmpty(Range("U5").Value) Then
If (Range("T5").Value <> Range("U5").Value) Then MsgBox ("<Display message>")
End If

How do I continue this for the cells from T5 to T23 and U5 to U23?

Thanks for your help.

 

[JoeMo]

try:

For i = 5 to 23
If Not IsEmpty(Range("U" & i)) Then
If (Range("T" & i).Value <> Range("U" & i).Value) Then MsgBox "Did you want something between these quote marks?"
End If
Next i

 

[Eric W]

Maybe:

    For Each c in Range("T5:T23")
        If Not IsEmpty(c) Then
            if c.Value <> c.Offset(0, 1).Value Then MsgBox ("")
        End If
    Next c

 

[lwkochis]

try:

For i = 5 to 23
If Not IsEmpty(Range("U" & i)) Then
If (Range("T" & i).Value <> Range("U" & i).Value) Then MsgBox "Did you want something between these quote marks?"
End If
Next i

Not working as I want it to. It has to compare each cell, e.g. t5 and u5; t6 and u6, etc. Not the entire range.

 

[JeanKim]

sorry to hijack the post but...
1) how is it not working?
2) that code is exactly what you asked.

 

[JoeMo]

Not working as I want it to. It has to compare each cell, e.g. t5 and u5; t6 and u6, etc. Not the entire range.

The code I posted loops through the entire range, comparing t5 to u5 then t6 to u6 ........

If there is a value in the u column cell, and it differs from the value in the t column cell, a message box pops up. Otherwise, nothing happens.

 

[lwkochis]

The code I posted loops through the entire range, comparing t5 to u5 then t6 to u6 ........

If there is a value in the u column cell, and it differs from the value in the t column cell, a message box pops up. Otherwise, nothing happens.

I am not sure why it's not working. One of the problems is that even when I enter a value in another part of the spreadsheet, other than the T or U, the message box pops up. I am placing the code in the Sheet not module. There is additional code in there as well:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Range("T5:T100"), Target) Is Nothing Then
If Target.Value = "Remote" Then
Call New_State_Taxes_Outlook
End If
End If


If Not Application.Intersect(Range("T5:T100"), Target) Is Nothing Then
If Target.Value = "Carmel" Then
Call New_State_Taxes_Outlook
End If
End If


If Not Application.Intersect(Range("R5:R100"), Target) Is Nothing Then
If Target.Value = "Yes" Then
Call Benefits_Outlook
End If
End If


For i = 1 To 23
If Not IsEmpty(Range("U" & i)) Then
If (Range("T" & i).Value <> Range("U" & i).Value) Then MsgBox "Did you want something between these quote marks?"
End If
Next i

End Sub

 

[JoeMo]

Wouldn't you think that it would be good to tell us at the outset this is to be embedded in sheet event code? The way you have inserted it, it does not constrain the cell selection to any specific range, so it fires anytime any cell on the sheet is changed. You need to decide which column you want to monitor for changes and constrain the embedded piece to that column.

Also your OP indicated T5:T23 and U5:U23 which is i = 5 to 23, not i = 1 to 23.