Hi.....
Help me please.....

Is there any way to add a 5th Conditional formatting.

If so kindly help me.......Thanks

As an example


'-----------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'-----------------------------------------------------------------
Const WS_RANGE As String = "H1:H10" '<=== change to suit

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
Select Case .Value
Case 1: .Interior.ColorIndex = 3 'red
Case 2: .Interior.ColorIndex = 6 'yellow
Case 3: .Interior.ColorIndex = 5 'blue
Case 4: .Interior.ColorIndex = 10 'green
Case 5: .Interior.ColorIndex = 38
End Select
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Udayan" wrote in message
...
Hi.....
Help me please.....

Is there any way to add a 5th Conditional formatting.

If so kindly help me.......Thanks

Sir nothing happening after pasting the below code, cud you elebrate more sir.

"Udayan" wrote:

Hi.....
Help me please.....

Is there any way to add a 5th Conditional formatting.

If so kindly help me.......Thanks

Did you install the code where directed?

Did you change the range to fit your needs?

Did you adjust the conditions to your requirements?

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Udayan" wrote in message
...
Sir nothing happening after pasting the below code, cud you elebrate more
sir.

"Udayan" wrote:

Hi.....
Help me please.....

Is there any way to add a 5th Conditional formatting.

If so kindly help me.......Thanks

I understand that this code updates the format if the cell is change,
however, what if the cell is referenced to another cell. i see that it
doesn't change until i click the cell and press enter.

is there any other method for this?

Thanks

"Bob Phillips" wrote:

Did you install the code where directed?

Did you change the range to fit your needs?

Did you adjust the conditions to your requirements?

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Udayan" wrote in message
...
Sir nothing happening after pasting the below code, cud you elebrate more
sir.

"Udayan" wrote:

Hi.....
Help me please.....

Is there any way to add a 5th Conditional formatting.

If so kindly help me.......Thanks

yes, you use the calculate event and just check its value.

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"mikel" wrote in message
...
I understand that this code updates the format if the cell is change,
however, what if the cell is referenced to another cell. i see that it
doesn't change until i click the cell and press enter.

is there any other method for this?

Thanks

"Bob Phillips" wrote:

Did you install the code where directed?

Did you change the range to fit your needs?

Did you adjust the conditions to your requirements?

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"Udayan" wrote in message
...
Sir nothing happening after pasting the below code, cud you elebrate
more
sir.

"Udayan" wrote:

Hi.....
Help me please.....

Is there any way to add a 5th Conditional formatting.

If so kindly help me.......Thanks