How to change the color of cells with a cell value change in worksheet_change

[anshul_singal]

Hi
I am working on a code in which i have to change the color of certain cells if the value of a cell is Y/N. The color should change with the user input.
Set wsheet = wbook.Worksheets("XYZ")
For Row_start=10 to Row_count 'Row count is the last used row in the worksheet
RowValue = ActiveCell.Row
colValue = ActiveCell.Column
if colValue = 17
If wsheet.Cells(Row_Start, 17).Value = "Y" Then
Cells(Row_Start, 18).Interior.Color = RGB(255,255,0)
Cells(Row_Start, 19).Interior.Color = RGB(255,255,0)
Cells(Row_Start, 20).Interior.Color = RGB(255,255,0)
Cells(Row_Start, 21).Interior.Color = RGB(255,255,0)
End If
End If
Next Row_start
Nothing is happening with this. How should i take the value of active cell being used by the user
Plz help

 

[JoeMo]

When "nothing is happening", is the active cell in column 17 (Column "Q")?

 

[anshul_singal]

Yes..active cell was in column 17 since i gave some value to column 17

 

[JoeMo]

Yes..active cell was in column 17 since i gave some value to column 17

Are you using a worksheet_change event code or is your code in a standard module?

 

[anshul_singal]

I am using workheet_change. In the worksheet change, before performing this coloring , i am also hiding some columns based on user input and then writing this code. Worksheet_change can work like this or it works for only one type of change ?

 

[JoeMo]

I am using workheet_change. In the worksheet change, before performing this coloring , i am also hiding some columns based on user input and then writing this code. Worksheet_change can work like this or it works for only one type of change ?

Post ALL of your code for the worksheet in question.

 

[greenculture]

i am getting error msg... can you solve this code

Public Sub FontColorInCellPart()

Dim c As Range
Dim i As Integer

For Each cell In ActiveSheet.UsedRange
   
   For i = 1 To Len(cell)
      If cell.Characters(i, 1).Font.color = RGB(79, 129, 189) Then
         cell.Characters(i, 1).Font.color = RGB(255, 0, 0)
      ElseIf cell.Characters(i, 1).Font.color = RGB(79, 129, 189) Then
         cell.Characters(i, 1).Font.color = RGB(255, 0, 0)
      End If
   Next i
Next cell

End Sub

 

[JoeMo]

What is the error message, what line is highlighted? You can remove the ElseIf part as it repeats the If statement, although the repetition is not the source of an error.

 

[greenculture]

screenshot
https://www.dropbox.com/s/gsuqqxua4p42jo2/error.jpg

 

[greenculture]

pls chk ur inbox