Moving cells to another workbook when date is entered in certain cell

redsleeper · Apr 22nd 2016

Hi

I have a spreadsheet that has three worksheets, on worksheet 1 there is a section with actions from previous meetings, I would like to have a copy of this in worksheet 2 when the date is entered in the closed date column then deleted from worksheet. how can I do this?

Grimes0332 · Apr 23rd 2016

Re: Moving cells to another workbook when date is entered in certain cell

Light on details, so a general example that moves to sheet2 (Not "Moving cells to another workbook" as mentioned in your title) when a date is entered in Column 7.

Code

Private Sub Worksheet_Change(ByVal Target As Range)




   On Error GoTo ErrorTrap
   
   If (Target.Column <> 7 Or Not IsDate(Target.Value) Or Target.Row = 1) Then Exit Sub
      
   Application.EnableEvents = False
      
   Range(Cells(Target.Row, 1).Address, Cells(Target.Row, Columns.Count).End(xlToLeft).Address).Copy Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1)
   Target.EntireRow.Delete
   
ErrorTrap:
   
   Application.EnableEvents = True
      
End Sub

Display More

Moving cells to another workbook when date is entered in certain cell

Participate now!

Share