/VBA/Excel vba copy values range to another range

Excel vba copy values range to another range

Sub TransferValuesOnly()
  	Worksheets("Sheet1").Range("A1:Z100").Copy
	'PasteSpecial Values Only
  	Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues
	'Clear Clipboard (removes "marching ants" around your original data set)
  	Application.CutCopyMode = False
End Sub

Source: thespreadsheetguru.com

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 vote254 views10 answers
Vba excel create event log
VBA
0 vote342 views1 answer
Vba test optional argument
VBA
3 votes335 views1 answer
Extract the nth word from a text string
VBA
0 vote332 views1 answer
Vbs expand env var
VBA
1 vote359 views1 answer
How to put a gridpain in a vbox
VBA
0 vote334 views1 answer
VB Error Code BC30201
VBA
0 vote471 views1 answer
Vba array of integers
VBA
0 vote343 views1 answer
Find control with name vb
VBA
1 vote325 views1 answer
Excel vba get ordinal number from cardinal number
VBA
0 vote352 views1 answer
Iterate all file in a folder vba
VBA