Excel vba copy range with filter

Sub ExtractVisibleCells()

    Dim wsSource, wsExtract As Worksheet

    Set wsSource = ThisWorkbook.Sheets("Source Data")
    Set wsExtract = ThisWorkbook.Sheets("Filtered")

    wsSource.Range("A1:A10").SpecialCells(xlCellTypeVisible).Copy
    wsExtract.Cells(1, 1).PasteSpecial

End Sub

Similar codes

3 votes376 views1 answer
Vba request json
VBA
0 vote381 views1 answer
Loop through each cell in dgv vbnet
VBA
4 votes357 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
0 vote376 views1 answer
How to convert weeks to days into textbox with VB site:stackoverflow.com
VBA
0 vote363 views1 answer
Excel vba textbox forecolor disabled
VBA
0 vote377 views1 answer
Excel vba hide gridlines
VBA
0 vote382 views1 answer
Prive sub enter clicked vb
VBA
5 votes938 views1 answer
Vlookup vba
VBA
1 vote351 views1 answer
Add a index column power bi
VBA
0 vote371 views1 answer
Send webhook vbscript
VBA