Migrated Code Error

[dongman]

Does anyone know why I get an error when I migrated this code over to a new worksheet from an old one, even though the tables remained the same size?

Dim x As Long, lastCell As Range, LR As Long, LC As Long, i As Integer, ColSum As Long, fc As Long
x = ActiveSheet.UsedRange.Columns.Count
i = 2
For i = 3 To LC
ColSum = (Cells(1, i).ColumnWidth + Cells(1, i - 1).ColumnWidth)
Next i
Set lastCell = Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0)
LR = lastCell.Row

Do Until Application.Count(Range(Cells(LR, 2), Cells(LR, 256))) <> 0
Set lastCell = lastCell.Offset(-1, 0)
LR = lastCell.Row
LC = lastCell.Column

[dongman]

Sorry, the error shows up on this line:

Set lastCell = lastCell.Offset(-1, 0)

[Shijesh Kumar]

Hi,

if your cursor is one first row..

the the above command will generate error because lastCell.Offset(-1, 0) is referencing row before the first row....

[dongman]

Hrm.. I'm not sure if I understand what you're saying, but it didn't seem to have an effect. And again, this runs on another worksheet but not when I migrate it over.

[Shijesh Kumar]

Trying

Please Login or Register  to view this content.

instead of

Please Login or Register  to view this content.

[dongman]

didn't work. thanks for the suggestion though.

[Shijesh Kumar]

Can you post ur workbook so that we can check wheres the error

[dongman]

i've attached the worksheet and here's the full code:

'
' PrintSetup Macro
'
Dim x As Long, lastCell As Range, LR As Long, LC As Long, i As Integer, ColSum As Long, fc As Long
x = ActiveSheet.UsedRange.Columns.Count
i = 2
For i = 3 To LC
ColSum = (Cells(1, i).ColumnWidth + Cells(1, i - 1).ColumnWidth)
Next i
Set lastCell = Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0)
LR = lastCell.Row

Do Until Application.Count(Range(Cells(LR, 2), Cells(LR, 256))) <> 0
Set lastCell = lastCell.Offset(-1, 0)
LR = lastCell.Row
LC = lastCell.Column

ActiveSheet.PageSetup.CenterHeader = Cells(1, 3) & Chr(13) & Cells(2, 3)
ActiveSheet.PageSetup.CenterFooter = Cells(3, 3)

'colppg = colsum/9
'foursppg = int(colppg/4)
'inc = foursppg*4

Loop
ActiveSheet.PageSetup.PrintArea = Range(Cells(5, 2), lastCell).Address

For i = 8 To LC Step 6
Worksheets("Sheet1").Columns(i + 1).PageBreak = xlPageBreakManual
Next i

With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperLetter
End With

End Sub

thanks again

[dongman]

ah it works! i changed the <> to = on the Do Until line. Funny that the <> works with the pivot table but = works for a normal excel table. any insight on that?