VBA vraagje

[oceanrace]

Hallo forummers,

Deze goedwerkende code werkt goed maar vrij traag:

        .Unprotect
        .Range("AR2:AX2").AutoFill Destination:=.Range("AR2:AX" & .Range("A65535").End(xlUp).Row)
        .Range("AR3:AX65536").Copy
        .Range("AR3:AX65536").PasteSpecial xlPasteValues
        .Range("AR3:AW65536").ClearContents
        .Protect

Is dit normaal of klopt de code niet helemaal?

 

[danny147]

Beste oceanrace

Is het nodig om het bereik zo groot te houden ?

ipv 65536 kan je dit niet aanpassen tot aan de laatst gevulde cel (Bv 200)

Groetjes Danny. :thumb:

 

[wampier]

calculate tijdelijk op manual en screenupdate uit en deze code loopt waarschijnlijk 50x sneller

 

[RoCompy87]

En volgens mij kan het ook zonder copy and paste:

        .Unprotect
        .Range("AR2:AX2").AutoFill Destination:=.Range("AR2:AX" & .Range("A65535").End(xlUp).Row)
        [COLOR="blue"].Range("AR3:AX65536").Value=.Range("AR3:AX65536").Value[/COLOR]        .Range("AR3:AW65536").ClearContents
        .Protect

 

[oceanrace]

Bedankt voor de tips,
screenupdate had ik al, bereik kan idd kleiner (hoewel dit wel verschiilend is).
Calculate kende ik nog niet, ga ik proberen!

 

[danny147]

Beste oceanrace

Bedankt voor de tips,
bereik kan idd kleiner (hoewel dit wel verschiilend is).

Geef dan een 1000-tal in, maar 65536 lijkt mij toch te veel.

Groetjes Danny. :thumb:

 

[oceanrace]

Scheelt idd wel...
Staat nu op 30.000, gemiddeld aantal rijen is zo'n 20.000.