impose a value from workbook A to a cell in workbook B without for
 

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?

impose a value from workbook A to a cell in workbook B without for
 

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?

impose a value from workbook A to a cell in workbook B without for
 

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?

impose a value from workbook A to a cell in workbook B without for
 

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

impose a value from workbook A to a cell in workbook B without for
 

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