shape boyama macro ile

[orast26]

merhaba arkadaslar,

Excelde bir sayfadaki durumlara gore yuzlerce shape farkli katagorilerde boyama yapmaktayim fakat bir tanes farkli durum icin pattern ile boyama yapmam gerekiyor. Asagida eklemis oldugum koda ne eklemem gerekiyor patern small grid boyamis icin

'IFC NOT RELEASED
If Worksheets("Status").Cells(c, 1).Value = "R90" And Worksheets("Status").Cells(c, 9).Value = "IFC NOT RELEASED" Then Worksheets("R90").Shapes(Cells(c, 3).Value).Fill.ForeColor.RGB = RGB(255, 0, 0)

'ON HOLD
If Worksheets("Status").Cells(c, 1).Value = "R90" And Worksheets("Status").Cells(c, 9).Value = "ON HOLD" Then Worksheets("R90").Shapes(Cells(c, 3).Value).Fill.ForeColor.RGB = RGB(255, 192, 0)

Teskkurler