sspatriots
Well-known Member
- Joined
- Nov 22, 2011
- Messages
- 574
- Office Version
- 365
- Platform
- Windows
Hi,
I want to use the code below that moves a row of information to another worksheet when the word "Done" is put into this one column. I would like to use it to do the same thing, but instead of the word "Done", I want the code to execute when any date is put in that column.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
If Target = "Done" Then
Target.EntireRow.Copy Sheets(Range("A" & Target.Row).Value).Cells(Sheets(Range("A" & Target.Row).Value).Rows.Count, "A").End(xlUp).Offset(1, 0)
End If
End Sub
I've played with this for the last hour and googling the If Target statements, but nothing will work. This is not for the same spreadsheet my other post was for. Trying to optimize about 8 spreadsheets for this company I just started working at. Any assistance would be much appreciated.
Steve
I want to use the code below that moves a row of information to another worksheet when the word "Done" is put into this one column. I would like to use it to do the same thing, but instead of the word "Done", I want the code to execute when any date is put in that column.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
If Target = "Done" Then
Target.EntireRow.Copy Sheets(Range("A" & Target.Row).Value).Cells(Sheets(Range("A" & Target.Row).Value).Rows.Count, "A").End(xlUp).Offset(1, 0)
End If
End Sub
I've played with this for the last hour and googling the If Target statements, but nothing will work. This is not for the same spreadsheet my other post was for. Trying to optimize about 8 spreadsheets for this company I just started working at. Any assistance would be much appreciated.
Steve