Colouring Cells

[matpj]

Hi,

is it possible to write a bit of VBA to look at the cells in a table, and colour empty cells one colour and cells with numebrs in another colour?

if so how is this done??

thanks,
Matt

 

[dyarwood]

You could try an if statement. Think the code below may help.

If IsEmpty(ActiveCell)) Then
ActiveCell.Select
Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid

Else
ActiveCell.Select
Selection.Interior
.ColorIndex = 5
.Pattern = xlSolid


The colour index would make the activecell one colour if it is empty and another if it contains data.

Not sure if that is a help but it may be a start.

Let me know

dyarwood

 

[xlbo]

presume you are using xl ???
don't need code - have a look at conditional formatting

Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244

 

[dyarwood]

Good idea xlbo. Never thought of that.

dyarwood

 

[Chattin]

For a conditional format use for condition 1:

Formula is =ISBLANK(cell ref)

And for condition 2:

Formula is =ISNUMBER(cell ref)

HTH



Chris ;-)

Visit

http://www.mrexcel.com/board/index.php

for great xl and xl/VBA help