check one row down

crmpicco · May 6th, 2005, 06:00 AM

I have code that when it finds text in a column it will colour it a certain colour.

Also, when the colour is found the text is put into a variable.

Code:

                    If iCurrentCellCol = iArrayColour Then    ' if {1}
                        '
                        If the_Heading <> "" Then    ' if {1}
                            rulesXML = rulesXML & "<fare_rule_lines>"
                            rulesXML = rulesXML & "<heading>" & fix_characters(fix_ampersand(the_Heading)) & "</heading>"
                            rulesXML = rulesXML & "<content>" & fix_characters(Trim(the_Content)) & "</content>"
                            rulesXML = rulesXML & "</fare_rule_lines>"
                            'Exit For
                        End If

                        the_Heading = fix_ampersand(Trim(Range(sRange).Text))
                        the_Content = "&lt;table&gt;"

                    End If

But my problem is I need to find a way of checking the cell one below the cell that is found, and if it is not blank then add that text to the text that is found.

Is this possible?

advaTHANKSnce

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