Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Efficient Code
I have this code:
Sub CopyOverCompleted() Dim a As Long Dim i As Long With Sheets("Status") i = .Cells(Rows.Count, "B").End(xlUp).Row For a = 4 To i If .Cells(a, "L").Value < "" Then .Cells(a, "L").EntireRow.Cut _ Sheets("Completed").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) Next a End With LastRow = Sheets("Status").UsedRange.Row - 1 + _ Sheets("Status").UsedRange.Rows.Count Application.ScreenUpdating = False For r = LastRow To 4 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r Application.ScreenUpdating = True End Sub which cuts and deletes completed projects (rows) to the completed sheet. Is there a way to shorten and improve the code. TIA Greg |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
making code more efficient | Excel Discussion (Misc queries) | |||
More Efficient code than this | Excel Programming | |||
Making code more efficient | Excel Programming | |||
Book on how to write VBA code in a fast/efficient manner? | Excel Programming | |||
More efficient code | Excel Programming |