celwaarden kopiëren

[serpent xx]

Ik wil graag in bijgaand bestand een waarde kopiëren naar een range van meerdere cellen. Helaas lukt dit niet. Ik kan enkel een waarde per cel kopiëren.
Bv Als ik de waarde "test" in cel I2 in 1 keer naar range I3 t/m I7 wil kopiëren dan lukt dat niet. Ik moet deze handeling per cel doorvoeren. Dit geldt overigens ook voor andere cellen.

Weet iemand hoe ik dit kan oplossen?

 

[Cobbe]

De oorzaak ligt bij uw Change-Event deze brengt steeds uw tabel in de oude toestand.

 

[serpent xx]

De oorzaak ligt bij uw Change-Event deze brengt steeds uw tabel in de oude toestand.

Beste Cobbe, de reden dat deze change-event erin staat is om de inhoud van de (beveiligde) cellen te beschermen tegen verwijderen. Het is immers mogelijk om met de muis een bereik te selecteren (bv A10:Q11) om hierna de inhoud te wissen (ook van de beveiligde cellen). Dit is niet wenselijk dus vandaar deze change-event. Is het mogelijk om enkele kolommen uit te sluiten van deze change-event? Het is in ieder geval wenselijk dat in kolom 9 een bereik geselecteerd kan worden waarin een waarde in 1 keer gekopieerd kan worden.

 

[Cobbe]

Pas deze regel dan eens aan:

If Intersect(Target, ActiveSheet.ListObjects(1).Range) Is Nothing [B][COLOR="#FF0000"]Or Target.Column = 9[/COLOR][/B] Then Exit Sub

 

[serpent xx]

Pas deze regel dan eens aan:

If Intersect(Target, ActiveSheet.ListObjects(1).Range) Is Nothing [B][COLOR="#FF0000"]Or Target.Column = 9[/COLOR][/B] Then Exit Sub

Perfect!!:thumb:
Dank voor je ondersteuning!