Plakken lege cel overslaan

[don42]

Beste allemaal

selecteren en plakken lukt natuurlijkwel
mijn vraag is of het mogelijk is als in de selectie lege cellen zitten deze niet gekopieerd worden
dat ik in de doel kolom een mooie kolom krijg zonder lege cellen

dit gebruik ik nu:
in de selection zitten dus lege cellen
die ik graag weg had in de doel kolom

Private Sub CommandButton3_Click()
Selection.Copy 
Cells(Rows.Count, 13 + Range("L1").Value).End(xlUp).Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

 

[SjonR]

Zo wellicht?

Private Sub CommandButton3_Click()
Selection.SpecialCells(xlCellTypeConstants).Copy
Cells(Rows.Count, 13 + Range("L1").Value).End(xlUp).Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

 

[don42]

in 1 woord
fantastisch, ik ben er blij mee
heel erg bedankt.