Lỗi ActiveWindow.SelectedSheets.HPageBreaks

[nguyet1507]

Tôi có đoạn mã như sau:
Dim I As Integer
For I = 1 To ActiveWindow.SelectedSheets.HPageBreaks.Count
Rows(ActiveWindow.SelectedSheets.HPageBreaks(I).Location.Row).Insert
Next
Khi chạy thì luôn báo lỗi khi I = 2, I =1 vẫn OK, vậy là sao.
Có phải khi Insert thêm dòng vào thì HPageBreaks thay đổi không?
Rất mong mọi người test thử và cho hướng xử lý.
Trân trọng cảm ơn.

 

[Po_Pikachu]

Bạn có thể cho mình xem file được không? Mình làm trên máy mình nhưng đâu có chuyện gì đâu!
Thân.

 

[ptm0412]

Thử làm ngược từ dưới lên trên xem sao:

For I = ActiveWindow.SelectedSheets.HPageBreaks.Count to 1 step -1

 

[nguyet1507]

Hic, cảm ơn các bạn, cứ như ma làm ý. Hôm nay chạy lại thì thấy ngon lành cành đào rồi, thế mới điêu.