Anybody know how to write a vbscript that can copy font setting like size or
color from sheet1 to another sheet. Both sheets have the same information
on it so that if you change the font size on cell B2 on sheet1 the
corresponding cell on sheet2 would be the same. Hope this make sense and
somebody knows how to do this. Thanks for all your help.

Take a look at Format / Style

Sub sheetformat()
Dim ws As Worksheet
For Each ws In Worksheets
With ws.Cells
.Font.Size = 8
.Interior.ColorIndex = 24
' etc etc
End With
Next
End Sub


"dadospartacus" wrote:

Anybody know how to write a vbscript that can copy font setting like size or
color from sheet1 to another sheet. Both sheets have the same information
on it so that if you change the font size on cell B2 on sheet1 the
corresponding cell on sheet2 would be the same. Hope this make sense and
somebody knows how to do this. Thanks for all your help.

dadospartacus,
Does PasteSpecial Formats do it ?

NickHK

"dadospartacus" wrote in message
...
Anybody know how to write a vbscript that can copy font setting like size
or
color from sheet1 to another sheet. Both sheets have the same information
on it so that if you change the font size on cell B2 on sheet1 the
corresponding cell on sheet2 would be the same. Hope this make sense and
somebody knows how to do this. Thanks for all your help.

That does work but I would have to do that for 100 cells which is going to
take a long time. Wanted something that will automatically change sheet2
once the person make a font change on sheet1.


"NickHK" wrote in message
...
dadospartacus,
Does PasteSpecial Formats do it ?

NickHK

"dadospartacus" wrote in message
...
Anybody know how to write a vbscript that can copy font setting like size
or
color from sheet1 to another sheet. Both sheets have the same
information
on it so that if you change the font size on cell B2 on sheet1 the
corresponding cell on sheet2 would be the same. Hope this make sense and
somebody knows how to do this. Thanks for all your help.

This does look like it will work but you would have to assign that to a
button right? Also it doesn't automatic detect that there was a font change
on sheet1 and auto make the change in sheet2.Thanks for your help.


"Patrick Molloy" wrote in message
...
Take a look at Format / Style

Sub sheetformat()
Dim ws As Worksheet
For Each ws In Worksheets
With ws.Cells
.Font.Size = 8
.Interior.ColorIndex = 24
' etc etc
End With
Next
End Sub


"dadospartacus" wrote:

Anybody know how to write a vbscript that can copy font setting like size
or
color from sheet1 to another sheet. Both sheets have the same
information
on it so that if you change the font size on cell B2 on sheet1 the
corresponding cell on sheet2 would be the same. Hope this make sense and
somebody knows how to do this. Thanks for all your help.

dadospartacus,
If it's the same data and format, what about Link Picture ?

NickHK

"dadospartacus" wrote in message
...
That does work but I would have to do that for 100 cells which is going to
take a long time. Wanted something that will automatically change sheet2
once the person make a font change on sheet1.


"NickHK" wrote in message
...
dadospartacus,
Does PasteSpecial Formats do it ?

NickHK

"dadospartacus" wrote in message
...
Anybody know how to write a vbscript that can copy font setting like
size
or
color from sheet1 to another sheet. Both sheets have the same
information
on it so that if you change the font size on cell B2 on sheet1 the
corresponding cell on sheet2 would be the same. Hope this make sense
and
somebody knows how to do this. Thanks for all your help.