searching within cells

[cmmadn]

Dear sirs,

I am trying to find a solution to check if a cell contains some particular text as shown below. I know the example does not work, but I would be grateful if someone could tell me how amend the code to make it work.

    Set rngMovementList = wskMovements.Range("a" & rngClient.Offset(0, 1) & ":a" & rngClient.Offset(0, 2))
    For Each rngMovement In rngMovementList
    
        If rngMovement.Offset(0, 1).Find("Cash received") = True Then
            rngMovement.Offset(0, 8) = 1
        ElseIf rngMovement.Offset(0, 1).Find("subscription") = True Then
            rngMovement.Offset(0, 8) = 2
        ElseIf rngMovement.Offset(0, 1).Find("interest") = True Then
            rngMovement.Offset(0, 8) = 3
        ElseIf rngMovement.Offset(0, 1).Find("Purchase") = True Then
            rngMovement.Offset(0, 8) = 4
        ElseIf rngMovement.Offset(0, 1).Find("Sale") = True Then
            rngMovement.Offset(0, 8) = 5
        ElseIf rngMovement.Offset(0, 1).Find("Income") = True Then
            rngMovement.Offset(0, 8) = 7
        ElseIf rngMovement.Offset(0, 1).Find("withdrawals") = True Then
            rngMovement.Offset(0, 8) = 6
        ElseIf rngMovement.Offset(0, 1).Find("fees") = True Then
            rngMovement.Offset(0, 8) = 8
        End If
        
    Next rngMovement

with thanks

Andrew

 

[Gary McMaster]

"Instr" would be a candidate. Maybe something like this (for all of them):

If InStr(UCase(rngmovement.Offset(0, 1).Text), "CASH RECEIVED") Then

I believe it is case sensitive so you would probably want use use UCase or LCase.

Hope it helps.

Gary