Cell shading in linked cells
 

I've got a workbook with several sheets that all have pretty much the same
list of spare parts on them that are all linked together somehow by formulas.
If I change the cell color on the master list I want the cell color to
change on all the lists. For example part A is overdue so I would change it
to red and all the sheets with part A on them would change to red. I hope
this makes sense.
Thanks in advance

Cell shading in linked cells
 

Hi,

For a start and to be adjusted to your specific needs ...

Sub Dependents()
ActiveCell.Copy
ActiveCell.Dependents.Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

HTH
Cheers
Carim

Cell shading in linked cells
 

I'm assuming this is a macro which I am not very familiar with. But, I copy
and pasted what you type into my workbook. Was anything supposed to change?

"Carim" wrote:

Hi,

For a start and to be adjusted to your specific needs ...

Sub Dependents()
ActiveCell.Copy
ActiveCell.Dependents.Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

HTH
Cheers
Carim

Cell shading in linked cells
 

Hi,

Macros have to inserted into modules ...
To access Visual Basic press Alt F11...
Then from the menu, choose Insert Module ...
in the right part, you cn copy the macro ...

Back in your spreadsheet, you can call your macros with Alt F8
and select the macro you want to run ...

HTH
Cheers
Carim

LrngasIgo wrote:
I'm assuming this is a macro which I am not very familiar with. But, I copy
and pasted what you type into my workbook. Was anything supposed to change?

"Carim" wrote:

Hi,

For a start and to be adjusted to your specific needs ...

Sub Dependents()
ActiveCell.Copy
ActiveCell.Dependents.Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

HTH
Cheers
Carim

Cell shading in linked cells
 

Hi,
I've tried to put this macro in and run it but it give me an error and this
line is highlighted.Selection.PasteSpecial Paste:=xlFormats,
Operation:=xlNone.
What am I doing wrong?
Thanks

"Carim" wrote:

Hi,

Macros have to inserted into modules ...
To access Visual Basic press Alt F11...
Then from the menu, choose Insert Module ...
in the right part, you cn copy the macro ...

Back in your spreadsheet, you can call your macros with Alt F8
and select the macro you want to run ...

HTH
Cheers
Carim

LrngasIgo wrote:
I'm assuming this is a macro which I am not very familiar with. But, I copy
and pasted what you type into my workbook. Was anything supposed to change?

"Carim" wrote:

Hi,

For a start and to be adjusted to your specific needs ...

Sub Dependents()
ActiveCell.Copy
ActiveCell.Dependents.Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

HTH
Cheers
Carim

Cell shading in linked cells
 

instead of "xlformats" use
xlPasteFormats

try the above.
In such cases
after typing pastespecial if you make a space you get the download list and
you can click the necesary item.


"LrngasIgo" wrote in message
...
Hi,
I've tried to put this macro in and run it but it give me an error and
this
line is highlighted.Selection.PasteSpecial Paste:=xlFormats,
Operation:=xlNone.
What am I doing wrong?
Thanks

"Carim" wrote:

Hi,

Macros have to inserted into modules ...
To access Visual Basic press Alt F11...
Then from the menu, choose Insert Module ...
in the right part, you cn copy the macro ...

Back in your spreadsheet, you can call your macros with Alt F8
and select the macro you want to run ...

HTH
Cheers
Carim

LrngasIgo wrote:
I'm assuming this is a macro which I am not very familiar with. But, I
copy
and pasted what you type into my workbook. Was anything supposed to
change?

"Carim" wrote:

Hi,

For a start and to be adjusted to your specific needs ...

Sub Dependents()
ActiveCell.Copy
ActiveCell.Dependents.Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

HTH
Cheers
Carim