Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find a row and move it to the end
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! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find a row and move it to the end
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find a row and move it to the end
This will move the INIT row from wherever it is in row A to the bottom of
row A, closing the gap where it was. Sub MoveINITrow() Columns("A:A").Select Selection.Find(What:="INIT").Activate ActiveCell.Rows("1:1").EntireRow.Select Selection.Cut Selection.End(xlDown).Offset(1).Select Selection.Insert Shift:=xlDown End Sub As required, change the above line Selection.Find(What:="INIT").Activate AS below: If you need to match case Selection.Find(What:="INIT", MatchCase:=True).Activate Find entire word Selection.Find(What:="INIT",LookAt:=xlWhole).Activ ate Both Selection.Find(What:="INIT",LookAt:=xlWhole, MatchCase:=True).Activate -- Steve "HelpMe" wrote in message ... 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! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find a row and move it to the end
Sub Move_Row()
Dim rngColA As Range Dim rngToFind As Range Dim strTofind As String strTofind = "INIT" With Sheets("Sheet1") Set rngColA = .Columns("A:A") Set rngToFind = rngColA.Find(What:=strTofind, _ LookIn:=xlFormulas, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False, _ SearchFormat:=False) If Not rngToFind Is Nothing Then rngToFind.EntireRow.Cut .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Insert Else MsgBox "Did not find " & strTofind End If End With End Sub -- Regards, OssieMac "HelpMe" 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! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find value and move to end of data in same row then move values in | Excel Programming | |||
find and move values <0 | Excel Worksheet Functions | |||
Find and Move Data | Excel Discussion (Misc queries) | |||
Difficult find and move | Excel Programming | |||
Find THIS and move it HERE | Excel Programming |