Syntax for else elsif advice for £ character

[ipbr21054]

I have this code in use below.
Im having an issue with £ charcter where it just turns to yellow as its incorrect syntax i assume.

Can you advise please

Dim Cell As Range
For Each Cell In Range("L:L")
  If Cell = "TO DO" Then
     Cell.Interior.Color = vbRed
    
  ElseIf Cell = "DONE" Then
     Cell.Interior.Color = vbBlue
    
  ElseIf Cell = ("£") Then
     Cell.Interior.Color = vbGreen
    
  End If
  Next Cell

Application.ScreenUpdating = True

 

[PeteWright]

Try the Character Function Chr(). Works for me

Dim Cell As Range
For Each Cell In Range("A:A")
  If Cell = "TO DO" Then
     Cell.Interior.Color = vbRed
    
  ElseIf Cell = "DONE" Then
     Cell.Interior.Color = vbBlue
    
  ElseIf Cell = Chr(163) Then
     Cell.Interior.Color = vbGreen
    
  End If
  Next Cell

 

[abdelfattah]

@ipbr21054
I tested . it shows green as the condition is existed in the code.
and you should not use the whole column L , will take more much time until finshing . you don't need loop for the empty cells in column . I suggest set lastrow contains data .

 

[ipbr21054]

@ipbr21054
I tested . it shows green as the condition is existed in the code.
and you should not use the whole column L , will take more much time until finshing . you don't need loop for the empty cells in column . I suggest set lastrow contains data .

Can you advise the code you advise please

 

[ipbr21054]

Try the Character Function Chr(). Works for me

Dim Cell As Range
For Each Cell In Range("A:A")
  If Cell = "TO DO" Then
     Cell.Interior.Color = vbRed
   
  ElseIf Cell = "DONE" Then
     Cell.Interior.Color = vbBlue
   
  ElseIf Cell = Chr(163) Then
     Cell.Interior.Color = vbGreen
   
  End If
  Next Cell

Ive noticed that £10 or any value aded to the £ is cancelled out.
Did i miss something as the intention was to use the £ followed by a number

 

[abdelfattah]

Can you advise the code you advise please

I don't understand !
just I use the same code in OP .
to getting help from the members I suggest for you upload file and explain well what's your problem.

 

[ipbr21054]

I don't understand !
just I use the same code in OP .
to getting help from the members I suggest for you upload file and explain well what's your problem.

You mentioned not Ito use the whole
Column so I’m asking for you to advise the line of code I should be using.

 

[abdelfattah]

before this

You mentioned not Ito use the whole

you've solved this?

Im having an issue with £ charcter where it just turns to yellow as its incorrect syntax i assume.

or the problem still continues

 

[ipbr21054]

I couldn’t get the code to work.
A user advised the correct syntax to use.

I have now used that code but I don’t see the cell changing Color.

If I enter the £ signed followed by a value example £100 the code doesn’t change cell colour.

 

[dmt32]

If I enter the £ signed followed by a value example £100 the code doesn’t change cell colour.

Hi,
untested but see if this update to your code will do what you want

Sub ipbr21054()
    Dim Cell        As Range
    
    For Each Cell In Cells(1, "L").Resize(Cells(Rows.Count, "L").End(xlUp).Row)
    
        If Cell.Text = "TO DO" Then
            Cell.Interior.Color = vbRed
            
        ElseIf Cell.Text = "DONE" Then
            Cell.Interior.Color = vbBlue
            
        ElseIf Cell.Text Like "£*" Then
            Cell.Interior.Color = vbGreen
        Else
            Cell.Interior.Color = xlNone
        End If
        
    Next Cell
    
End Sub

You will note that I have also limited your search loop to scan just to the last row of data in Column L rather than the whole column.

Dave