ASCII conversion loop difficulty

crmpicco · May 3rd, 2005, 05:43 AM

I am having a problem with my ASCII conversion and having these values inside a loop.

The values start out below as:

tempCol = 67 (which is the ASCII value for 'C')
iTotalCols = 46 (which is the number of columns I have in the sheet)
iColour is just a Integer

The problem i am experiancing is that when the loop gets to 91, which is [ (left/opening bracket) - i get an error.

How can i stop this?

I have this loop structure:

Code:

For n = tempCol To iTotalCols + 64
   sRange = Chr(n) & m
   If Trim$(Range(sRange).Text) <> "" Then
      Range(sRange).Interior.ColorIndex = iColour
   End If
Next n

Thanks.

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

crmpicco · May 3rd, 2005, 05:56 AM

Code:

For n = tempCol To 90
                            sRange = Chr(n) & m
                            'MsgBox "sRange inside n = " & sRange
                            If Trim$(Range(sRange).Text) <> "" Then
                                Range(sRange).Interior.ColorIndex = iColour
                            End If
                        Next n

That works, more-or-less, but it is kind of hard-coded. Can anyone see a way around this?

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

BrianWren · May 3rd, 2005, 01:41 PM

Try

Code:

       If Len(Trim$(Range(sRange).Text)) <> 0 Then

What are all those URLs?