View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Claus Busch Claus Busch is offline
external usenet poster
 
Posts: 3,872
Default Repeat data on all sheets

Hi Robert,

Am Sat, 31 Oct 2015 15:42:41 -0700 schrieb Robert Crandal:

My spreadsheet has 5 sheets. I want the contents of cell A1 to
be repeated on all 5 sheets.


select Sheet2 and with pressed Shift button Sheet5.
Enter in A1 the formula:
=Sheet1!A1

Or right click on sheet tab of Sheet1 = Show Code and paste following
code into the code window:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) < "A1" Then Exit Sub

Dim i As Long

For i = 2 To 5
Sheets(i).Range("A1") = Target
Next
End Sub


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional