Niet weergeven van Macro acties (of versnellen)

[Clipstra]

Beste,

Ik heb een macro ('s) gemaakt waarin ik ± 35 draaitabelen van maand of kwartaal kan wisselen en daarnaast ± 10 grafieken aanpast qua lay-out (omdat de grafieken altijd terug keren naar hun (lelijke) standaard opmaak). Echter neemt deze handeling ongeveer 10 tot 20 sec inbeslag en zie je het hele beeld trillen en doen. Is dit te voorkomen? Kan het liggen aan de traagheid van de computer (Pentium IV 2.4 met 512mb) of moet ik dit gewoon accepteren omdat de macro zo lang is..

En het is de bedoeling dit straks te implementeren op ons intranet, zal dat "probelemen" op gaan leveren met bovengenoemde? Heb hier helemaal nog geen kaas van gegeten..

 

[Cobbe]

Probeer eens met

Application.screenupdating = False
en
Application.screenupdating = True

Cobbe

 

[Clipstra]

Beste Cobbe,

Ik ben nog niet zo thuis in de wereld van macro's, vind het al aardig wat dat ik die voor elkaar heb gekregen..

Dus waar moet ik jouw oplossing in de macro's plaatsen?

 

[Roncancio]

Application.screenupdating = False 'aan het begin van de macro
Application.screenupdating = True ' aan het eind van de macro.

Met vriendelijke groet,


Roncancio

 

[Clipstra]

Beste Ron,

Dit is mijn begin van de macro:

Sub april()
'
' april Macro
' De macro is opgenomen op 24-4-2008 door Jdri9174.
'

'
Sheets("Draaitab").Select
ActiveSheet.PivotTables("Draaitabel1").PivotFields("Kwartaal").CurrentPage = _
"[Alle categorieën]"

En dit het eind:

ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Inhoudsopgave").Select
Range("L9").Select
End Sub

Waar moet ik de macro's dan plaatsen?

 

[Wigi]

Vóór de eerste regel van de eigenlijke code, en vóór de regel met End Sub.

 

[Clipstra]

Beste,

Als ik het op deze manier doe:

Sub april()
' Appliction.ScreenUpdating = False
' april Macro
' De macro is opgenomen op 24-4-2008 door Jdri9174.
'

'
Sheets("Draaitab").Select
ActiveSheet.PivotTables("Draaitabel1").PivotFields("Kwartaal").CurrentPage = _
"[Alle categorieën]"

Gebeurd er niks nieuws (dus blijf alles zien). En als ik het zo doe krijg ik een foutmelding:

Sub april()
'
' april Macro
' De macro is opgenomen op 24-4-2008 door Jdri9174.
'

'
Appliction.ScreenUpdating = False
Sheets("Draaitab").Select
ActiveSheet.PivotTables("Draaitabel1").PivotFields("Kwartaal").CurrentPage = _
"[Alle categorieën]"

Wat doe ik verkeerd?

 

[Clipstra]

Oeps,

was een a vergeten in application. En nu doet het hij het wel!!

Thanks!!

 

[Roncancio]

Beste,

Als ik het op deze manier doe:

Sub april()
' Appliction.ScreenUpdating = False
' april Macro
' De macro is opgenomen op 24-4-2008 door Jdri9174.
'

'
Sheets("Draaitab").Select
ActiveSheet.PivotTables("Draaitabel1").PivotFields("Kwartaal").CurrentPage = _
"[Alle categorieën]"

Gebeurd er niks nieuws (dus blijf alles zien). En als ik het zo doe krijg ik een foutmelding:

Sub april()
'
' april Macro
' De macro is opgenomen op 24-4-2008 door Jdri9174.
'

'
Appliction.ScreenUpdating = False
Sheets("Draaitab").Select
ActiveSheet.PivotTables("Draaitabel1").PivotFields("Kwartaal").CurrentPage = _
"[Alle categorieën]"

Wat doe ik verkeerd?

Het is Application.ScreenUpdating = False en
Application.ScreenUpdating = True

Bovendien staat er een quote voor Application.ScreenUpdating = False waardoor VBA het als tekst ziet en er dus niets is veranderd.

Met vriendelijke groet,


Roncancio