Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to shade row then return it to as it was
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to shade row then return it to as it was
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to shade row then return it to as it was
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to shade row then return it to as it was
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to shade row then return it to as it was
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to shade row then return it to as it was
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 |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to shade row then return it to as it was
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 |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to shade row then return it to as it was
Nope, can't figure it out.
You'll probably look at the code and spot the issue straight away!! Anyway, here's what I've got: Private Sub Worksheet_Change(ByVal Target As Range) Dim CellColour As Variant If Not Intersect(Target, ActiveSheet.Column("AB")) Is Nothing Then 'choose cell colour based on formula in AB If Target.Value = "w" Then CellColour = 3 'red ElseIf Target.Value = "sd" Then CellColour = 46 'orange ElseIf Target.Value = "so" Then CellColour = 6 'yellow Else [stuck here!] End If 'colour the rows Set myRow = Target.Offset(0, -28).Resize(, 2) 'go back to "A" With myRow .Interior.ColorIndex = CellColour End With End If End Sub HELP!! :0 -- 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 |
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to shade row then return it to as it was
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) Dim CellColour As Variant Dim correct As Range Set correct = Intersect(Target, Range("AB:AB")) If Not correct Is Nothing Then 'choose cell colour based on formula in AB Select Case UCase(Target.Value) Case "W" CellColour = 3 'red Case "SD" CellColour = 46 'orange Case "SO" CellColour = 6 'yellow Case Else [stuck here!] CellColour = xlNone End Select 'colour the rows With Rows(Target.Row) .Interior.ColorIndex = CellColour End With End If End Sub "Jock" wrote in message ... Nope, can't figure it out. You'll probably look at the code and spot the issue straight away!! Anyway, here's what I've got: Private Sub Worksheet_Change(ByVal Target As Range) Dim CellColour As Variant If Not Intersect(Target, ActiveSheet.Column("AB")) Is Nothing Then 'choose cell colour based on formula in AB If Target.Value = "w" Then CellColour = 3 'red ElseIf Target.Value = "sd" Then CellColour = 46 'orange ElseIf Target.Value = "so" Then CellColour = 6 'yellow Else [stuck here!] End If 'colour the rows Set myRow = Target.Offset(0, -28).Resize(, 2) 'go back to "A" With myRow .Interior.ColorIndex = CellColour End With End If End Sub HELP!! :0 -- 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 |
#11
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to shade row then return it to as it was
Almost - when "AB" becomes blank again after having a value which coloured
the row, how do I get the code to copy row 3 and paste special to the active row (in otherwords, rather than leaving the row with no colour, to copy the colours from row 3). -- Traa Dy Liooar Jock |
#12
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to shade row then return it to as it was
Try this code and see if it does what you want...
Private Sub Worksheet_Change(ByVal Target As Range) Dim CellColour As Variant If Not Intersect(Target, Columns("AB")) Is _ Nothing And Target.Row 3 Then With Range("A" & Target.Row & ":B" & Target.Row) If Target.Value = "w" Then .Interior.ColorIndex = 3 'red ElseIf Target.Value = "sd" Then .Interior.ColorIndex = 46 'orange ElseIf Target.Value = "so" Then .Interior.ColorIndex = 6 'yellow Else Range("A3:B3").Copy .PasteSpecial xlPasteFormats Application.CutCopyMode = False Target.Select End If End With End If End Sub -- Rick (MVP - Excel) "Jock" wrote in message ... Nope, can't figure it out. You'll probably look at the code and spot the issue straight away!! Anyway, here's what I've got: Private Sub Worksheet_Change(ByVal Target As Range) Dim CellColour As Variant If Not Intersect(Target, ActiveSheet.Column("AB")) Is Nothing Then 'choose cell colour based on formula in AB If Target.Value = "w" Then CellColour = 3 'red ElseIf Target.Value = "sd" Then CellColour = 46 'orange ElseIf Target.Value = "so" Then CellColour = 6 'yellow Else [stuck here!] End If 'colour the rows Set myRow = Target.Offset(0, -28).Resize(, 2) 'go back to "A" With myRow .Interior.ColorIndex = CellColour End With End If End Sub HELP!! :0 -- 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 |
#13
Posted to microsoft.public.excel.programming
|
|||
|
|||
code to shade row then return it to as it was
you could change CASE ELSE
Range("3:3").Copy Rows(target.Row).PasteSpecial xlPasteFormats "Jock" wrote in message ... Almost - when "AB" becomes blank again after having a value which coloured the row, how do I get the code to copy row 3 and paste special to the active row (in otherwords, rather than leaving the row with no colour, to copy the colours from row 3). -- Traa Dy Liooar Jock |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
shade one cell that will shade multiple cells | Excel Discussion (Misc queries) | |||
VBA CODE SOLVER TO RETURN VALUE | Excel Programming | |||
Return a value for a known code | Excel Worksheet Functions | |||
Return a value for a known code | Excel Worksheet Functions | |||
Shade Active Cell - Shade the cell the cursor is in only while in | Excel Programming |