Autofill formules tot de laatste regel

[athestreet]

Hallo,

Ik heb een kleine macro gemaakt waarin ik de formules welke in kolom E2 t/m L2 staan wil kopieren naar E2 tm L3 en daarna weer naar E4 tm L4 enzovoort. Tot de laatste regel waar nog gegevens staan in de kolommen A tm D.

Range ("E2:L2"). Select
Selection.Autofill Destination:=Range("E2:L60000"), Type:=xlFillDefault


Ik heb nu L60000 staan maar moet eigenlijk de laatste regel zijn waarin bij kolom A tm D geen gegevens meer staan. (dat weet ik niet van te voren)
Normaal selecteer je via muis van E2 tm L2 en dubbelklik je daarna in rechterhoekje in cel L2. Maar hoe ik dit nu via macro of VBA moet doen weet ik niet.


Ik gebruik Office 2002 SP3
mvg
athestreet

 

[Haije]

athestreet,

probeer het zo eens.....

rgls=range("A1").currentregion.rows.count
Range ("E2:L2"). Select
Selection.Autofill Destination:=Range("E2:L" & rgls), Type:=xlFillDefault

hierbij aangenomen dat de kolommen a t/m D allemaal even ver gevuld zijn

 

[HSV]

Vermijd "select" en "selection".
Als je niet weet of currentregion bij A1 begint.

Sub hsv()
  Range("E2:L2").AutoFill Range("E2:L" & Cells(Rows.Count, 1).End(xlUp).Row), xlFillDefault
End Sub

 

[Roncancio]

op 1 regel:

Range("E2:L2").AutoFill Range("E2:L" & Cells.SpecialCells(11).Row)

Met vriendelijke groet,


Roncancio

 

[HSV]

Hallo Roncancio,

Specialcells(11) vind ik persoonlijk niet betrouwbaar.
Als je ergens in kolom A iets in typt, en je delete de waarde weer, is specialcells(11) die cel die je net hebt verwijderd.
M.a.w. je autofill wordt langer dan gewenst.

 

[athestreet]

Hallo Haije,

Bedankt voor je hulp.
Werkt goed.

athestreet,

 

[athestreet]

Hallo Roncancio,

Bedankt voor je hulp.
Werkt goed.

 

[athestreet]

Hallo Roncancio,

Bedankt voor je hulp.
Werkt goed.

Deze heb ik nu geinstalleerd.