Hi Guys,
I'm trying to figure out if it's possible to load the pagebreaks for a range into an array without looping. Just checking, becuase looping is taking about 20 seconds or so.
Thanks for any help
Doesn't Work
Works but takes a second
PgBreakRows = Sheet2.[EYIDStart].Resize(61).EntireRow.PageBreak
c = 0 For i = 0 To CountofAssets - 1 ReDim PgBreakRows(c) If Sheet2.Rows([EYIDStart].Offset(i).Row).PageBreak <> xlPageBreakNone Then PgBreakRows(c) = Sheet2.[EYIDStart].Offset(i).Row End If Next
Try this...
Dim i As Long Dim PgBreakRows() As Long ReDim PgBreakRows(1 To Sheet2.HPageBreaks.Count) For i = 1 To Sheet2.HPageBreaks.Count PgBreakRows(i) = Sheet2.HPageBreaks(i).Location.Row Next i
Surround your VBA code with CODE tags e.g.;
[CODE]your VBA code here[/CODE]
The # button in the forum editor will apply CODE tags around your selected text.
Very Very Nice! Thank you!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks