Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Changing color of cells
Need to change color of every other row, but only that portion of row in
the range. Here is what I have. Sub working() Dim x As Integer Dim response response = MsgBox("Do you Work the first weekend?", vbYesNo) If response = vbYes Then x = 0 Else x = 1 End If With Worksheets("Yearly Planner") For Each cell In .Range("A2:D53") With cell If x = 0 Then .Font.Color = vbBlue ' working weekend Else .Font.Color = black 'off weekend End If End With ' does Excel go to next cell in row or in column? End Sub Thanks Carl -- Carl & Linda Brehm Lake Lafourche Bird House Hebert, LA Keets, Tiels, GN & Red Lories, Quakers Mitred Conures, TAG's,DYH, Bourkes, Cages, Toys, Toy parts Wholesale/Retail Feed & Supplies --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.522 / Virus Database: 320 - Release Date: 09/29/2003 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Changing the color of highlighted cells | Excel Discussion (Misc queries) | |||
Excel 2003 - Color changing cells | Excel Discussion (Misc queries) | |||
Changing the color of cells by formula | Excel Worksheet Functions | |||
Changing several cells text color | Excel Discussion (Misc queries) | |||
color changing of cells | Excel Discussion (Misc queries) |