Comparing two cells with delineated values using VBA

[bardcaco]

I have data in two cells that is comma separated. I want to compare the values in these cells without copying them to new cells if possible.

So if I have list of names, say,
Cell A1: Person X, Person Y
Cell A2: Person Y, Person X

I want the comparison to return that the values are equal (without caring about the order).

Is there a way to do this?

Thanks.

 

[JLGWhiz]

See if you can use this"

Sub equate()
Dim Nm1 As Variant, Nm2 As Variant
Nm1 = Split(Range("A1").Value, ",")
Nm2 = Split(Range("A2").Value, ",")
    If UBound(Nm1) <> UBound(Nm2) Then
    MsgBox "Not Equivalent6"
    Exit Sub
    End If
    For i = LBoundINm1 To UBound(Nm1)
        If InStr(Range("A2").Value, Nm1(i)) = 0 Then
            MsgBox "Not Equivalent"
            Exit Sub
        Else
            MsgBox "Equivalent Cell Value"
    End If
    Next
End Sub

 

[JLGWhiz]

Hold up on this. It contains a typo and I am getting an anomaly after I made the correction.

 

[JLGWhiz]

Hold up on this. It contains a typo and I am getting an anomaly after I made the correction.

OK, figured out the problem.

Sub equate()
Dim Nm1 As Variant, Nm2 As Variant
Nm1 = Split(Range("A1").Value, ",")
Nm2 = Split(Range("A2").Value, ",")
    If UBound(Nm1) <> UBound(Nm2) Then
    MsgBox "Not Equivalent6"
    Exit Sub
    End If
    For i = LBound(Nm1) To UBound(Nm1)
        If InStr(Trim(Range("A2").Value), Trim(Nm1(i))) < 1 Then
            MsgBox "Not Equivalent"
            Exit Sub
        End If
    Next
MsgBox "Equivalent Cell Value"
End Sub

Should work now.

 

[bardcaco]

OK, figured out the problem.

Sub equate()
Dim Nm1 As Variant, Nm2 As Variant
Nm1 = Split(Range("A1").Value, ",")
Nm2 = Split(Range("A2").Value, ",")
    If UBound(Nm1) <> UBound(Nm2) Then
    MsgBox "Not Equivalent6"
    Exit Sub
    End If
    For i = LBound(Nm1) To UBound(Nm1)
        If InStr(Trim(Range("A2").Value), Trim(Nm1(i))) < 1 Then
            MsgBox "Not Equivalent"
            Exit Sub
        End If
    Next
MsgBox "Equivalent Cell Value"
End Sub

Should work now.

Thanks that works!

 

[JLGWhiz]

Thanks that works!

You're welcome,
Regards, JLG