khalid79m
02-20-2009, 05:06 AM
I have taken over a piece of work from a collegue who has left the business, in his script he has this bit of code
Dim rCell As Range
For Each rCell In Sheets("CallData").Range("Final_Check").Cells
If UCase(rCell.Value) = "Complete" Then
rCell.EntireRow.Cut Sheets("SubmittedData").Range("A" & Sheets("SubmittedData"). _
Range("A" & Rows.Count).End(xlUp).Row + 1)
End If
Next
This code is designed to look at all cells in the range "Final_Check" and if any cells contain the words "Complete" , then to copy that entire row and paste it into submitteddata in the next avaliable row using column a to identify the next available row. I tweaked the code as it required a change and caput in no longer works :( what have i DONE?:doh:
Dim rCell As Range
For Each rCell In Sheets("CallData").Range("Final_Check").Cells
If UCase(rCell.Value) = "Complete" Then
rCell.EntireRow.Cut Sheets("SubmittedData").Range("A" & Sheets("SubmittedData"). _
Range("A" & Rows.Count).End(xlUp).Row + 1)
End If
Next
This code is designed to look at all cells in the range "Final_Check" and if any cells contain the words "Complete" , then to copy that entire row and paste it into submitteddata in the next avaliable row using column a to identify the next available row. I tweaked the code as it required a change and caput in no longer works :( what have i DONE?:doh: