Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to code this
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to code this
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to code this
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to code this
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to code this
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to code this
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
Drop Down/List w/Code and Definition, only code entered when selec | Excel Worksheet Functions | |||
do anybody have a sample code for executing excel macro from vb code?<eom | Excel Programming | |||
run code on opening workbook and apply code to certain sheets | Excel Programming | |||
stubborn Excel crash when editing code with code, one solution | Excel Programming |