View Single Post
  #8   Report Post  
Posted to microsoft.public.excel.programming
Jock Jock is offline
external usenet poster
 
Posts: 440
Default code to shade row then return it to as it was

Off home now, but will look at this tomorrow.

Thanks Rick
--
Traa Dy Liooar

Jock


"Rick Rothstein" wrote:

Okay, good... you have the columns colored as opposed to select areas...
that makes it easier. Just copy Row 3 and then use PasteSpecial to put the
copied format into the row you are removing your color from. Something like
this (where X is assumed to be your variable containing the row number being
processed)...

Rows(3).Copy
Rows(X).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
Cells(X, 1).Select

--
Rick (MVP - Excel)


"Jock" wrote in message
...
Hi Rick,
colouring in the columns has been done manually. It isn't triggered by
anything, just done so to make a large worksheet easily understandable to
the
user.
I suggested copying the colour format from row 3 because this is the
header
row and is formatted the same as the rows beneath but this formatting will
not change whereas, any of the rows beneath could depending on what
happens
in "AB".

--
Traa Dy Liooar

Jock


"Rick Rothstein" wrote:

How did the shading in columns A:AD get into the cells... conditional
formatting or manual placed? If manually placed, is there some common
item
that can be used to identify these colored cells (type of values they
contain, certain type of formula, etc.)? I don't think mapping all the
colors makes sense, so I'm looking for whatever it is that tells you to
color these cells so that code can be developed to recognize this common
element in order to reapply the colors.

--
Rick (MVP - Excel)


"Jock" wrote in message
...
Ideally, yes; if only it were that simple.
I've used CF on quite a few columns already to flag when a date is out
of
tolerence - hence the request for code.
Thanks though, Patrick
--
Traa Dy Liooar

Jock


"Patrick Molloy" wrote:

use conditional formatting
select columnds D:AD
set the 'cell value is' to 'formula is' and then the formula to

=$AD1-"W" and then set a pattern color
add two more conditions like this for the other two letter patterns

conditional formatting allows three tests, so you got lucky!



"Jock" wrote:

This is a repeat post from yesterday which I'm still struggling
with.
Gary"s
Student offered some help but:
Sheet uses columns "A-AD", rows 4-10000.
Several sets of adjacent columns are shaded (visually grouped
together)
to
give clarity for the user.
Here's the premise:
Using a formula in column "AB", either "W", "SD", "ST" or "" will be
returned.

I need code to look at column "AB" and colour the row (from "A:AD"
only)
red, orange or blue for the first 3 options or leave as is for "".
This part is straightforward ChangeEvent code. However, and this is
the
bit
I can't fathom, if a cell in "AB" is changed from any of the 3
options
back
to blank, the original cell shading needs to be re-applied.
Row 3 is the header row for all the columns, so could the fill
colour
from
that row be used in the code to correctly re-shade the changed row?
I can email worksheet if req'd.
Thanks
Traa Dy Liooar

Jock