Automatically transfer data to next sheet

[Tjomster]

Hello all

I have two different sheets and want the raw input I add into the first one to automatically transfer in to the same cell on the next sheet and in to a formula. E.g I have written =-‘Sheet1’!A1 in sheet2 to get the first input transferred and change sign, but when I add more information on the first sheet I have to go to sheet 2 and drag/pull down to transfer the additional information. Is there any way I can make the additional rows transfer automatically and in to the formula without having to go to sheet2 and pull down?

 

[Tjomster]

Is there any way to make this work when i want to copy data in to the first sheet or just drag down instead of typing it in manually all the time?

 

[mumps]

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:P")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Dim myRange As Range
    Dim myCell As Range
    Set myRange = Target
    Select Case Target.Column
        Case Is = 11
            For Each myCell In myRange.Cells
                Sheets("Sheet2").Range(Target.Address) = "-" & myCell
            Next myCell
        Case Else
            For Each myCell In myRange.Cells
                Sheets("Sheet2").Range(Target.Address) = myCell
            Next myCell
        End Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[Tjomster]

Thank you so much once again

 

[mumps]

My pleasure.