Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Speed it up?
Hi -
I'm using the code below to remove zero values from a range of cells ... actually, four ranges of cells. The ranges will be the same within a workbook, but will differ between workbooks -- so, today's range could be Row 8 to Row 52, but tomorrow could be Row 8 to Row 61 (ALWAYS starts with Row 8). For what it's doing, I think the current code is taking WAY too long to run -- some users report upto 3-4 minutes. All users are using XL02 on XP ... Is there anyway to change the code so that it runs faster? Thanks, Ray Current Code: Application.StatusBar = "Removing un-necessary zeroes ..." ActiveSheet.Range("P8").Activate Do While IsEmpty(ActiveCell.Value) = False If ActiveCell.Value = 0 Then ActiveCell.ClearContents ActiveCell.Offset(1, 0).Activate Loop ActiveSheet.Range("Q8").Activate Do While IsEmpty(ActiveCell.Value) = False If ActiveCell.Value = 0 Then ActiveCell.ClearContents ActiveCell.Offset(1, 0).Activate Loop ActiveSheet.Range("U8").Activate Do While IsEmpty(ActiveCell.Value) = False If ActiveCell.Value = 0 Then ActiveCell.ClearContents ActiveCell.Offset(1, 0).Activate Loop ActiveSheet.Range("V8").Activate Do While IsEmpty(ActiveCell.Value) = False If ActiveCell.Value = 0 Then ActiveCell.ClearContents ActiveCell.Offset(1, 0).Activate Loop |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBA Speed up | Excel Discussion (Misc queries) | |||
Can you speed UP drag speed? | Excel Discussion (Misc queries) | |||
Speed | Excel Programming | |||
need for speed! | Excel Programming | |||
Speed? | Excel Programming |