Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
LastRow = Range("F" & Rows.Count).End(xlUp).Row
For r = 2 To LastRow Step 1 ' Headings in row 1 If Cells(r, "F").Value = "Closed" Then Rows(r).Copy Destination:=Sheets _ ("Interim").Range("A2").Offset(off, 0) Rows(r).Delete off = off + 1 End If Next Thanks |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Is there a faster way to loop thru cells | Excel Programming | |||
For Next loop faster with counter after Next? | Excel Programming | |||
Faster way to loop through two ranges | Excel Programming | |||
Is there a faster loop than this | Excel Programming | |||
Faster For-Next Loop? | Excel Programming |