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

     

AAnger1750's avatar
AAnger1750
Copper Contributor
Aug 27, 2021

@Logaraj Sekar   I was wondering if this macro would work when I am trying to move a whole row from a table in sheet one to a table on sheet two If column B has a value of "Finished". So the clearify I have two sheets. and a table in each sheet = Sheet one with table one & sheet two with table two and if table one column B has value of FINISHED then that row moves to sheet two table two. Also the tables have hundreds of rows is there a certain way it has to be written to make sure it appears without over riding anything in the table its being added too?

Resources