copy to another sheet

[lydka]

Hello Im newbie and need help.
The hotel accommodates guests for longer stays. Each sheet represents one month of the year. If the guest arrives in January but does not leave in January, I need their data to be moved to sheet2. I have the following code:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns("I:I")) Is Nothing Then
Application.ScreenUpdating = False
Target.EntireRow.Copy Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(4, 0)
End If
Application.ScreenUpdating = True
End Sub

The problem is that if I later add the departure date in Sheet1 to date January, the data will still remain in Sheet2. Would anyone be able to advise me?

 

[Fluff]

Duplicate to: Copy data from sheet to sheet with updates

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread. If you do not receive a response, you can "bump" it by replying to it yourself, though we advise you to wait 24 hours before doing so, and not to bump a thread more than once a day.