Herhalende bewerking als lus uitvoeren

[Paradoxx]

Goedemiddag.

In een groot bestand (tabel) waarin we per week, per klant, en per artikel aangeven hoeveel een specifieke klant gaat afnemen, wil ik berekeningen gaan uitvoeren. Het bestand beslaat in het geheel meer dan 1000 regels en voor een heel jaar voor elke week een kolom. Ik heb daarom een versimpelde versie bijgevoegd.

Ik gebruik dus als bron het grote bestand waarin de aantallen per week worden bijgehouden. De tabel is ook voorzien van een kolom waar in de belading staat. Tevens is er een kolom voor productiecapaciteit per persoon per uur.
Elke afdeling vraagt andere informatie uit het bestand. Afdeling logistiek wil weten hoeveel karren ze nodig hebben, afdeling productie moet weten hoeveel mensen ze moeten inplannen.

Nu wil ik dat middels een macro, de tabel wordt uitgebreid met voor elke week de benodigde aantal karren. (zie bestand, tabblad resultaat 1)
Brontabel wordt gekopieerd naar ander tabblad, extra kolommen worden toegevoegd, elke kolom voorzien van een formule (aantal wk x / max belading).
Een andere macro zou de tabel moeten uitbreiden met het aantal totaal uren nodig voor die order. (zie bestand, tabblad resultaat 2)

Ik voeg nu handmatig een kolom toe, geef de formule in zodat voor de aantallen van week 1 het aantal karren wordt berekend, voeg een tweede kolom toe voor wk 2, wederom de formule om het aantal karren te berekenen enz.

Ik kan zelf de macro niet met lussen schrijven, maar neem het nu gewoon op voor 2 weken, kopieer de macro en pas hem iets aan voor de weken erop. Dit is echter ook een hele klus, dus dacht dit moet korter kunnen.

Is er iemand die me hier verder wijs in kan maken??

Bekijk bijlage voorbeeld lus.xlsm

 

[Haije]

Paradoxx, ik zie nergens de door jou opgenomen macro.....

 

[Paradoxx]

Nee klopt,... die staan in het originele bestand en niet in dit versimpelde voorbeeld...

Hier een stukje:

Range("Tabel2[[#Headers],[Kar wk 07]]").Select
    Selection.ListObject.ListColumns.Add
    Range("CE2").Select
    ActiveCell.FormulaR1C1 = "=[@[G08-Tot]]/[@[Max '# Mixkar]]"
    
    Range("Tabel2[[#Headers],[Kar wk 08]]").Select
    Selection.ListObject.ListColumns.Add
    Range("CF2").Select
    ActiveCell.FormulaR1C1 = "=[@[G09-Tot]]/[@[Max '# Mixkar]]"
    
    Range("Tabel2[[#Headers],[Kar wk 09]]").Select
    Selection.ListObject.ListColumns.Add
    Range("CG2").Select
    ActiveCell.FormulaR1C1 = "=[@[G10-Tot]]/[@[Max '# Mixkar]]"

Let wel; tabelnaam en headers komen nu niet overeen met het voorbeeld, maar dan is even de strekking duidelijk. Ik heb deze code nu voor de eerste 20 weken aangepast, maar moet dit ook nog met andere dingen doen. Nu is het de belading die ik gebruik om het aantal karren te berekenen, maar ook voor de schatting van de uren obv diverse normen...

Ik zal dadelijk even de macro zoals ik hem nu heb, in het voorbeeld bestandje zetten... geef me even een paar minuten om dit op te nemen.