Copy And Paste

[watkins6878]

Hi all

I have a problem I need to loop through each row in sheet 1 looking @ column K to see the the word PAID is there and if it is cut it from sheet1 and paste it to the next blank row in sheet 2 can someone point me in the right direction please

thanks in advance

Alan

 

[acw]

Alan

How about

Sub ccc()
  Set findit = Range("K:K").Find(what:="PAID")
  If Not findit Is Nothing Then
    Do
      findit.EntireRow.Cut Destination:=Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
      Set findit = Range("K:K").FindNext(findit)
    
    Loop Until findit Is Nothing
  End If
End Sub

Tony

 

[watkins6878]

Hi acw

When I tried your code i got (Subscript out of range) on this line

findit.EntireRow.Cut Destination:=Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

alan

 

[watkins6878]

Hi acw

Sorry my fault I Used sheet1 and sheet2 in place of the real sheet names I replaced sheet 2 and it work great.

Thank you

Alan