How to Mirror cells in excel 2013 [closed]

I want to make an excel file for sales management of my company. the excel I have created has 4 sheets and every sheet is handled by different persons.

I want to dedicate the first column of these sheets to the status of each order in way that when someone changes the status in sheet number one the status column in other 3 sheets change too. Also when another person changes the status in sheet number 2 the sheets number 1,3 and 4 change too.

Is it possible? If so, how can I do it?

Solution 1:

Put this code in Sheet1 Module (Right Mouse Click Sheet1 Tab and select "View Code"):

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rFrom as Range

If Target.Count = 1 Then
    With Target.WorkSheet
         Set rFrom = .Range("A:A")
         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("A:A")
             If Err.Number <> 0 Then
                 Msgbox "Error Occurred"
             End If
             Application.EnableEvents = True
         End If
     End With
End If
End Sub

Put the same for Sheet2 (obviously changing the appropriate addresses). Change Sheet2 to Sheet1

For changing only one sheet:
=Sheet1!A:A if you want that cells in another sheet mirror cells in column A in Sheet1.

Also another question asked on superuser is similar to yours but not the same.