Hi All

I am working on a spreadsheet where if a cell doesn't
match a date range the whole row is deleted. The macro
created worked fine in Excel97. However, it can take
anything up to an hour and a half for the macro to
process now. I have tried turning of page breaks, screen
update and automatic calculations but have no luck. Is
this a bug within Excel and is there a work-around?

This is indeed a bug. It has to do with the junk that is loaded into th
memory when starting the workbook. This amount can be huge, if th
workbook is old and is used frequently.

Solution:
Copy and paste the entire workbook (sheet by sheet) to anothe
workbook. Just copy the values and the VBA scripts, DO NOT cut an
paste or use the move/copy provided within excel

--
Message posted from http://www.ExcelForum.com

THanks for the quick response

This has slightly improved and helps delete around 100
rows almost instantaneously, however, it then slows down
again, is there anything else I could do?


-----Original Message-----
This is indeed a bug. It has to do with the junk that is
loaded into the
memory when starting the workbook. This amount can be
huge, if the
workbook is old and is used frequently.

Solution:
Copy and paste the entire workbook (sheet by sheet) to
another
workbook. Just copy the values and the VBA scripts, DO
NOT cut and
paste or use the move/copy provided within excel.


---
Message posted from http://www.ExcelForum.com/

.

I've tried deleting rows 1 by 1 in a new workbook and I
get the same result, basically it slows down after
deleting 20 rows 1 by 1


-----Original Message-----
THanks for the quick response

This has slightly improved and helps delete around 100
rows almost instantaneously, however, it then slows down
again, is there anything else I could do?


-----Original Message-----
This is indeed a bug. It has to do with the junk that
is
loaded into the
memory when starting the workbook. This amount can be
huge, if the
workbook is old and is used frequently.

Solution:
Copy and paste the entire workbook (sheet by sheet) to
another
workbook. Just copy the values and the VBA scripts, DO
NOT cut and
paste or use the move/copy provided within excel.


---
Message posted from http://www.ExcelForum.com/

.

.

Can you post your script here? Otherwise I cannot tell you why it doe
that...

--
Message posted from http://www.ExcelForum.com

Here is a small Example

Sub Delete_Row_600_551()

Sheets("Data").Select

If Range("G600") < Range("Q1") Then
Rows("600:600").Select
Selection.Delete Shift:=xlUp
End If

If Range("G600") Range("S1") Then
Rows("600:600").Select
Selection.Delete Shift:=xlUp
End If


If Range("G599") < Range("Q1") Then
Rows("599:599").Select
Selection.Delete Shift:=xlUp
End If

If Range("G599") Range("S1") Then
Rows("599:599").Select
Selection.Delete Shift:=xlUp
End If
End Sub


-----Original Message-----
Can you post your script here? Otherwise I cannot tell
you why it does
that....


---
Message posted from http://www.ExcelForum.com/

.