• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

In filtermodus bereik kopieren en plakken

Status
Niet open voor verdere reacties.

klitzy

Gebruiker
Lid geworden
5 mei 2010
Berichten
17
Goedenavond,

Een vraag over het kopieren van een bereik in filtermodus die in een bereik daarnaast gekopieerd dient te worden in dezelfde filtermodus. De onzichtbare cellen mogen niet meegekopieerd worden.

Met het opnemen van een macro staat er in de VBA editor 'Selection.FillLeft'. Als ik deze netjes overneem gebeurt er echter weinig...

Ik heb een simpel voorbeeldbestandje bijgevoegd. Deze staat al in filtermodus: de activiteiten zijn weggefilterd. De gegevens in kolom E moeten op waarden worden gekopieerd in het bereik links ernaast.

Alvast bedankt!

Bekijk bijlage voorbeeldbestand filter.xlsm
 
Code:
Sub tst()
    With Sheets("Blad1")
        For Each cl In .AutoFilter.Range.SpecialCells(12).Offset(, 2)
            cl.Copy cl.Offset(, -1)
        Next
    End With
End Sub
 
Dag warm bakkertje,

Bedankt voor je aangedragen oplossing. Ik heb het nog steeds niet kunnen controleren maar ik ga ervan uit dat je bijdrage (zoals gewoonlijk) toereikend is :-)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan