AutoFill

[Ronvoorhorst]

Hallo allen,

Ik heb een vraag met betrekking een maro met autofill.

In het bijgevoegde bestand zie je een prijslijst. nu wil ik middels een macro dat die automatisch aanvult naar de volgende datum. de cellen zijn een verwijzing naar een andere sheet. als ik een macro opneem dan krijg ik wel een de selectie tot het eind (recht en down), maar de range van de autofill Destination moet zijn de selectie tot het onderste ingevulde cel + 1 en dat is nu een vaste waarde.

Tot zover heb ik de macro.

Sub Macro4()

Sheets("Blad1").Select
Range("C6").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AutoFill Destination:=Range("C6:K9"), Type:=xlFillDefault

End sub

Kan iemand mij hierbij verder helpen?

alvast bedankt,

Ron

 

[HierEnNu]

Ik denk dat het zo wel werkt.

Set srange = Sheets("Blad1").Range(Range("C6"), Range("K6").End(xlDown))
    Set frange = Sheets("Blad1").Range(Range("C6"), Range("K6").End(xlDown).Offset(1, 0))
    srange.AutoFill Destination:=frange

Groeten,

M.

 

[Jack Nouws]

Hallo,

Dit werkt ook maar ik weet niet of dit de bedoeling is.

Met vr gr
Jack

 

[Ronvoorhorst]

dank jullie

Dank jullie wel voor jullie hulp.

De eerste optie was meteen wat ik bedoelde, maar Jack nouws evengoed bedankt voor je hulp.

Groeten Ron