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

[Luc]

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)


"Luc" <[email protected]> wrote in message
news:[email protected]...
> 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?

[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.

--
Regards,
Tom Ogilvy

"Luc" <[email protected]> wrote in message
news:[email protected]...
> 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]

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 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" <[email protected]> wrote in message
> news:[email protected]...
> > 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

[Tom Ogilvy]

Good Catch - Thanks!

--
Regards,
Tom Ogilvy

"Dave Peterson" <[email protected]> wrote in message
news:[email protected]...
> 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 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" <[email protected]> wrote in message
> > news:[email protected]...
> > > 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