Kolommen automatisch door laten schuiven

[DennisR]

Goedemorgen,

Ik heb een vraag over het volgende;

Op dit moment heb ik 5 tabellen, 2006 t/m 2002.
Deze komen rechtstreeks uit een database, en hiervan worden de gemiddelden van de afgelopen 5 jaar berekend.
Is het mogelijk om als er een nieuw jaar beschikbaar is, bv. 2007, dat ik deze knip en plak in een veld en dat de jaren automatisch doorschuiven.
Zodat de nieuwe gemiddelden over 2007 t/m 2003 berekend worden.

Ik hoop dat dit duidelijk genoeg is, ik heb een voorbeeld bijgevoegd.

Alvast bedankt!

 

[Wigi]

http://www.worksheet.nl/forumexcel/showthread.php?p=471473

 

[DennisR]

http://www.worksheet.nl/forumexcel/showthread.php?p=471473

Dat is niet de oplossing.

 

[Wigi]

Dat is niet de oplossing.

Oh, jammer.

Het gaat erom dat je de vraag stelt op meerdere forums tegelijk, en dat ik met die link wil voorkomen dat vrijwilligers meerdere keren dezelfde dingen doen.

 

[DennisR]

Oh, jammer.

Het gaat erom dat je de vraag stelt op meerdere forums tegelijk, en dat ik met die link wil voorkomen dat vrijwilligers meerdere keren dezelfde dingen doen.

Ah ok, excuses.

 

[Wigi]

Wat is er mis met dit manueel te doen? 2 kolommen invoegen, knippen-plakken, laatste kolommen verwijderen?

 

[DennisR]

Wat is er mis met dit manueel te doen? 2 kolommen invoegen, knippen-plakken, laatste kolommen verwijderen?

Het gaat om ongeveer 60 maal deze soort tabellen, daarom zou het fijn zijn als ik het vanuit het bronbestand gewoon kan knippen en plakken, zonder eerst weer al deze kolommen te verwijderen e.d.

 

[Wigi]

Hier is de code.

Sub Macro1()
    Application.Calculation = xlCalculationManual
    Range("D3:K15").Copy Range("F3")
    With Range("D19:E31")
        .Copy Range("D3")
        .ClearContents
        .Borders.LineStyle = xlNone
    End With
    Application.Calculation = xlCalculationAutomatic
End Sub

Wigi

 

[DennisR]

Hier is de code.

Sub Macro1()
    Application.Calculation = xlCalculationManual
    Range("D3:K15").Copy Range("F3")
    With Range("D19:E31")
        .Copy Range("D3")
        .ClearContents
        .Borders.LineStyle = xlNone
    End With
    Application.Calculation = xlCalculationAutomatic
End Sub

Wigi

Super! ga er meteen mee aan de gang.