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

[Guest]

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?

 

[Bob Phillips]

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)

 

[Tom Ogilvy]

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.

 

[Dave Peterson]

typo alert <bg>:

Private Sub Worksheet_Change(ByVal Target As Range)
If target.Address = "$A$1" Then
workbooks("WorkbookB.xls").worksheets("sheet1").Range("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]

Good Catch - Thanks!

--
Regards,
Tom Ogilvy

typo alert <bg>:

Private Sub Worksheet_Change(ByVal Target As Range)
If target.Address = "$A$1" Then
workbooks("WorkbookB.xls").worksheets("sheet1").Range("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>)