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

anshul_singal

New Member
Joined
Apr 4, 2014
Messages
4
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
 

Excel Facts

What did Pito Salas invent?
Pito Salas, working for Lotus, popularized what would become to be pivot tables. It was released as Lotus Improv in 1989.
When "nothing is happening", is the active cell in column 17 (Column "Q")?
 
Upvote 0
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 ?
 
Upvote 0
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.
 
Upvote 0
i am getting error msg... can you solve this code


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
 
Upvote 0
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.
 
Upvote 0

Forum statistics

Threads
1,226,730
Messages
6,192,702
Members
453,748
Latest member
akhtarf3

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top