Actie ondernemen a.d.h.v. welke cel actief is

[Bakkerbakgraag]

Hallo allemaal,
ik heb een excelsheet waaruit ik bepaalde bereiken wil kopiëren naar een ander bereik. Welke
bereiken er gekopieerd moeten worden hangt af van welke cel geselecteerd is.
Bij elke geselecteerde cel hoort een ander bereik.

In Jip en Janneke taal:

Als d3 de actieve cel is, kopieer dan e3:i5 naar e16:i18
Als d7 de actieve cel is, kopieer dan e7:i9 naar e16:i18
Als d11 de actieve cel is, kopieer dan e11:ii3 naar e16:i18

Het gaat uiteindelijk om 20 cellen met een eigen bijhorend bereik.

Voor de duidelijkheid heb ik een voorbeeldbestand bijgevoegd.

Alvast hartelijk dank!

 

[sylvester-ponte]

bedoel je zo iets?

 

[Bakkerbakgraag]

Ha Sylvester,
dit is precies wat ik bedoel!

Dank je wel!

 

[Bakkerbakgraag]

bedoel je zo iets?

Hoi Sylvester,
ik heb te vroeg gejuicht. Ik dacht dat ik jouw code wel zo kon verbouwen dat ik hem in mijn werkmap kon gebruiken, niet dus.

Zoals je in het bijgevoegde bestand ziet (deel van het werkblad waar het in moet werken), wordt daar niet één cel maar een samengevoegde cel geselecteerd. De regel " If Selection.Count > 1 Then Exit Sub"
Kon ik nog wel omvormen naar " If Selection.Count > 11 Then Exit Sub

Maar het lukt mij niet om het juiste bereik te selecteren en kopieren.
Ik heb echt zitten rommelen met offset, maar ik kom er niet uit.

Ik hoop dat je mij kunt helpen.

Wederom alvast bedankt!

 

[sylvester-ponte]

ok, vertel eens wat het voordeel is van samengevoegde cellen.
in jouw geval hebben ze alleen maar nadelen.
eigenlijk zouden ze dat er uit moeten slopen.

 

[Bakkerbakgraag]

ok, vertel eens wat het voordeel is van samengevoegde cellen.
.

Hoi Sylvester,
in het eindelijke bestand staan in de brede kolommen bovenaan gegevens, vandaar de samengestelde cellen.

Hartstikke bedankt voor je hulp! Ik moest even puzzelen hoe ik het bereik kon vergroten, maar het is gelukt.
Nogmaals heel hartelijk bedankt!