Autofill within a For Loop

[adampnt]

I've got some code within a For loop that works fine until I try to use autofill at the end of each iteration. Here is my code:

For y = 1 To 100
...
whole bunch of working code
...

Sheets("QuickTest").Activate
ActiveSheet.Range(Cells(y + 1784, 2), Cells(y + 1784, 101)).Select
Selection.AutoFill Destination:=Range(Cells(y + 1785, 2), Cells(y + 1785, 101)), Type:=xlFillDefault

Next

The error is raised on the final line (Selection.Autofill . . . )

Any ideas here would be greatly appreciated. Thanks so much for your help.

-Adam

 

[maneesh2312]

What kinda error? Any snap shot?

 

[ukmikeb]

Adam

Welcome to the forum

fyi - Extract from the Help on Range.Autofill -

<TABLE><TBODY><TR><TD class=mainsection>Destination</TD><TD class=mainsection>Required</TD><TD class=mainsection>Range</TD><TD class=mainsection>The cells to be filled. The destination must include the source range.</TD></TR></TBODY></TABLE>

So your code becomes -

ActiveSheet.Range(Cells(y + 1784, 2), Cells(y + 1785, 101)).Select
Selection.Resize(1,100).AutoFill Destination:=Selection, Type:=xlFillDefault

hth

 

[adampnt]

Thanks a ton, Mike. I'd been stuck on that for a while, and your fix worked like a charm.

Cheers,

Adam

 

[ukmikeb]

Adam

Pleased to have helped.

Thanks for the feedback.

Good luck with your project.