Automatically formating a reference cell?

[thewiseguy]

Hi everyone,

In my worksheet, cell B1 I have the formula "=A1." I would like B1 to also automatically contain the same formats as cell A1. I need the bold format to automatically appear in B1 as my data is being entered into A1. Is this possible?

Thanks in advance for any help!


-twg

 

[VoG]

You will need code to do this, Is it just A1/B1 or a larger range of cells?

 

[thewiseguy]

You will need code to do this, Is it just A1/B1 or a larger range of cells?

the master list is "INPUT!A5:A317"

the cells where the code needs to be are: DETAIL1!A5:A317"



is that enough info?

 

[VoG]

Untested but right click the INPUT tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A5:A17")) Is Nothing Then Exit Sub
With Target
    .Copy
    Sheets("DETAIL").Range(.Address).PasteSpecial Paste:=xlPasteValues
    Sheets("DETAIL").Range(.Address).PasteSpecial Paste:=xlPasteFormats
End With
End Sub

 

[thewiseguy]

Untested but right click the INPUT tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A5:A17")) Is Nothing Then Exit Sub
With Target
    .Copy
    Sheets("DETAIL").Range(.Address).PasteSpecial Paste:=xlPasteValues
    Sheets("DETAIL").Range(.Address).PasteSpecial Paste:=xlPasteFormats
End With
End Sub

thank you. do i need a button to execute this?

 

[VoG]

thank you. do i need a button to execute this?

No - it should run automatically when you change a value.

 

[thewiseguy]

No - it should run automatically when you change a value.

thank you again, that worked great.