how can I impose a value from a cell in workbook A to a cell in workbook B
without using a formule in workbook B?

somebody having an idea?

If I understand, it doesn't seem possible without a formula or without VBA.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Luc" wrote in message
...
how can I impose a value from a cell in workbook A to a cell in workbook B
without using a formule in workbook B?

somebody having an idea?

Right click on the sheet tab of the sheet where you will edit the cell.
Select view code and put in code like this:

Private Sub Worksheet_Change(ByVal Target As Range)
If target.Adderss = "$A$1" Then
workbooks("WorkbookB.xls").Range("A1").Value = Target.Value
End if
End Sub

WorkbookB.xls must be open.

--
Regards,
Tom Ogilvy

"Luc" wrote in message
...
how can I impose a value from a cell in workbook A to a cell in workbook B
without using a formule in workbook B?

somebody having an idea?

typo alert <bg:

Private Sub Worksheet_Change(ByVal Target As Range)
If target.Address = "$A$1" Then
workbooks("WorkbookB.xls").worksheets("sheet1").Ra nge("A1").Value _
= Target.Value
End if
End Sub

(I added worksheets(), too.)

(I wonder if Adderss was one of Peo's Swedish pals? <gd&r)


Tom Ogilvy wrote:

Right click on the sheet tab of the sheet where you will edit the cell.
Select view code and put in code like this:

Private Sub Worksheet_Change(ByVal Target As Range)
If target.Adderss = "$A$1" Then
workbooks("WorkbookB.xls").Range("A1").Value = Target.Value
End if
End Sub

WorkbookB.xls must be open.

--
Regards,
Tom Ogilvy

"Luc" wrote in message
...
how can I impose a value from a cell in workbook A to a cell in workbook B
without using a formule in workbook B?

somebody having an idea?

--

Dave Peterson

Good Catch - Thanks!

--
Regards,
Tom Ogilvy

"Dave Peterson" wrote in message
...
typo alert <bg:

Private Sub Worksheet_Change(ByVal Target As Range)
If target.Address = "$A$1" Then
workbooks("WorkbookB.xls").worksheets("sheet1").Ra nge("A1").Value _
= Target.Value
End if
End Sub

(I added worksheets(), too.)

(I wonder if Adderss was one of Peo's Swedish pals? <gd&r)


Tom Ogilvy wrote:

Right click on the sheet tab of the sheet where you will edit the cell.
Select view code and put in code like this:

Private Sub Worksheet_Change(ByVal Target As Range)
If target.Adderss = "$A$1" Then
workbooks("WorkbookB.xls").Range("A1").Value = Target.Value
End if
End Sub

WorkbookB.xls must be open.

--
Regards,
Tom Ogilvy

"Luc" wrote in message
...
how can I impose a value from a cell in workbook A to a cell in
workbook B
without using a formule in workbook B?

somebody having an idea?

--

Dave Peterson