Autofill med makro

Du kan køre denne hvis du står i første celle for dit autofill
(Går efter venstre række)

Sub Macro1()
Dim x
Set x = Range(Selection.Offset(0, -1), Selection.Offset(0, -1).End(xlDown))
Selection.AutoFill Destination:=x.Offset(0, 1)
End Sub

Mange tak for hjælpen, men det fungerer ikke helt!

Dette er et udsnit fra makroen:
- I celle F1 har jeg en kolonneoverskrift og i F2 en formel, som jeg gerne vil lave et autofill på!
- Skulle det så ikke fungere med nedenstående?:

Range("F3").Select
Dim x
Set x = Range(Selection.Offset(0, -1), Selection.Offset(0, -1).End (xlDown))
Selection.AutoFill Destination:=x.Offset(0, 1)


Og, hvis jeg skal lave flere af disse autofill i samme makro kan jeg så godt skrive "Dim x" igen? eller skal der anvendes et andet bogstav?

Du skal starte i cellen hvor formlen står.
Du behøver ikke at dimme X igen eller anvende andet bogstav.

Dim x as Range
Range("F2").Select
Set x = Range(Selection.Offset(0, -1), Selection.Offset(0, -1).End (xlDown))
Selection.AutoFill Destination:=x.Offset(0, 1)

Range("K2").Select
Set x = Range(Selection.Offset(0, -1), Selection.Offset(0, -1).End (xlDown))
Selection.AutoFill Destination:=x.Offset(0, 1)

Sådan! Tak for hjælpen...

velbekomme, det blev også "gratis", da du tog pointene selv :-)

Ups! det er jeg ked af.. Men det er første gang jeg benytter Eksperten, så jeg var ikke hel klar over hvordan det fungerede... Men mange tak for hjælpen..

Det er ok. Der er altid plads til førstegangsfejl :-)