printen met case functie

[bowlingman]

Hallo,
Ik heb op een sheet een gedeelte staan dat wekelijks moet gekopieerd worden naar een andere file (dit gedeelte wordt bepaald door de een getal in cel "A1")
Ik heb daarvoor eerst een test gedaan en kom op het volgende.
Achter een button de volgende code

Private Sub CommandButton1_Click()
 Select Case Range("A1").Value
    Case 1
        Range("P4:W6").Copy
        Call kopie
    Case 2
        Range("P8:W10").Copy
        Call kopie
    Case 3
        Range("P12:W14").Copy
        Call kopie
    Case 4
        Range("P16:W18").Copy
        Call kopie
 End Select
End Sub

de "Call kopie" roept de module aan

Sub kopie()
        Workbooks.Open "C:\Users\Armand\Documents\Bowling 2017-2018\Metropool Liga\Mario\Speeldagen3.xlsx"
        ActiveWorkbook.Sheets("Blad2").Range("A1").PasteSpecial xlPasteValues
        Application.Goto Cells(1)
        Application.CutCopyMode = True
End Sub

Alles werkt perfect.
Ik vraag mij alleen maar af of ik elke "case" (in totaal 35) allemaal zo moet schrijven of kan dit ook korter geschreven worden.

Grtjs.
Armand

 

[VenA]

Als het steeds stapjes van 4 zijn.

Cells([A1].Value * 4, 16).Resize(3, 8).Copy

 

[bowlingman]

Bedankt VenA

Deze code werkte perfect.
De originele te kopieren vakken waren wel groter (van rij 1 tot rij 33 en 23 kolommen breed en verderop in de sheet, zijnde

BT1:CP33, BT41:CP73, BT81:CP113, enz....

en daartussen een ruimte van 7 rijen voor het volgende blok.
Ik heb met testen dan de code als volgt kunnen aanpassen

Cells([B1].Value * 40 - 39, 72).Resize(33, 23).Copy

Zo zie je maar al doende en met de juiste hulp kom je er wel.

Grtjs.
Armand

 

[HSV]

Dat had @VenA wel door, maar deed alsof.

 

[VenA]

Nu nog doorkrijgen wat de sub kopie eigenlijk doet

 

[bowlingman]

Hallo VenA,

De gevens die in mijn prog in de kolommen BT:CP staan moeten gekopieerd worden naar een aparte file, om de scores naar onze secretaris te mailen.
Dus na het kopieren, wordt die file geopend en vervolgens alleen de waardes geplakt.
En enkel de waardes omdat in mijn scoreprogje daar formules staan.

Grtjs.
Armand