Forum Discussion

hopr37 hotmail's avatar
hopr37 hotmail
Brass Contributor
Apr 13, 2018
Solved

when cell value changes, copy the information to a new worksheet but also retain each change

Hello. How would I copy a cell ( or row actually) to a new worksheet when I make a change to a particular cell in the first worksheet? AND whenever I make a change to that particular cell it would n...
Changing cell value
Macros & VBA
  • Logaraj Sekar's avatar
    Logaraj Sekar
    Apr 17, 2018

    Try this.

     

    But after entering the value press enter, don't try downarrow / tab .

     

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
    a = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row + 1
    ActiveCell.Offset(-1, 0).Activate
    Sheets("Sheet2").Range("A" & a).Value = ActiveCell.Value
    ActiveCell.Offset(1, 0).Select
    End If
    End Sub

     

Resources