Autofill method of Range Class Failed 1

[lhrpa]

Help (again!)

I'm trying to autofill a column of data with a sequence number. I can find the range I need to fill no problem (thanks to the wonderful FAQ section ), but for some reason I'm getting an error on my autofill. Any suggestions?

Thanks a million!

Linda

Sub fillit()

Dim LastRow As Integer ' Find the last real row
LastRow = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row

LastRow = LastRow - 11
'
Range("B16&quot.FormulaR1C1 = "=+R[-1]C+1"
Selection.AutoFill _
Destination:=Range("B16:B" & LastRow), Type:=xlFillDefault
Range("B16:B" & LastRow).Select

End Sub

 

[Stretchwickster]

I think you need to select a range before you do the AutoFill line.

Instead of this code:

    Range("B16").FormulaR1C1 = "=+R[-1]C+1"
    Selection.AutoFill _
   Destination:=Range("B16:B" & LastRow), Type:=xlFillDefault
    Range("B16:B" & LastRow).Select

try this:

    Range("B16").Select
    Selection.FormulaR1C1 = "=+R[-1]C+1"
    Selection.AutoFill _
   Destination:=Range("B16:B" & LastRow), Type:=xlFillDefault
    Range("B16:B" & LastRow).Select

Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[lhrpa]

That did the trick - thank you!!! You made my day!!

Linda

 

[Stretchwickster]

Glad to be of service - it's not every day that I make someone's day!!! ;-)


Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)