I just created a thread but seems its gone.. so re-writing.
What I am trying to do is make a range which will be mirrored in two different sheets.
That is, they accept input which will be reflected in either of the range I specify.
For example, if I put 123123 on Range1, it will be shown the same on range 2.
Also, When I change to 11111 in rage2, it will automatically update range1.
For Sheet1
For Sheet2,
To avoid the loop
Please help!
What I am trying to do is make a range which will be mirrored in two different sheets.
That is, they accept input which will be reflected in either of the range I specify.
For example, if I put 123123 on Range1, it will be shown the same on range 2.
Also, When I change to 11111 in rage2, it will automatically update range1.
For Sheet1
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r1 As Range, r2 As Range
Set r1 = Sheet1.Range("Range1")
Set r2 = Sheet2.Range("Range2")
If Intersect(Target, r1) Is Nothing Then Exit Sub
r2.Value = r1.Value
End Sub
For Sheet2,
To avoid the loop
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r1 As Range, r2 As Range
Dim c As Range
Set r1 = Sheet2.Range("vslname2")
Set r2 = Sheet1.Range("vslname1")
If Intersect(Target, r1) Is Nothing Then Exit Sub
If r2.value<>r1.value then
r2.Value = r1.Value
End If
End Sub
Please help!