Plakken over verborgen rijen

[RB85]

Hallo,

Ik heb een probleem in excel met betrekking tot verborgen rijen.

Ik heb een spreadsheet met informatie die ik heb gefilterd. Resultaat is dat een aantal rijen verborgen is. Daarnaast heb ik informatie in een andere sheet. Van deze sheet wil ik een volledige kolom kopiëren, om deze vervolgens te plakken achter de gefilterde waardes van de ene sheet. Hierbij moet hij dus de verborgen rijen overslaan.

Heeft iemand hier een idee hoe dit mogelijk is?

Groet Roger

 

[Roncancio]

Sub VerborgenCellen()
Dim r As Range
Dim lSRow As Long
    lSRow = 1
    For Each r In Range("A2:A20").SpecialCells(xlCellTypeVisible)
        r.Offset(0, 1).Value = Worksheets(2).Range("A" & lSRow).Value
        lSRow = lSRow + 1
    Next
End Sub

Bovenstaande code gaat in het bereik van A2 t/m A20 langs alle zichtbare rijen.
In de kolom ernaast (B-kolom dus) wordt de waarde van het 2e werkblad geplaatst vanaf cel A1.
Dus stel er zijn 7 zichtbare rijen.
Dan krijgen deze 7 rijen in de B-kolom de waardes van de cellen A1 t/m A7 van het 2e werkblad.

Met vriendelijke groet,


Roncancio

 

[RB85]

Bedankt Roncancio, werkt perfect!