Autofill - Range. Vad gör jag för fel?

[tejgen]

Är en nybörjare på sånt här.. Hur ska jag skriva för att andra raden ska bli samma som den övre?

 

 

Selection.AutoFill Destination:=Range("AJ2:AL1596"),

 

'Selection.AutoFill Destination:=Range(Cells(2, "AJ"), Cells(RowCount - 1, "AK"))

[Monshi]

1: Bort med Selection. Direktadressera i stil med

Blad1.Range("a1").AutoFill ...

 

2: Din andra rad, adresseringen. mmh.

Jag skulle nog skriva det som

With Blad1
.Range("a1").AutoFill Destination := .Range("AJ2", .Cells(RowCount-1, 36)
End With

 

eller

With Blad1
.Range("a1").AutoFill Destination := .Range("AJ2:AL2").Resize(RowCount-1)
End With

Borde blir rätt även det.

[tejgen]

Tack för att du tog dig tid att svara. Men det funkar fortfarande inte...

 

Får hela tiden error. Run time error 1004. Autofill method of Range class failed

 

Vad beror det på måntro?

 

 

Så här skriver jag:

 

With Worksheets("Orderrader")

 

.Range("AJ2:AL2").AutoFill Destination:=.Range("AJ2", .Cells(RowCount - 1, 36))

 

End With

[Monshi]

My bad...

With Worksheets("Orderrader")

.Range("AJ2:AL2").AutoFill Destination:=.Range("AJ2", .Cells(RowCount - 1, 37))

End With 

borde fungera...