Thread: Need a Formula
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Chip Pearson Chip Pearson is offline
external usenet poster
 
Posts: 7,247
Default Need a Formula

"Niek Otten" wrote in message

To make it work both ways is difficult and not recommended


I would respectfully disagree with that statement. It isn't particularly
difficult, and I wouldn't recommend against it, as long as you code
carefully. The following code in ThisWorkbook will update A1:A10 on Sheet1
and Sheet2 in either direction.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Const SHEET_ONE_NAME = "Sheet1" '<<< CHANGE
Const SHEET_TWO_NAME = "Sheet2" '<<< CHANGE
Const SHEET_RANGE_ADDRESS = "A1:A10" '<<< CHANGE

If Target.Cells.Count 1 Then
Exit Sub
End If
Application.EnableEvents = False
If Not Application.Intersect(Sh.Range(SHEET_RANGE_ADDRESS ), Target) _
Is Nothing Then
With ThisWorkbook.Worksheets
If StrComp(Sh.Name, SHEET_ONE_NAME, vbTextCompare) = 0 Then
.Item(SHEET_TWO_NAME).Range(Target.Address) = Target.FormulaArray
ElseIf StrComp(Sh.Name, SHEET_TWO_NAME, vbTextCompare) = 0 Then
.Item(SHEET_ONE_NAME).Range(Target.Address) = Target.FormulaArray
End If
End With
End If
Application.EnableEvents = True

End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)


"Niek Otten" wrote in message
...
Hi Jon,

In Sheet3, cell B4:

=Sheet1!A3

To make it work both ways is difficult and not recommended

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"JonWardellBuilders" wrote
in message
...
| What do i use to make a cell ('sheet1'!A3) link with ('sheet3'!B4)?
|
| Basically i want what ever gets entered into sheet 1 cell A3 to be
| autimatically entered in Sheet 3 cell B4. Even better would be if i
change
| something in either cell it will change the other with the same
information.
| --
| Jon Robershaw
| Wardell Builders, Inc