How would i do this via code:

If "A1"="" then "A2" font Colour="White"
else "A2" font colour="Blue"

I want to do this to a range of cells from A1:A48



Regards

Corey

you can give this a try

Option Explicit
Dim rng As Range
Sub test()
Set rng = Range("a2:a48")
With rng.Cells
If Range("a1").Value = "" Then
.Font.Color = vbWhite
Else
.Font.Color = vbBlue
End If
End With
End Sub

--


Gary


"Corey" wrote in message
...
How would i do this via code:

If "A1"="" then "A2" font Colour="White"
else "A2" font colour="Blue"

I want to do this to a range of cells from A1:A48



Regards

Corey

If ActiveWorksheet.Range("A1") = "" Then
ActiveWorksheet.Range("A2").ColorIndex = 2
Else ActiveWorksheet.Range("A2").ColorIndex = 8 'or 14 or23 or28 or some
other shade of blue from the ColorIndex Palette
End If

You can use a For ...Each ...Next loop to walk down the range.


"Corey" wrote:

How would i do this via code:

If "A1"="" then "A2" font Colour="White"
else "A2" font colour="Blue"

I want to do this to a range of cells from A1:A48



Regards

Corey

hi corey,

Better you use Conditional formating :
FormatConditional Formatting...


Excel will choose your criterion..

Thanks.

Halim


"Corey" wrote:

How would i do this via code:

If "A1"="" then "A2" font Colour="White"
else "A2" font colour="Blue"

I want to do this to a range of cells from A1:A48



Regards

Corey

thanks went CF option

--
Regards

Corey

"Halim" wrote in message
...
hi corey,

Better you use Conditional formating :
FormatConditional Formatting...


Excel will choose your criterion..

Thanks.

Halim


"Corey" wrote:

How would i do this via code:

If "A1"="" then "A2" font Colour="White"
else "A2" font colour="Blue"

I want to do this to a range of cells from A1:A48



Regards

Corey

A different approach that uses code to set the conditional format method
directly on the sheet.


With Sheets("Sheet1").Range("A2:A48")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=$A$1="""""
.FormatConditions(1).Font.ColorIndex = 2
.FormatConditions.Add Type:=xlExpression, Formula1:="=$A$1<"""""
.FormatConditions(2).Font.ColorIndex = 5
End With

--
Cheers
Nigel



"Corey" wrote in message
...
How would i do this via code:

If "A1"="" then "A2" font Colour="White"
else "A2" font colour="Blue"

I want to do this to a range of cells from A1:A48



Regards

Corey