Hello Gentlemen
I am trying to copy Specific cells when criteria is met.
Criteria is when row Q has value ="COMPLTE"
then copy CELL in that row for each column = G,I,J,L,Z,AG,AC
I am getting error : Run-Time error "438" Object doesn't support property or method.
can someone please help me ? thank you in advance !
Sub DataExtraction()
lastRow = Worksheets("Raw Data").Range("q" & Rows.Count).End(xlUp).Row
For r = 1 To lastRow
If Worksheets("Raw Data").Range("Q" & r).Value = "COMPTE" Then
Worksheets("Raw Data").Range ("G" & r & ",I" & r & ",J" & r & ",L" & r & ",Z" & r & ",AG" & r & ",AC" & r)
Worksheets("Compiler").Activate
lastRowRpt = Worksheets("Compiler").Range("a" & Rows.Count).End(xlUp).Row
Worksheets("compiler").Range("a" & lastRowRpt + 1).Select
ActiveSheet.Paste
End If
Next r
End Sub
Bookmarks