Brandon10131
New Member
- Joined
- Jul 14, 2021
- Messages
- 3
- Office Version
- 2019
- Platform
- Windows
Hello,
I am trying to post copy and paste data rows from one sheet labelled PMs to another labelled Data Summary. I am using a column value of "Incomplete" in column G. I have done it somewhat successfully with help from this forum. I however am having a problem with data not being transferred if there is already another incomplete listed in a row below one which I update. Example being row 23 has an incomplete then row 18 needs it. The row 18 will not transfer over without me removing the 23 incomplete and going in a sequential order.
I also did a Row +5 to ensure it doesn't interfere with other info on my first sheet listed as Data Summary as I couldn't figure out how to ensure it went to a non filled row. Any help or nudge in the right direction would be appreciated greatly. Thank you!
If Not Intersect(Target, Range("G:G")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Dim Lastrow As Long
Lastrow = Sheets("PMs").Cells(Rows.Count, "G").End(xlUp).Row + 5
If Target.Value = "Incomplete" Then
Rows(Target.Row).Copy Destination:=Sheets("Data Summary").Rows(Lastrow)
End If
End If
End Sub
I am trying to post copy and paste data rows from one sheet labelled PMs to another labelled Data Summary. I am using a column value of "Incomplete" in column G. I have done it somewhat successfully with help from this forum. I however am having a problem with data not being transferred if there is already another incomplete listed in a row below one which I update. Example being row 23 has an incomplete then row 18 needs it. The row 18 will not transfer over without me removing the 23 incomplete and going in a sequential order.
I also did a Row +5 to ensure it doesn't interfere with other info on my first sheet listed as Data Summary as I couldn't figure out how to ensure it went to a non filled row. Any help or nudge in the right direction would be appreciated greatly. Thank you!
If Not Intersect(Target, Range("G:G")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Dim Lastrow As Long
Lastrow = Sheets("PMs").Cells(Rows.Count, "G").End(xlUp).Row + 5
If Target.Value = "Incomplete" Then
Rows(Target.Row).Copy Destination:=Sheets("Data Summary").Rows(Lastrow)
End If
End If
End Sub