Macro voor kopiëren van een variable range

[Bratox]

Hallo allemaal,

Ik werk aan deze bijlage waarin ik nieuwe ideeën voor op mijn werk wil administreren en beoordelen. Daarom heb ik hiervoor ook een grafiek ingebouwd die "automatisch" bijgewerkt wordt adhv de geselecteerde business challenge in sheet "step 2". Hiervoor is het belangrijk dat telkens de business challenges uit sheet "step 1" (vanaf cel C9 naar beneden) worden gekopieerd naar Cel Z1 in step 2 zodat de lijst in Cel B8 in step 2 telkens automatisch bijwerkt en dit ook allemaal gelijk doorwerkt in de grafiek.

Nu zat ik zelf al te spelen met een macro door het gewoon op te nemen (de activewindow.smallscroll-regels kunnen er denk ik uit). Zie code:

Sub CopyBusinessChallengesfromstep1()
'
    Sheets("Step 1 - Business challenges").Select
    ActiveWindow.SmallScroll Down:=-33
    Range("C9:C29").Select
    Selection.Copy
    Sheets("Step 2 - Generate ideas").Select
    ActiveWindow.SmallScroll Down:=-15
End Sub

Dit werkt op zich prima alleen moet de geselecteerde range (C9:C29) steeds mee veranderen wanneer ik de macro (dankzij popipipo) gekoppeld aan de "add row" opdrachtknop uitvoer. Deze voegt telkens een nieuwe regel in wanneer je op de knop drukt. Als er een nieuwe regel wordt ingevoegd moet dit dus (C9:C30) worden en bij weer de volgende (C9:C31) etc etc..

Het handigste voor mij is natuurlijk dat wanneer er op die knop wordt gedrukt automatisch de nieuwe beschikbare range wordt gekopieerd naar cel Z1 in sheet "step 2" zodat alles automatisch doorwerkt.

Mijn vraag is dus: Hoe laat ik de range automatisch mee veranderen als er een nieuwe regel wordt ingevoerd in sheet "step 1" zodat deze range gekopieerd kan worden naar cel Z1 van sheet "step 2"?

Ik hoop dat dit verhaal nog een beetje duidelijk is en jullie mij verder kunnen helpen

Groet,
Bratox

 

[wampier]

Volgens mij past dat in een enkele regel:

    Sheets("Step 1 - Business challenges").Range("C9:C" & Sheets("Step 1 - Business challenges").[c50000].End(xlUp).Row).Copy Sheets("Step 2 - Generate ideas").[z1]

 

[Bratox]

Volgens mij past dat in een enkele regel:

    Sheets("Step 1 - Business challenges").Range("C9:C" & Sheets("Step 1 - Business challenges").[c50000].End(xlUp).Row).Copy Sheets("Step 2 - Generate ideas").[z1]

Getest en werkt! Top, bedankt Wampier!

gr.
Bratox