code versnellen

[wlsandman]

Ik heb de volgende code, alleen is deze errug langzaam.

    .Range("O" & legeregel) = r.Offset(, 4).Text
    .Range("P" & legeregel) = r.Offset(, 5).Text
    .Range("Q" & legeregel) = r.Offset(, 6).Text 
    .Range("R" & legeregel) = r.Offset(, 7).Text 
    .Range("S" & legeregel) = r.Offset(, 8).Text 
    .Range("T" & legeregel) = r.Offset(, 9).Text
    .Range("U" & legeregel) = r.Offset(, 10).Text 
    .Range("V" & legeregel) = r.Offset(, 11).Text 

    .Range("X" & legeregel) = r.Offset(, 12).Text 
    .Range("Y" & legeregel) = r.Offset(, 13).Text 
    .Range("Z" & legeregel) = r.Offset(, 14).Text 
    .Range("AA" & legeregel) = r.Offset(, 15).Text 
    .Range("AB" & legeregel) = r.Offset(, 16).Text 
    .Range("AC" & legeregel) = r.Offset(, 17).Text 
    .Range("AD" & legeregel) = r.Offset(, 18).Text 
    .Range("AE" & legeregel) = r.Offset(, 19).Text 
    .Range("AF" & legeregel) = r.Offset(, 20).Text 
    .Range("AG" & legeregel) = r.Offset(, 21).Text

Het verplaatst gegevens van het ene werkboek naar het andere.
Weet iemand een oplossing/manier om de code te versnellen

Alvast bedankt

 

[Radjesh Klauke]

Zet bovenin de code DoEvents en draai de code nog eens. Heb je ook snelheidswinst geboekt?

 

[Wigi]

r.Offset(,4).Resize(,8).Copy
.Range("O" & legeregel).PasteSpecial xlValues
r.Offset(,12).Resize(,10).Copy
.Range("X" & legeregel).PasteSpecial xlValues

Wigi

 

[wlsandman]

Weer wat geleerd wigi :thumb:

 

[wlsandman]

Zet bovenin de code DoEvents en draai de code nog eens. Heb je ook snelheidswinst geboekt?

Had geen invloed bij mij, maar bedankt voor je reactie!