| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Row Color
I am looking to change a printable area row if a condition is true such as :
If any cell or cells within the range of AL6:AL16 contains an "A" then change the row containing that "A" (Only the printable area) to the color orange. If not leave as is Is this possable? |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Row Color
How would we know the printable area? How are you defining it?
-- Regards, Tom Ogilvy "ParTeeGolfer" wrote in message ... I am looking to change a printable area row if a condition is true such as : If any cell or cells within the range of AL6:AL16 contains an "A" then change the row containing that "A" (Only the printable area) to the color orange. If not leave as is Is this possable? |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Row Color
Tom,
The printable areas are Page 1 - is B6:P16 and page 2 is S6:AH16 Thanks Tom "Tom Ogilvy" wrote: How would we know the printable area? How are you defining it? -- Regards, Tom Ogilvy "ParTeeGolfer" wrote in message ... I am looking to change a printable area row if a condition is true such as : If any cell or cells within the range of AL6:AL16 contains an "A" then change the row containing that "A" (Only the printable area) to the color orange. If not leave as is Is this possable? |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Row Color
Dim cell as Range, rng as Range
for each cell in Range("AL6:AL16") if cell.Value = "A" then set rng = Intersect(Range("B6:P16, S6:AH16"), _ cell.EntireRow) rng.Interior.ColorIndex = 45 end if Next -- Regards, Tom Ogilvy "ParTeeGolfer" wrote in message ... Tom, The printable areas are Page 1 - is B6:P16 and page 2 is S6:AH16 Thanks Tom "Tom Ogilvy" wrote: How would we know the printable area? How are you defining it? -- Regards, Tom Ogilvy "ParTeeGolfer" wrote in message ... I am looking to change a printable area row if a condition is true such as : If any cell or cells within the range of AL6:AL16 contains an "A" then change the row containing that "A" (Only the printable area) to the color orange. If not leave as is Is this possable? |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Row Color
Tom I tried to copy and past into a module, however I got and "Invalid
outside procedure " error. Do I need a Function prior to the Dim Statement? "Tom Ogilvy" wrote: Dim cell as Range, rng as Range for each cell in Range("AL6:AL16") if cell.Value = "A" then set rng = Intersect(Range("B6:P16, S6:AH16"), _ cell.EntireRow) rng.Interior.ColorIndex = 45 end if Next -- Regards, Tom Ogilvy "ParTeeGolfer" wrote in message ... Tom, The printable areas are Page 1 - is B6:P16 and page 2 is S6:AH16 Thanks Tom "Tom Ogilvy" wrote: How would we know the printable area? How are you defining it? -- Regards, Tom Ogilvy "ParTeeGolfer" wrote in message ... I am looking to change a printable area row if a condition is true such as : If any cell or cells within the range of AL6:AL16 contains an "A" then change the row containing that "A" (Only the printable area) to the color orange. If not leave as is Is this possable? |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Row Color
Nevermind the comment about the error, I got the VBA to work, However I have numerous sheets for this to cover and it seems the way it is written now, the only way it will work is to open each sheet. Is there a way to have is run on all sheets as soon as the workbook is open? Once again Thanks for your time! "ParTeeGolfer" wrote: Tom I tried to copy and past into a module, however I got and "Invalid outside procedure " error. Do I need a Function prior to the Dim Statement? "Tom Ogilvy" wrote: Dim cell as Range, rng as Range for each cell in Range("AL6:AL16") if cell.Value = "A" then set rng = Intersect(Range("B6:P16, S6:AH16"), _ cell.EntireRow) rng.Interior.ColorIndex = 45 end if Next -- Regards, Tom Ogilvy "ParTeeGolfer" wrote in message ... Tom, The printable areas are Page 1 - is B6:P16 and page 2 is S6:AH16 Thanks Tom "Tom Ogilvy" wrote: How would we know the printable area? How are you defining it? -- Regards, Tom Ogilvy "ParTeeGolfer" wrote in message ... I am looking to change a printable area row if a condition is true such as : If any cell or cells within the range of AL6:AL16 contains an "A" then change the row containing that "A" (Only the printable area) to the color orange. If not leave as is Is this possable? |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Row Color
Sub MyMacro()
Dim cell as Range, rng as Range for each cell in Range("AL6:AL16") if cell.Value = "A" then set rng = Intersect(Range("B6:P16, S6:AH16"), _ cell.EntireRow) rng.Interior.ColorIndex = 45 end if Next End Sub -- Regards, Tom Ogilvy "ParTeeGolfer" wrote in message ... Tom I tried to copy and past into a module, however I got and "Invalid outside procedure " error. Do I need a Function prior to the Dim Statement? "Tom Ogilvy" wrote: Dim cell as Range, rng as Range for each cell in Range("AL6:AL16") if cell.Value = "A" then set rng = Intersect(Range("B6:P16, S6:AH16"), _ cell.EntireRow) rng.Interior.ColorIndex = 45 end if Next -- Regards, Tom Ogilvy "ParTeeGolfer" wrote in message ... Tom, The printable areas are Page 1 - is B6:P16 and page 2 is S6:AH16 Thanks Tom "Tom Ogilvy" wrote: How would we know the printable area? How are you defining it? -- Regards, Tom Ogilvy "ParTeeGolfer" wrote in message ... I am looking to change a printable area row if a condition is true such as : If any cell or cells within the range of AL6:AL16 contains an "A" then change the row containing that "A" (Only the printable area) to the color orange. If not leave as is Is this possable? |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Powerpoint / Excel: custom pp RGB color doesn't match identical Excelcustom RGB color | Charts and Charting in Excel | |||
| Can't format cell color/text color in Office Excel 2003 in files . | Excel Discussion (Misc queries) | |||
| My fill color and font color do not work in Excel Std Edition 2003 | Excel Discussion (Misc queries) | |||
| Excel 2003 will not display color fonts or color fill cells | Excel Worksheet Functions | |||
| Browse Forms Controls and change TextBox color based on cell color | Excel Programming | |||
Hybrid Mode
