About Us

Risky Dave

Hi,

I need to be able to format some cells that are not adjacent to each other.
I can do it on a cell-by cell basis:

CurrentCellNew.Select
With Selection.Interior
.ColorIndex = 15
End With
CurrentCellNew = CurrentCellNew.Offset(0, 1)
CurrentCellNew.Select
With Selection.Interior
.ColorIndex = 15
End With
CurrentCellNew = CurrentCellNew.Offset(0, 12)
CurrentCellNew.Select
With Selection.Interior
.ColorIndex = 15
End With

but this is really ugly. How do I select a number of cells (their offset
position from CurrentCellNew will always be known)?

This is in Office '07 under Vista.

TIA

Dave

incre-d[_2_]

Dim allCells as range

set allCells = CurrentCellNew
set allCells = Application.Union(allCells,CurrentCellNew.Offset(0 ,1))
set allCells = Application.Union(allCells,CurrentCellNew.Offset(0 ,12))

allCells.Interior.ColorIndex

"Risky Dave" wrote:

Hi,

I need to be able to format some cells that are not adjacent to each other.
I can do it on a cell-by cell basis:

CurrentCellNew.Select
With Selection.Interior
.ColorIndex = 15
End With
CurrentCellNew = CurrentCellNew.Offset(0, 1)
CurrentCellNew.Select
With Selection.Interior
.ColorIndex = 15
End With
CurrentCellNew = CurrentCellNew.Offset(0, 12)
CurrentCellNew.Select
With Selection.Interior
.ColorIndex = 15
End With

but this is really ugly. How do I select a number of cells (their offset
position from CurrentCellNew will always be known)?

This is in Office '07 under Vista.

TIA

Dave

Risky Dave

Spot on - my thanks

"incre-d" wrote:

Dim allCells as range

set allCells = CurrentCellNew
set allCells = Application.Union(allCells,CurrentCellNew.Offset(0 ,1))
set allCells = Application.Union(allCells,CurrentCellNew.Offset(0 ,12))

allCells.Interior.ColorIndex

"Risky Dave" wrote:

Hi,

I need to be able to format some cells that are not adjacent to each other.
I can do it on a cell-by cell basis:

CurrentCellNew.Select
With Selection.Interior
.ColorIndex = 15
End With
CurrentCellNew = CurrentCellNew.Offset(0, 1)
CurrentCellNew.Select
With Selection.Interior
.ColorIndex = 15
End With
CurrentCellNew = CurrentCellNew.Offset(0, 12)
CurrentCellNew.Select
With Selection.Interior
.ColorIndex = 15
End With

but this is really ugly. How do I select a number of cells (their offset
position from CurrentCellNew will always be known)?

This is in Office '07 under Vista.

TIA

Dave

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Non-contiguous cells	Kokomojo	Excel Discussion (Misc queries)	2	November 6th 07 04:09 PM
Copy and Paste LAST ROW of data: non-contiguous Row, contiguous Column	Sam via OfficeKB.com	Excel Programming	8	November 5th 07 07:18 PM
Subtotaling non-contiguous cells	David N. Ballew Jr.[_2_]	Excel Worksheet Functions	2	May 2nd 07 10:04 PM
counting cells that are 0 in a range of non-contiguous cells	Mark	Excel Worksheet Functions	9	March 14th 07 02:45 PM
Testing for contiguous cells	jamieuk	Excel Programming	2	January 8th 04 05:23 PM

Menu

About Us