Formule doortrekken voor verschillende bestanden

[niels12345]

Hoi,

Ik zit met een vraag. Ik heb een macro geschreven waarbij verschillende bestanden geopend worden (1 voor 1), waar dan een weer een macro (met variabelen) overheen gaat.
Hierbij dient er in de data een formule door getrokken worden in een lege kolom. Aangezien voor elk bestand een ander bereik aan data opgehaald wordt, wil ik graag dat de formule doorloopt tot het eind van het bereik. Ik heb het nu opgelost door een vast bereik mee te geven, die dus te lang is. Ik heb nu onderstaande macro:

Sub Ophalen()

model = Sheets("Data ophalen").Cells(10, 4)
model1 = Sheets("Data ophalen").Cells(7, 1)
Var1 = Sheets("Data ophalen").Cells(10, 5)
Var2 = Sheets("Data ophalen").Cells(10, 1)


Workbooks.Open Filename:="D:\Macro\Macro dump.xls"
Selection.AutoFilter Field:=1, Criteria1:=Var1
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Open Filename:=model1
Sheets("Stap 1.").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AD2").Select
Application.CutCopyMode = False

'onderstaande range wil ik graag net zolang maken als het bereik van de opgehaald data.

Selection.AutoFill Destination:=Range("AD2:AD500")
Rows("2:2").Select
Selection.AutoFilter
Range("A3").Select

Alvast bedankt voor de hulp!

Groeten,
Niels

 

[Warme bakkertje]

Selection.AutoFill Destination:=Range("AD2:AD" & Cells(Rows.Count, 30).End(xlUp).Row)

 

[niels12345]

Hoi Rudi,

Thnx voor de code, alleen werkt niet. Ik krijg de volgende melding: "methode AutoFill van klasse range is mislukt".

Misschien ben ik niet helemaal duidelijk geweest, dus nog beetje tekstuele toelichting:

De macro plakt dus data in een excel sheet. Ik heb dan een Vlookup formule staan in cel AD2 en dan wel ik dat die formule ook komt in elke cel daaronder zolang er data in kolom AC2 staat.

Hoop dat het hiermee lukt!

Bedankt alvast weer!

Groeten,
Niels

 

[Warme bakkertje]

Maak van de 30 dan 29.

 

[niels12345]

Ben nog niet zo ervaren in macro's zoals je ziet, maar hij doet het!

Thnx

 

[Warme bakkertje]

Markeer je de vraag dan nog even als opgelost.