Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB Slows to Crawl when Deleting Rows
The macro is pretty basic. If the activecell has a value of 0 then the
entire row is deleted if not 0 then offset to the next row down and loop. The problem seems to be that the spreadsheet has several dozon groupings. After about 100 rows into the process the looping slows to one row every few seconds and it just keeps getting slower and sloower and sloowweeerrr. Any thoughts/suggestions? Windows XP SP1 512 MB memory Excel 2002 SP2 Sub DeleteZeroDataIAN() Application.ScreenUpdating = False Range("bl10").Activate Do Until i = 650 If ActiveCell.Value < "" And ActiveCell.Value = 0 Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(1).Activate End If i = i + 1 Loop Application.ScreenUpdating = True End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB Slows to Crawl when Deleting Rows
All those activates will slow things down. Take a look he
http://www.rondebruin.nl/delete.htm#AutoFilter hth, Doug "forbesy" wrote in message ... The macro is pretty basic. If the activecell has a value of 0 then the entire row is deleted if not 0 then offset to the next row down and loop. The problem seems to be that the spreadsheet has several dozon groupings. After about 100 rows into the process the looping slows to one row every few seconds and it just keeps getting slower and sloower and sloowweeerrr. Any thoughts/suggestions? Windows XP SP1 512 MB memory Excel 2002 SP2 Sub DeleteZeroDataIAN() Application.ScreenUpdating = False Range("bl10").Activate Do Until i = 650 If ActiveCell.Value < "" And ActiveCell.Value = 0 Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(1).Activate End If i = i + 1 Loop Application.ScreenUpdating = True End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB Slows to Crawl when Deleting Rows
Thanks Doug, that worked perfectly!
"Doug Glancy" wrote: All those activates will slow things down. Take a look he http://www.rondebruin.nl/delete.htm#AutoFilter hth, Doug "forbesy" wrote in message ... The macro is pretty basic. If the activecell has a value of 0 then the entire row is deleted if not 0 then offset to the next row down and loop. The problem seems to be that the spreadsheet has several dozon groupings. After about 100 rows into the process the looping slows to one row every few seconds and it just keeps getting slower and sloower and sloowweeerrr. Any thoughts/suggestions? Windows XP SP1 512 MB memory Excel 2002 SP2 Sub DeleteZeroDataIAN() Application.ScreenUpdating = False Range("bl10").Activate Do Until i = 650 If ActiveCell.Value < "" And ActiveCell.Value = 0 Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(1).Activate End If i = i + 1 Loop Application.ScreenUpdating = True End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2007 chats slow to a crawl | Charts and Charting in Excel | |||
print area selection slows excel, formula for hiding rows?? | Excel Discussion (Misc queries) | |||
Excel Slowing To A Crawl | Excel Programming | |||
VBA code slows to a snails crawl when screen saver activated | Excel Programming |