If condition to move a group of cells based on status
Let me give you more detail too to help.
Worksheet "In Progress"
Column
A=Date, B=Shift, C=Short Description, D=Owner, E=Trigger, F=Date Expected,
G=Status, H=Root cause, prevention, timing
First row on data = row 5 through ...
Worksheet "Complete" is formated same as "In Progress" but used to hold all
Status=Complete or Canceled
File name = Copy of RCA Trigger follow up.xlsx
I hope this helps to customize the needed code. I tried to copy and paste
yours and it didn't do anything.
Thanks again!
Thank you for your time!
John
"Otto Moehrbach" wrote:
Right-click on the sheet "In Progress" tab, select View Code and paste this
macro into that module. "X" out of the module to return to your sheet. As
written, this macro reacts if the word "Complete" is entered into any cell
in Column C (column number 3). In that case, the first 10 columns of that
row are copied to the first blank row of the "Complete" sheet. The original
row in the "In Progress" sheet is then deleted. Come back if you need more.
Otto
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Dest As Range
If Target.Count 1 Then Exit Sub
If IsEmpty(Target.Value) Then Exit Sub
If Target.Column = 3 And Target.Value = "Complete" Then
With Sheets("Complete")
Set Dest = .Range("A" & Rows.Count).End(xlUp).Offset(1)
End With
Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Copy Dest
Target.EntireRow.Delete
End If
End Sub
"Very Basic User" wrote in message
...
I have an excel sheet that is used to collect items that need follow up on
issues. In the sheet, I have one cell that is titles "Status" What I would
like to have happen is... IF I mark status as complete, the entire row of
information is removed form the "In progress" tab and put into the
"Complete"
tab of the worksheet. It would have to cut, paste, and delete the old row.
Any help would be appreciated!
--
Thank you for your time!
John
|