Hi,
I've got a macro like below:
lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Range("M2:X2").Select
Selection.AutoFill Destination:=Range("M2:X" & lngLastRow)

When I run the macro, I come up with error 1004 - Autofill method of range
class failed.

the lngLastRow is 2.

Can anyone help me?
Thanks

Hi

Your code is working perfectly, the issue is that lngLastRow is two, so
there are no rows to fill.

If you have some data in A3, and run the macro it will run with no error.

Hopes this helps.

Per

"diepvic" skrev i meddelelsen
...
Hi,
I've got a macro like below:
lngLastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Range("M2:X2").Select
Selection.AutoFill Destination:=Range("M2:X" & lngLastRow)

When I run the macro, I come up with error 1004 - Autofill method of range
class failed.

the lngLastRow is 2.

Can anyone help me?
Thanks

Thanks so much Per Jessen,

Do you have any idea to solve this? The data can have one row or more than
that. I can not predict it.

Should I use the If ...then...else statement?
like, If lngLastRow 2 then
Range("M2:X2").Select
Selection.AutoFill Destination:=Range("M2:X" & lngLastRow)

Thanks


-----------------------------------------------------------------------------
Less Spam Better enjoyable experience
Visit : news://spacesst.com

Using a If ...Then statement like you suggest is the way to solve it, but
you don't need to select the range.

If lngLastRow 2 Then
Range("M2:X2").AutoFill Destination:=Range("M2:X" & lngLastRow)
End If

Regards,
Per

"diepvic" skrev i meddelelsen
...
Thanks so much Per Jessen,

Do you have any idea to solve this? The data can have one row or more than
that. I can not predict it.

Should I use the If ...then...else statement?
like, If lngLastRow 2 then
Range("M2:X2").Select
Selection.AutoFill Destination:=Range("M2:X" & lngLastRow)

Thanks