ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Dynamic Autofill Error (https://www.excelbanter.com/excel-programming/447422-dynamic-autofill-error.html)

KeriM

Dynamic Autofill Error
 
I have a piece of code that does a dynamic autofill and it usually works wonderfully. I just added it to a report that I'm working on, and I got the 1004 runtime error, "Application defined or object-defined error".

Here is my code:

Code:

    NumberofRows = Cells(Rows.Count, "B").End(xlUp).Row  'Choose column letter that has last row of data
    Range("A2").Select
    ActiveCell.Autofill Range(ActiveCell, Cells(NumberofRows, _
    ActiveCell.Column - 1).Offset(, 1))

The NumberofRows variable equates out to 516. I'm not sure if that's a factor in this error (too many rows?).

Any help is appreciated!

KeriM

Quote:

Originally Posted by KeriM (Post 1606494)
I have a piece of code that does a dynamic autofill and it usually works wonderfully. I just added it to a report that I'm working on, and I got the 1004 runtime error, "Application defined or object-defined error".

Here is my code:

Code:

    NumberofRows = Cells(Rows.Count, "B").End(xlUp).Row  'Choose column letter that has last row of data
    Range("A2").Select
    ActiveCell.Autofill Range(ActiveCell, Cells(NumberofRows, _
    ActiveCell.Column - 1).Offset(, 1))

The NumberofRows variable equates out to 516. I'm not sure if that's a factor in this error (too many rows?).

Any help is appreciated!

Sorry guys, I feel like I'm always answering my own questions before anyone can answer. I took out " - 1).Offset(, 1))" and it worked just fine. Do I even need these in there for this code to work properly? I'm not sure what their purpose is, I pieced this code together from forum posts, so I just copied what worked.

Claus Busch

Dynamic Autofill Error
 
Hi,

Am Thu, 18 Oct 2012 14:15:10 +0000 schrieb KeriM:

NumberofRows = Cells(Rows.Count, "B").End(xlUp).Row 'Choose column letter that has last row of data
Range("A2").Select
ActiveCell.Autofill Range(ActiveCell, Cells(NumberofRows, _
ActiveCell.Column - 1).Offset(, 1))


try:
NumberOfRows = Cells(Rows.Count, "B").End(xlUp).Row
Range("A2").AutoFill Range(Cells(2, 1), Cells(NumberOfRows, 1))


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2


All times are GMT +1. The time now is 05:24 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com