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 |
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 |
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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 05:16 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com