Interior.ColorIndex problem

crmpicco · April 22nd, 2005, 08:24 AM

In my worksheet i have a cell 'C43' which is coloured 'green'. this is done automatically via my code:

Code:

For j = LBound(gaRulesSearch) To UBound(gaRulesSearch)

            If gaRulesColour(j) <> "" Then
                iPos = InStr(gaRulesColour(j), "/")
                sRange = Left(gaRulesColour(j), InStr(gaRulesColour(j), "/") - 1)
                iColour = Mid(gaRulesColour(j), iPos + 1, Len(gaRulesColour(j)) - 1)

                '... if the value has been found then colour the cell
                '... otherwise write to the log
                If stripWhiteSpace(Left(Trim(UCase(Range(sRange).Text)), Len(Trim(UCase(gaRulesSearch(j)))))) <> stripWhiteSpace(Trim(UCase(gaRulesSearch(j)))) Then
                    Call WriteColourLog(Application.ActiveSheet.Name, "RULES STRING: " & _
                                                                      Chr(34) & UCase(gaRulesSearch(j)) & Chr(34), sRange)
                Else
                    gbFoundRules = True
                    Range(sRange).Interior.ColorIndex = iColour
                End If

            End If


        Next ' for j

Can anyone tell me how I can take that cell as a reference or marker and then proceed to colour each cell directly beneath it if they are not blank (empty)?

I also need to have the cells directly to the LEFT of these cells coloured above to be highlghted a different colour.

Is this possible? if so, anyone got code?

Im really new to VBA so help is greatly appreciated.

Regards

Picco

www.crmpicco.co.uk
www.crmpicco.co.uk.tt
www.milklemonadechocolate.uk.tt
www.griswolds.uk.tt
www.piccosmini.co.uk.tt
www.morton.uk.tt