screenupdating false werkt niet

[deschrik]

Bij het starten van een bepaalde code gebruik ik de onderstaande code. Echter zie je nog wel het verspringen naar de verschillende tabbladen waar acties worden verricht nadat is gedrukt op de knop waaonder de code zit. Weet iemand hoe dit kan?

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

 

[Wigi]

Bij het starten van een bepaalde code gebruik ik de onderstaande code. Echter zie je nog wel het verspringen naar de verschillende tabbladen waar acties worden verricht nadat is gedrukt op de knop waaonder de code zit. Weet iemand hoe dit kan?

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Rara... dat hangt van de code af zeker...

 

[snb]

Om in VBA bewerkingen uit te voeren hoeft helemaal niet naar werkbladen gesprongen te worden.
Benoem de bladen waarmee je wil werken

c0=Workbooks(1).sheets(2).range("A2")
c1=Workbooks(2).sheets(3).range("F10")

 

[Jan van Asseldonk]

Wat is de volledige startcode?
Wordt tussentijds nog naar een andere module gesprongen waar screenupdating tussentijds op true wordt gezet?
Het snelste te controleren door de startmacro eens stap voor stap te doorlopen.

 

[deschrik]

Dankzij onderstaande code springt hij automatisch naar de desbetreffende werkbladen, terwijl ik de screenupdating op false heb staan.

    Sheets("1").Range("B8:H8").Copy
    iSchrijfRij = Sheets("2").Range("A502").End(xlUp).Row + 1
    Sheets("2").Rows(iSchrijfRij).PasteSpecial xlValues

 

[Wigi]

En dit?

Sheets("2").Range("A502").End(xlUp).Offset(1).Resize(, 7).Value = Sheets("1").Range("B8:H8").Value

Wigi

 

[Jan van Asseldonk]

Kun je het bestand hier plaatsen?
Of eventueel de volledige macrocode.

 

[deschrik]

Wigi, hartelijk dank voor de code! Hij werkt.

Alleen vraag ik me nog af wat het volgende precies inhoud:

Offset(1).Resize(, 7)

 

[deschrik]

Ik heb iets te vroeg gejuicht

Sheets("2").Range("A502").End(xlUp).Offset(1).Resize(, 7).Value = Sheets("1").Range("B8:H8").Value

Als ik nu in regel 8 van blad 1 een waarde invul, bijv. 100, vervolgens nog een keer regel 8 vul met waarde 200 en daarna nogmaals een waarde invul van 300, vervolgens op de knop druk die de code activeert, is alleen de 300 (de laatst ingevulde waarde) zichtbaar op blad 2. Wie o wie weet hoe ik bovenstaande code zo kan aanpassen dat alle regels kunnen worden gekopierd naar blad 2??