Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Moving data to another Sheet
I was looking at another question and the folowing was suggested
Sub stance() Dim MyRange Dim copyrange As Range Lastrow = Cells(Cells.Rows.Count, "D").End(xlUp).Row Set MyRange = Range("D1:D" & Lastrow) For Each C In MyRange If UCase(C.Value) = "R" Then If copyrange Is Nothing Then Set copyrange = C.EntireRow Else Set copyrange = Union(copyrange, C.EntireRow) End If End If Next If Not copyrange Is Nothing Then copyrange.Copy Sheets("Resigned").Range("A1").PasteSpecial End If End Sub How can I change it to copy the row that has anything in column A with 44OP- in. The spreadsheet has two blank lines in-between each row of data. Thanks for any help |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Moving data to another Sheet
SOmething like... For Each C In MyRange If C.OffSet(0,-3)="440P-" Then C.EntireRow.Copy Destination:=Sheets("Resigned").Range("A" & Rows.Count).End(xlUp).OffSet(1,0) ....etc -- The Code Cage Team Regards, The Code Cage Team ------------------------------------------------------------------------ The Code Cage Team's Profile: http://www.thecodecage.com/forumz/member.php?userid=2 View this thread: http://www.thecodecage.com/forumz/showthread.php?t=5647 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Moving data from one sheet to another | Excel Discussion (Misc queries) | |||
moving data from one sheet to another | New Users to Excel | |||
Moving data from one sheet to another- How to? | Excel Worksheet Functions | |||
Moving row data to another sheet | Excel Programming | |||
Moving Data from one sheet to another | Excel Programming |