Formule doortrekken tot variabel

[Oxy]

Hallo,

Ik ben een macro aan het maken. Daarvoor dien ik op een gegeven moment een aantal formules door te trekken:

Selection.AutoFill Destination:=Range("B3:C33:E293"), Type:=xlFillDefault
Range("B3:C33:E293").Select

Het betreft dus de formules in kolom B C D en E. Deze worden nu doorgetrokken tot rij 293 (laatste rij van kolom A)

Hoe zorg ik ervoor dat de formules tot het eind worden doorgetrokken tot het einde van bv kolom A?

Alvast bedankt.

 

[Wigi]

Hallo,

Ik ben een macro aan het maken. Daarvoor dien ik op een gegeven moment een aantal formules door te trekken:

Selection.AutoFill Destination:=Range("B3:C33:E293"), Type:=xlFillDefault
Range("B3:C33:E293").Select

Het betreft dus de formules in kolom B C D en E. Deze worden nu doorgetrokken tot rij 293 (laatste rij van kolom A)

Hoe zorg ik ervoor dat de formules tot het eind worden doorgetrokken tot het einde van bv kolom A?

Alvast bedankt.

Kijk eerst die range eens na (B, C, D, de syntax lijkt mij eerder raar).

Daarna:

Selection.AutoFill Destination:=Range("B3:C33:E" & Range("A" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault

Wigi

 

[tilpi]

Helemaal tot onderaan??

Zo dan.

Range("B3:E3").Select
Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown)), Type:=xlFillDefault

Mvg

Piet

 

[Oxy]

@ Wigi: Het is gelukt dank je. Het klopt wat er stond alleen was : D veranderd in een . Ik had formules staan in B C D en E. Wederom bedankt Wigi.

@ Tilpi: Nee, niet tot helemaal onderaan. Dan krijg ik namelijk # N/A tot het einde. De formules moeten stoppen tot de onderste rij van de tabel. Het is met behulp van Wigi al gelukt. Toch bedankt voor je reactie.

Groeten.

 

[Wigi]

In orde, zet de vraag nog op opgelost aub.