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

0 vote252 views1 answer
How to add line graph vb net
VBA
0 vote220 views1 answer
Vbnet add new ecel sheet
VBA
0 vote252 views1 answer
Excel vba round to whole number
VBA
0 vote281 views1 answer
Filesystemobject vba reference
VBA
0 vote246 views1 answer
Vb run command
VBA
3 votes282 views1 answer
Vba post request json
VBA
0 vote246 views1 answer
Vbnet chart make 0 gridline line different color
VBA
0 vote288 views1 answer
(SecurityProtocolType)3072 vb.net
VBA
0 vote249 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
20 votes312 views1 answer
Excel vba recursive example factorial function
VBA