Kopieeren zonder selecteren

[Lèchajiém]

Beste excellers,

Waarschijnlijk staat het ergens in het forum.
Ik ben al een tijdje aan het zoeken maar kan het helaas niet vinden.

als VBA beginner heb ik een probleem met selecteren.

als ik cellen wil kopieeren met een macro van het ene blad naar het andere dan doe ik dat middels selecteren.
Met als gevolg dat als ik de macro laat lopen je van de ene blad naar het andere spring.
Dit vind ik niet zo mooi, Hoe kan ik dit voor komen ?

wat zou bv. dit stukje code worden zonder select(indien mogelijk):

Sheets("invulblad").Select
Range("F6").Select
Selection.Copy
Sheets("Adressen").Visible = True
Sheets("Adressen").Select
Range("C10000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("invulblad").Select
Range("F8").Select
Selection.Copy
Sheets("Adressen").Visible = True
Sheets("Adressen").Select
Range("D10000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

alvast dank
Lechie

 

[Cobbe]

Probeer dez code eensdoet hetzelfde)

Application.screenupdating=false
Sheets("invulblad").Range("F6").Copy
Sheets("Adressen").Range("C10000").PasteSpecial Paste:=xlPasteValues
Sheets("invulblad").Range("F8").Copy
Sheets("Adressen").Range("D10000").PasteSpecial Paste:=xlPasteValues
apllication.screenupdating=true

Probeer altijd select te vermijden.

Cobbe

 

[Lèchajiém]

Daar zal ik eens mee aan de slag gaan Cobbe
nog even 1 vraagje :

wat doet die application.screenupdating precies

alvast bedankt Cobbe

gr.

Lechie

 

[Haaren101]

Je zet het updaten van het beeld scherm uit. Als het om je oorspronkelijke code heen zet, dus die met de selects, dan ben je van het hinderlijke heen en weer springen af. Door de selects weg te laten optimaliseer je de VBA code

In principe is de oplossing van Cobbe dubbelop maar werkt altijd erg netjes

Ron

 

[Cobbe]

Deze verhindert dat er steeds een nieuwe schermopbouw plaatsvindt. Dus ook dat er niet steeds van het ene blad nar het andere gesprongen wordt.
Je ziet maw pas het resultaat als de macro is uitgewerkt, of nadat de screenupdating op true is gezet.

Succes, Cobbe

 

[Lèchajiém]

Heel Veel bedankt ik ben weer wat wijzer geworden..


groetjes Lechie