change cells on cell change

[nelsok]

I have this code

Please Login or Register  to view this content.

When cell b3 is changed i want to replace what is in a1:a5 with what is in b1:b5

any ideas?

[Rick Hansen]

nesok, Try putting your code in the WorkSheet_Change() event.

something like this (see below). This event fires when there has been change
in the Target address.
HTH , Rick


Private Sub Worksheet_Change(ByVal Target as Range)
If Target.Address = "$b$3" Then
Sheets("Sheet2").Range("a1:a5") = Sheets("Sheet2").Range("b1:b5")
End If
End Sub





"nelsok" <[email protected]> wrote in
message news:[email protected]...
>
> I have this code
>
>
> Code:
> --------------------
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Target.Address = "$b$3" Then
> Sheets("Sheet2").Range("a1:a5") = Sheets("Sheet2").Range("b1:b5")
> End If
> End Sub
> --------------------
>
>
> When cell b3 is changed i want to replace what is in a1:a5 with what is
> in b1:b5
>
> any ideas?
>
>
> --
> nelsok
> ------------------------------------------------------------------------
> nelsok's Profile:
http://www.excelforum.com/member.php...o&userid=30682
> View this thread: http://www.excelforum.com/showthread...hreadid=518072
>