Application.Calculate per kolom aangeven

[Jeffie85]

Ik heb een groot Excel document met veel data en veel tabbladen.
Hierin heb ik ook tabbladen zitten die data ophaalt uit een financieel pakket.

Omdat het anders heel lang duurt als ik de data ververs, heb ik een knop gemaakt, die alleen dat tabblad ververst aan data met de volgende

Private Sub CommandButton1_Click()
    If MsgBox("Wil je de recente data ophalen?", vbOKCancel) = vbOK Then

        Application.CalculateFull
         
        ' Let op deze code ververst de draaitabbellen in een geopend werkblad
        Bijwerken_Draaitabellen
        
     End If
End Sub

Hoe kan ik ervoor zorgen dat die met deze code alleen kolom G, L en P ververst ipv heel het tabblad ?
( omdat het tabblad ook steeds groter wordt met data, is het wel makkelijk om deze code ook een kleinere 'refresh criteria' mee te geven )

Bvd.

 

[spaarie]

Pas het calculeren aan naar:

Sub spaarie
    Sheets(1).Range("G:G, L:L, P:P").Calculate
End Sub

 

[Jeffie85]

Bedankt voor je reactie Spaarie...
als ik dit invoer, dan krijg je eigenlijk direct de melding dat alles is bijgewerkt, maar hij rekent niks door nu...

 

[Jeffie85]

normaal komt er dan r.onder te staan; Berekenen (4processors) 5%
Met die eerste code, en nu wordt er niks berekend, heb nu dus deze code;

Private Sub CommandButton1_Click()
If MsgBox("Wil je de recente data ophalen?", vbOKCancel) = vbOK Then

Sheets(1).Range("G:G, L:L, P, T:T, X:X, AB:AB").Calculate

' Let op deze code ververst de draaitabbellen in een geopend werkblad
Bijwerken_Draaitabellen

End If
End Sub

 

[Jeffie85]

Het is nu gelukt.
Heb even op jou code voor zitten borduren en had er nu dit van gemaakt;

ActiveWorkbook.Worksheets("Totaal").Range("G:G, L:L, P, T:T, X:X, AB:AB").Calculate


Dit doet die nu goed !!

Bedankt in ieder geval 'Spaarie'