cloneing cells in different worksheets

[kevatt]

working on two worksheets i have a need to reproduce numeric information
into cells that are not in identical cells on both work sheets as i am
able to do this

example: I want to show the same information in two cells one being on
worksheet 1 d5 and the other being on worksheet 2 b6 (for this example
the source uninportant) its the mechanics that are inportant

i can copy paste it over or any of the other copy paste procedures but
this is to long winded as in the end there will be loads of cloned
cells cant seem to find the informatiion on how to do this ,

step by step would be very handy

regs kev

 

[Tom Ogilvy]

Unless you are going to link the cells with a formula

in B6
=Sheet1!$D$5

you would have to write code to do the copying

Right click on the sheet tab of Sheet1 and select View Code. Put in code
like this:

Private Sub Worksheet_Calculate()
Dim sh1 as Worksheet, sh2 as Worksheet
Dim v1 as Variant, v2 as Variant
Dim i as Long
set sh1 = Worksheets("Sheet1")
set sh2 = worksheets("Sheet2")
v1 = Array("D5","F6","G9")
v2 = Array("B6",M2","A1")
for i = lbound(v1) to ubound(v1)
sh2.Range(v2(i)).Value = sh1.Range(v1(i)).Value
Next
End Sub

 

[kevatt]

thanx to tom for sending some code but it was a little vague did not
know if ths was code that needed to in in corparated in the giving an
overall format or if the cells need to be coded singular

the senareo agian : i wish to enter data in sheet 1 cell b6 and also
display the same information in sheet 2 a10

or

sheet 1 cell a1+b1+c1 anwser to appear in d1 and also a10 on sheet 2


I think this may be one for the experienced

once again step by step pleaze