[RESOLVED] Magic?

Got a little prob with my comparison:

I've got one, single number with no matches - still, it turns red. But no other single-numbers turn red! Here's the code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iCompare As Long
Dim iCheck As Long
Dim XL As Variant
Dim xlWS As Variant
Dim Checksum As Long
Dim Compare As Long

Set xlWS = ActiveSheet

Dim colXLparams As New Collection
iCompare = 3
iCheck = 2

Do While xlWS.Cells(iCheck, 3).Value <> ""
Do While xlWS.Cells(iCompare, 3).Value <> ""
Checksum = Cells(iCheck, 2)
Compare = Cells(iCompare, 2)
If Checksum = Compare Then
With Cells(iCheck, 3).Interior
.Color = RGB(255, 0, 0)
End With
With Cells(iCompare, 3).Interior
.Color = RGB(255, 0, 0)
End With
iCompare = iCompare + 1
Else
With Cells(iCheck, 3).Interior
.Color = RGB(255, 0, 0)
End With
With Cells(iCompare, 3).Interior
.Color = RGB(255, 255, 255)
End With
iCompare = iCompare + 1
End If
Loop
iCompare = iCheck + 2
iCheck = iCheck + 1

Loop
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iCompare As Long
Dim iCheck As Long
Dim XL As Variant
Dim xlWS As Variant
Dim Checksum As Long
Dim Compare As Long
Dim Chk As Long

Set xlWS = ActiveSheet

Dim colXLparams As New Collection
iCompare = 3
iCheck = 2
Chk = 0

Do While xlWS.Cells(iCheck, 3).Value <> ""
Do While xlWS.Cells(iCompare, 3).Value <> ""
Checksum = Cells(iCheck, 2)
Compare = Cells(iCompare, 2)
If Checksum = Compare Then
With Cells(iCheck, 3).Interior
.Color = RGB(255, 0, 0)
End With
With Cells(iCompare, 3).Interior
.Color = RGB(255, 0, 0)
End With
iCompare = iCompare + 1
Chk = Chk + 1
Else
iCompare = iCompare + 1
Chk = 0
End If
If Chk = 0 Then
With Cells(iCompare, 3).Interior
.Color = RGB(255, 255, 255)
End With
End If
Loop
iCompare = iCheck + 2
iCheck = iCheck + 1

Loop
End Sub

Where's that single number at in the spreadsheet?

I just found out that it's not only one number - it can only show me matches if the numbers are right beneath eachother! If not, it's only iCheck which is red or maybe no numbers :s

Please - anybody help me?

Are you running this inside of Excel or are you implementing Excel from another program?

It's running inside Excel. All I need now is to make the cell's interior white when there no longer is a match

I have found a couple of things, I'm working on it right now.

Thanks buddy :D

Here it is..

VB Code:

Sub Worksheet_SelectionChange()
 
Dim Checksum As Long
Dim Compare As Long
Dim Chk As Integer
Dim iCompare As Integer
Dim iCheck As Integer
Dim Value_Column_ID As Integer
 
iCompare = 3
iCheck = 2
Value_Column_ID = 3  'Use this to identify the comparison column
 
Columns(Value_Column_ID).Interior.Color = RGB(255, 255, 255) 'resets all cells to white
 
Do While Cells(iCheck, Value_Column_ID).Value <> ""
    Do While Cells(iCompare, Value_Column_ID).Value <> ""
        Checksum = Cells(iCheck, Value_Column_ID).Value
        Compare = Cells(iCompare, Value_Column_ID).Value
        If Checksum = Compare Then
            With Cells(iCheck, Value_Column_ID).Interior
            .Color = RGB(255, 0, 0)
            End With
            With Cells(iCompare, Value_Column_ID).Interior
            .Color = RGB(255, 0, 0)
            End With
            iCompare = iCompare + 1
        Else
            iCompare = iCompare + 1
        End If
    Loop
    iCompare = iCheck + 2
    iCheck = iCheck + 1
Loop
'Redraws cell borders
With Columns(Value_Column_ID).Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Columns(Value_Column_ID).Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Columns(Value_Column_ID).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Columns(Value_Column_ID).Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Columns(Value_Column_ID).Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
 
End Sub

I had to reset the entire column to white and the beginning because the If statement to reset a cell to white wasn't working. Basically it would look at each cell and if the current compare cell didn't match the current check cell, the compare cell would be set to white. This happened for every check/compare combination. You were left with one cell, from the beginning being colored red and nothing else.
We could have used an array to store previous check values and then compared the compare value to the current check AND the array to ensure there wasn't a match. It seemed easier to reset the sheet each time.

Other course this isn't automatic. The cell color won't update automatically on change, only after the program has run.
In order to do some sort of automatic change, you'd have to set an internal excel fuction for each cell. I think someone mentioned how to do that in an early post.

Hope this works.

Thanks. But after the 2. "Do" it says "Mismatch"

I can't be sure about that. It runs fine on my computer. Double check all your variable declarations, spelling, syntax.. it should work.

I copy-paste it so there shouldn't be a prob with spellings and such :s

I just renamed the Value_Column_ID to something else...and it works fine now. Thanx!!