Is there any way to speed this up?

  • Thread starter Thread starter Keith74
  • Start date Start date
K

Keith74

Hi

I've got a bit of code that scans through each cell in the first column
of a spreadsheet using the offset method looking for pagebreaks, and
inserting a new line and some text if it finds one. It takes about
20secs to do just 200 rows. I've set application.visible to false and
application.screenupdating to false. Does anyone know of a way i can
speed this process up?

Thanks

Keith
 
Hi Keith,

That depends on your code - which you haven't posted.

Cheers

--
macropod
[MVP - Microsoft Word]


| Hi
|
| I've got a bit of code that scans through each cell in the first column
| of a spreadsheet using the offset method looking for pagebreaks, and
| inserting a new line and some text if it finds one. It takes about
| 20secs to do just 200 rows. I've set application.visible to false and
| application.screenupdating to false. Does anyone know of a way i can
| speed this process up?
|
| Thanks
|
| Keith
|
 
Keith,
You can use the HPageBreaks/VPageBreaks collection to see where the occur.
Worksheets(1).HPageBreaks(1).Location.Address

NickHK
 
Hi

Here it is

For intCount = 1 To intTotal

If Worksheets("Summary").Rows(intCount).PageBreak <>
xlPageBreakNone _
And ActiveCell.Value <> "" Then
Rows(intCount).Select
Selection.Insert Shift:=xlDown
End If

ActiveCell.Offset(1, 0).Select
Next

cheers
 
removing the selecting will help

With Worksheets("Summary")

iRow = ActiveCell.Row
iCol = ActiveCell.Column

For intCount = 1 To intTotal

If .Rows(intCount).PageBreak <> xlPageBreakNone _
And .Cells(iRow + i - 1, iCol).Value <> "" Then

.Rows(intCount).Insert Shift:=xlDown

End If

Next


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)
 
Back
Top