Sneller gegevens naar ander blad Kopieren.

[ronapet]

Hallo alemaal,

Ik heb een macro gemaakt voor gegevens die ik uitfilter naar een ander blad te kopieren.
(Naar de laatste lege cel in dit blad2).
Ik kopieer eerst de gegevens naar blad3 waarna ik de datum van vandaag toevoeg.
Dit werkt prima,alleen loopt de macro erg lang en wil dit versnellen met een code in VBA.

Alvast bedankt voor jullie input in deze,

Met vriendelijke groeten ronapet.

 

[leofact]

Buiten de code zelf om, kun je de procedure al een stuk sneller laten lopen. door te beginnen met:
Application.ScreenUpdating = False
Application.EnableEvents = False
Zet ze aan het eind weer op true.
zie bijlage

mvg leo

ps: de run opdracht is vervangen door de procedure kopieren aanroep opdracht (eigenlijk CALL, maar alleen de naam is genoeg)

 

[ronapet]

Dit is gewoon SUPPER snel !!!

Bedankt voor jou snelle reactie Leo, jou oplossing is SUPPER !!!:thumb:

Met vriendelijke groeten,
ronapet.

 

[Warme bakkertje]

Beste ronapet, wat ook vertragend werkt zij al die Select, Selection, ActiveCell, ActiveSheet.

Mvg

Rudi

 

[ronapet]

Bedankt voor de tip Rudi,

ik heb deze macro opgenomen en ben nog niet zo goed in VBA.
Dus ik weet nog niet waardoor ik deze moet vervangen.
Maar hij werkt nu al SUPPER ik ben dik tevreden.
Maar ga er mij zeker meer in verdiepen.

Met vriendelijke groeten,
ronapet:thumb: