Select an range of cells to perform task on each

[Atholl]

Hi all,

I have a grid of numbers from C:10 to R:96. The numbers range from 0 to 5 and I have a piece of code "ConditionalDoc" which assigns a fill colour depending on the number in the cell. At present, I have code which selects each cell in the grid individually in turn and performs the fill colour code:

Range("C80").Select
ConditionalDoc
Range("C81").Select
ConditionalDoc
Range("C82").Select
ConditionalDoc
etc....

Is there a quicker way to select all of the cells and perform ConditionalDoc on each?

Atholl

 

[Joe4]

Well, first select you entire range then call the macro like this:

Range("C80:C82").Select 
ConditionalDoc

Then put a loop in your ConditionalDoc code that loops through each cell one at a time, i.e.

Dim cell as Range
For each cell in Selection
'   Your code here
Next cell

 

[Atholl]

Thanks for the reply!

This seems to be clashing with my ConditionalDoc code which looks a bit like this:

If Selection > 0 And Selection <= 1 Then
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

etc.

I think 'Selection' needs to be changed, but to what?

 

[Atholl]

Never mind, I got it!


If cell.Value > 0 And cell.Value <= 1 Then
With cell.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With



Thanks again,


Atholl