Macro: Plakken Speciaal alleen in zichtbare cellen

[Gert Bouwmeeste]

Ik maak heel veel gebruik van de opdracht Plakken Speciaal --> Waarden. Daar gebruik ik een kleine macro voor die ik onder de toescombinatie CTRL + Q heb opgeslagen:

 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Dit werkt prima .... totdat ik deze opdracht toepas op een gefilterde (met Autofilter) reeks regels. Dan worden ook de inhoud van de tussenliggende, niet zichtbare, regels overschreven.

Wie weet of de macro zo aangepast kan worden dat alleen de inhoud op de zichtbare, niet-gefilterde, regels overschreven wordt en niet de tussenliggende regels?

Ik heb geprobeerd om in het bijgaande voorbeeldbestand de vraag te verduidelijken.

Alvast bedankt!

 

[Superzeeuw]

Gert,

Probeer de beide progjes maar eens uit.

Kopie ---------- kijkt of een regel verborgen is meldt dit en stopt.
Kopie versie 2 -- kijkt of een regel verborgen is en slaat deze over.

Je moet de code nog wel even onder CTRL+Q hangen in jouw bestand.
Vergeet de code op Blad1 niet.

 

[Gert Bouwmeeste]

Het werkt nog niet

Bedankt Superzeeuw. Het werkt nog niet goed. Zie bijgaand bestand.

Als ik met Autofilter 019 Klant 019 filter en ik kopieer de nieuwe datum en omschrijving naar beneden dan wordt de waarde in de tussenliggende regels nog steeds overschreven.

Ik vraag me ook af of het wel mogelijk is wat ik wil. Ook handmatig via Bewerken --> Plakken Speciaal --> Waarden gaat het niet goed.

 

[Superzeeuw]

Probeer bijgevoegd progje eens.

 

[Gert Bouwmeeste]

Volgens mij werkt het

Superzeeuw, volgens mij werkt het goed. Ik heb maar even kort kunnen testen, maar het ziet er goed uit!

Dank je wel.

 

[Superzeeuw]

Gert,

Test het maar eens goed uit en wanneer het werkt zet dan de vraag maar op opgelost.