I have four sheets where the information is identical but arranged differently. I have two columns of 135 cells each within each of those sheets that it would be useful to have link to each other, so that any entry or change in one of those cells will link to the corresponding cell in each of the three other sheets. I found this code for doing this between two sheets:
And it looks like it will work, but I need to be able to make it work across four different sheets. Would someone please advise me on the changes I'd need to make/if this is even worth it/possible?![]()
Private Sub Worksheet_Change(ByVal Target As Range) Dim rFrom as Range If Target.Count = 1 Then With Target.WorkSheet Set rFrom = .Range("A1:A20") If Not Intersect(Target, rFrom) Is Nothing Then Application.EnableEvents = False 'Include next line Just in Case something happens ' You don't want to leave EnableEvents off On Error Resume Next rFrom.Copy Worksheets("Sheet2").Range("B10:B30") If Err.Number <> 0 Then Msgbox "Error Occurred" End If Application.EnableEvents = True End If End With End If End Sub











LinkBack URL
About LinkBacks
Register To Reply

Bookmarks