HelpMe;344735 Wrote:
Hi,
I would like to find a value in column A that is = "INIT", once that is
found, I need the entire row moved to the bottom of the sheet. This row
needs
to become the last row and row be deleted from where it was found
initially
I will only have one "INIT" value in column A so as soon as that is
found, I
need to move the row.
Please please help!This should do what you need:
Code:
--------------------
Sub Find_move_n_delete()
Dim FndCel As String
FndCel = Columns(1).Find(What:="INIT", After:=Range("A1"), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Address
Range(FndCel).EntireRow.Copy Destination:=Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Range(FndCel).EntireRow.Delete Shift:=xlUp
End Sub
--------------------
--
Simon Lloyd
Regards,
Simon Lloyd
'The Code Cage' (
http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile:
http://www.thecodecage.com/forumz/member.php?userid=1
View this thread:
http://www.thecodecage.com/forumz/sh...ad.php?t=96447