Problem finding a cell with certain value

[Bonomi]

Hi all,

I have to say that I am quite new to excel.
I create a function that returns a cell that contains a value starting at certain cell. The problem is that sometimes it find the correct cell others (for the same value) it doesn't.
Here is my code:

Public Function FindXValueCell(selectedWorksheet As Worksheet, rowTextCell As Range, xValue As String) As Range
    Dim cell As Range
    
    Set cell = selectedWorksheet.Range(X_VALUES_COLUMN_CONST & ":" & X_VALUES_COLUMN_CONST) _
        .Find(What:=xValue, After:=selectedWorksheet.Cells(rowTextCell.Row, X_VALUES_COLUMN_CONST), _
            LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
        
    Set FindXValueCell = cell
End Function

Any Ideas about what could be wrong?

 

[pgc01]

Hi
Welcome to the board

Post a sample with data where the function does not find the correct cell, so that we can test.

 

[Bonomi]

Hi
Welcome to the board

Post a sample with data where the function does not find the correct cell, so that we can test.

I sorted out about what was wrong and it is not related with this code. Should I delete this post? Sorry about that

 

[Bonomi]

Well, I thought I had solved the problem but i didn't! I can't post the whole code but I can post other function that is calling the above one:
Public Sub WriteValue(entityName As String, sectionName As String, xValue As String, yValue As String, valToFill As Currency)
Dim oWB As Workbook
Dim oWS As Worksheet
Dim sectionCell As Range
Dim rowTextCell As Range
Dim xValueCell As Range
Dim yValueCell As Range
Dim tabName As String

'Get tab name
tabName = Mid(sectionName, 1, 1)
tabName = tabName + Mid(sectionName, 3, 2)

'Create new file if it doesn't exist
Set oWB = CopyFileTemplate(sectionName, entityName)
Set oWS = oWB.Sheets(tabName)

Set sectionCell = FindSectionCell(oWS, sectionName)
Set rowTextCell = FindRowTextCell(oWS, sectionCell)
Set xValueCell = FindXValueCell(oWS, rowTextCell, xValue)
Set yValueCell = FindYValueCell(oWS, rowTextCell, yValue)

oWS.Cells(xValueCell.Row, yValueCell.Column).Value = valToFill

End Sub