change cells on cell change
 

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

change cells on cell change
 

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" wrote in
message ...

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