Automatische verversen elke minut

[Bereboot]

Goed middag,

Wie weet of het mogelijk is om de gegevens mbt draaitabellen automatiesch kan laten verversen
bijvoorbeeld om dit in te stellen dat de gegevens elke minuut worden ververst zonder dat ik zelf op de knop verversen druk.

 

[SjonR]

Deze in een module:

Sub SjonR()
Sheets("[COLOR="#FF0000"]Blad1[/COLOR]").PivotTables("[COLOR="#FF0000"]Draaitabel1[/COLOR]").RefreshTable
Application.OnTime Now + TimeValue("00:01:00"), "SjonR"
End Sub

Rode tekst naar eigen situatie aanpassen!

Deze in ThisWorkbook:

Private Sub Workbook_Open()
SjonR
End Sub

 

[HSV]

Ik lees 'draaitabellen'; dan zou ik het zo doen.

Sub SjonR()
[COLOR=#ff0000]thisworkbook.Refreshall[/COLOR]
Application.OnTime Now + TimeValue("00:01:00"), "SjonR"
End Sub

 

[VenA]

Wat er prettig is aan zo'n flipperkast zal wel een reden hebben. Zelf gebruik ik het nooit dus weet er niet al te veel van. Volgens mijn moet de timer ook weer uitgezet worden in

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
End Sub

anders blijft het doorlopen totdat je Excel volledig hebt afgesloten.

 

[HSV]

Inderdaad.

 

[snb]

Natuurlijk is je draaitabel gebaseerd op een 'intelligente' tabel in Excel.
Alleen als daar iets verandert hoeft de draaitabel ververst te worden.
Gebruik dus het workbook_change event.

 

[cow18]

tenzij je ergens gebruik maakt van het ophalen van gegevens uit je draaitabel (=Draaitabel.ophalen(....)), zou ik me beperken tot
* een worksheet_change event, als gegevens en draaitabel op verschillende bladen staan
* een selectionchange event, als je zonet nog buiten de draaitabel stond en nu binnen de draaitabel.
Dat om de minuut verversen, dat zal snel tegensteken, vooral als het over veel data gaat.