Copying everything from a cell in Sheet1 to Sheet2

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am trying to copy all info (formulas, formatting, width, Font, etc) from one sheet to another so the cell on the second sheet will change dynamically when the cell on the first is changed. Is there a way to do this?
 
right click on the sheet tab>insert this>save.
Now when you change cell a6 on this sheet a6 on sheet 3 will reflect it.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$6" Then
Target.Copy
Sheets("sheet3").Range("a6").PasteSpecial Paste:=xlPasteAll
End If
End Sub

--
Don Guillett
SalesAid Software
(e-mail address removed)
Raxer said:
I am trying to copy all info (formulas, formatting, width, Font, etc) from
Click to expand...
one sheet to another so the cell on the second sheet will change dynamically
when the cell on the first is changed. Is there a way to do this?
 
Thanks you for your relpy but I can't seem to get it to work. Did the following

Primary Sheet - Cost Analysi
Copy Sheet - Cost Backu

1. Copied your code belo
2. Right clicked on the Primary sheet (Cost Analysis
3. I chose 'View Code" because it was the only place I could insert the cod
4. Pasted the code into the su
5. Changed sheet3 in your code to Cost Backup (the name of the sheet to be copied to
6. Save
7. Changed cell A6 on Cost Analysis, but it did not change on Cost Back u

Will this copy existing information, or just changes
Also, how can I get it to change all the cells on the Copy Sheet (or the range I am using A1:K84)

Thank you agai

----- Don Guillett wrote: ----

right click on the sheet tab>insert this>save
Now when you change cell a6 on this sheet a6 on sheet 3 will reflect it

Private Sub Worksheet_Change(ByVal Target As Range
If Target.Address = "$A$6" The
Target.Cop
Sheets("sheet3").Range("a6").PasteSpecial Paste:=xlPasteAl
End I
End Su

--
Don Guillet
SalesAid Softwar
(e-mail address removed)
Raxer said:
I am trying to copy all info (formulas, formatting, width, Font, etc) fro
Click to expand...
one sheet to another so the cell on the second sheet will change dynamicall
when the cell on the first is changed. Is there a way to do this
 
Is it like this?
Sheets("Cost Backup").Range("a6").PasteSpecial Paste:=xlPasteAll
If not, fix or send me a SMALL workbook sample to the address below
 
Back
Top