VBA - Een bereik kopieren & invoegen boven huidige selectie met Macro (knop)

[SimonCoene]

Goedemiddag,

Ben al heel de middag aan het zoeken naar een code die in VBA een bereik kan kopieren naar de rijen boven de huidige selectie.

Graag zou ik door middel van een knop een bepaald bereik kopieren naar de rijen boven mijn huidige selectie:
Bereik: A9:Y17

Ter info: De rijen die gekopieerd moeten worden, zijn verborgen worden en het werkblad is beveiligd.

Kan er mij iemand daarmee helpen?

Spijtig genoeg kan ik het bestand hier niet op plaatsen want deze is groter dan 100 kb.


Groetjes,
Simon Coene

 

[edmoor]

Sla het bestand op als .xlsb en probeer deze dan nogmaals te plaatsen.

 

[SimonCoene]

Sla het bestand op als .xlsb en probeer deze dan nogmaals te plaatsen.

Thanks voor de tip. Heb ik bij deze gedaan!

Hopelijk kan er mij iemand helpen

 

[VenA]

Probeer het zo eens

Sub VenA()
Application.ScreenUpdating = False
With Rows("9:17")
    .Hidden = False
    .Copy
    Rows(18).Insert Shift:=xlDown
    .Hidden = True
End With
Application.CutCopyMode = False
End Sub

 

[SimonCoene]

Werkt, behalve dat hij deze nu altijd kopieerd naar rij 18.
Weet jij de 'code' die deze rijen kopieert naar de rij boven je selectie?

Nu stoot ik ook op het feit dat rij 16 (van de rijen die gekopieerd moeten worden) verborgen moet blijven.

Hopelijk weet je daar ook een oplossing voor.

Alleszins al bedankt!
Simon

 

[VenA]

Dan maak je hier toch wat anders van.

Rows(18).Insert Shift:=xlDown

 

[SimonCoene]

He VenA,

Is gelukt! PS: Ik ben helemaal nieuw met VBA, dus ken eigenlijk echt niets. Ik probeer zoveel mogelijk te googlen, maar lukt niet altijd.

Het laten invoegen boven de actieve cel is gelukt! Ik heb daarvoor deze code gebruikt:

ActiveCell.Row

Nu rest er nog het enige probleem:
Nu stoot ik ook op het feit dat rij 16 (van de rijen die gekopieerd moeten worden) verborgen moet blijven wanneer deze geplakt wordt in de nieuwe selectie.


Thanks!!

 

[VenA]

Probeer het zo eens

ActiveCell.Offset(7).EntireRow.Hidden = True

 

[SimonCoene]

Werkt perfect! Je bent een held!

Thanks!
Simon