Sum Up Cells Value When Specific Value Match

epoiezam · May 13th 2016

Hi Guys:

Need your help here,

How to color code ZONE column according to their respective REGION
(as per sample below)

[TABLE="class: cms_table_grid, width: 500"]

[tr]

[td]

Region

[/td]

[td]

Zone

[/td]

[td]

Branch

[/td]

[/tr]

[tr]

[td]

North

[/td]

[td]

North A

[/td]

[td]

Branch NA1

[/td]

[/tr]

[tr]

[td]

[/td]

[td]

North B

[/td]

[td]

Branch NB1

[/td]

[/tr]

[tr]

[td]

[/td]

[td]

North C

[/td]

[td]

Branch NC1

[/td]

[/tr]

[tr]

[td]

West

[/td]

[td]

West A

[/td]

[td]

Branch WA1

[/td]

[/tr]

[tr]

[td]

[/td]

[td]

West B

[/td]

[td]

Branch WB1

[/td]

[/tr]

[tr]

[td]

East

[/td]

[td]

East A

[/td]

[td]

Branch EA1

[/td]

[/tr]

[tr]

[td]

South

[/td]

[td]

South A

[/td]

[td]

Branch SA1

[/td]

[/tr]

[tr]

[td]

[/td]

[td]

South B

[/td]

[td]

Branch SB1

[/td]

[/tr]

[tr]

[td]

[/td]

[td]

South C

[/td]

[td]

Branch SC1

[/td]

[/tr]

[/TABLE]

Thank you veru much in advance guys [Blocked Image: http://www.vbaexpress.com/forum/images/smilies/001.gif]

**alansidman** · May 13th 2016

Re: Sum Up Cells Value When Specific Value Match

Try this:

Code

Option Explicit




Sub colors()
Dim c As Range
Dim rng As Range
Set rng = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)
For Each c In rng
If InStr(c, "North") Then c.Interior.ColorIndex = 3
If InStr(c, "South") Then c.Interior.ColorIndex = 4
If InStr(c, "West") Then c.Interior.ColorIndex = 5
If InStr(c, "East") Then c.Interior.ColorIndex = 22
Next c




End Sub

Display More

Sum Up Cells Value When Specific Value Match

Participate now!

Share