Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How to pass font color changes between worksheets 1

Status
Not open for further replies.

rji1124

Technical User
Nov 15, 2001
67
US
Hi... we are using Excel 2003... I was wondering if there was a way to carry font characteristics between cells and worksheets e.g.,
I have 2 worksheets in the same workbook... (A & B)
Worksheet A is an 'overview' sheet and worksheet B is a 'Detail sheet'...

I have cells on A that are pulled from B. On the B sheet (Detail), I change the font color of some cells to Red to show that field has changed - I would like to red color to show up on the A sheet automatically (without having to manually alter the A font color..

Is this possible???

Thanks
 





Hi,

"I change the font color of some cells to Red ..."

How? There is more than ONE way.

Skip,
[sub]
[glasses]Just traded in my old subtlety...
for a NUANCE![tongue][/sub]
 
I do it a couple of different ways - format cells, change color from automatic to red.... the Excel toolbar has a font change pulldown for color...
 




If you Copy 'n' Paste, you also get fomatting information. Turn on your macro recorder.

Skip,
[sub]
[glasses]Just traded in my old subtlety...
for a NUANCE![tongue][/sub]
 
Use paste special and select "all."
Then put it behind a button.

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 09/05/2008 by CSU
Range("A1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Hope that helps.
 
Thanks chilly442 - that was exellent advice! I need to now figure out how to do this in blocks of data from one sheet to another... reading about multiple cells and areas.
Thanks for the help...
 
You can use the same code as above but insert a range.

Range("A1:B100").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1:B100").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

See if that works.

Chilly442
 




How would you describe the various ranges that you want to copy?


Skip,
[sub]
[glasses]Just traded in my old subtlety...
for a NUANCE![tongue][/sub]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top