.Find(x) for an Exact match?

[cemiloguz]

I am trying find a certain text (x) in the first row of a column exactly in file (DestDat) and when found replace one of the cells below it, with (x):

Dim x As Variant
Dim R As clsFind
Set R = New clsFind
Do While Not IsEmpty(ActiveCell.Value)
x = ActiveCell.Value
Dim dataContent As Variant
dataContent = Cells(SrcRow, ActiveCell.Column).Value
DestDat.Activate
Dim wsCount As Integer
If R.FindColumn(x, DestDat) Then
DestDat.Activate
R.GetWorksheet.Activate
Cells(DestRow, R.GetColumn.Column).Value = dataContent
End If

In this case above, If I am looking for "Door6", and then it finds "Door60", then it stops because it assumes that it found it because "Door6" is a subset of "Door60"

However, I want an exact match. If the (x) is "Door6" then it should loom for that only as an exact match.

Is there any way of doing that?

 

[Norie]

There's an argument you can use with the built-in Find method, but you don't seem to be using that.

The thing I can see that involves finding is FindColumn, which appears to belong to the class clsFind.

So the actual code for FindColumn is in that class, and it's there any change would need to be made.

Or you could just use VBA's own Find method.