[RESOLVED] Cell comparisons

[waldermort]

I have have finally got my code up and running for the most part. I am comparing the values of cells, which contain strings. My function works to a degree but it is case dependant. How do you implement a non-case sensetive comparison of two strings in vb?

Sub RemoveDuplicates()
    Dim iListCount As Integer
    Dim iCtr As Integer
 
    iListCount = xlSheet.usedrange.Rows.Count
    xlSheet.Range("A1").Activate
    Do Until xlApp.activecell = ""
       For iCtr = 1 To iListCount
          If xlApp.activecell.Row <> xlSheet.cells(iCtr, 1).Row Then
             If xlApp.activecell.Value = xlSheet.cells(iCtr, 1).Value Then
                ' a duplicate name was found
                If xlApp.activecell.offset(0, 1).Value = xlSheet.cells(iCtr, 2).Value Then
                    If xlApp.activecell.offset(0, 2).Value = xlSheet.cells(iCtr, 3).Value Then
                        ' a duplicate student was found
                        xlSheet.cells(iCtr, 1).Delete shift:=-4162
                        iCtr = iCtr + 1
                    End If
                End If
             End If
          End If
       Next iCtr
       xlApp.activecell.offset(1, 0).Select
    Loop
End Sub

In the above code I am refering to the cells by value rather than by text, this is because I'm not sure how to deal with Unicode in vb. In C its a nightmare sometimes trying to distinguish between the various encodings.

[DKenny]

In the line where you are comparing the strings, you should convert both to either Upper or Lower case, that will make the comparison case independant.

If UCase(String1) = UCase(String2)....

[waldermort]

Ahh thanks again. I remember you posted the same in your last code snippet for my benefit, I wasn't sure what Ucase did, but it worked so i never questioned it.

Your help is very much appreciated

[DKenny]

Don't forget to mark this thread as complete, if your issue has been resolved.