Este grupo de redactores ha estado por horas investigando para darle respuesta a tus búsquedas, te ofrecemos la respuesta por eso deseamos servirte de gran ayuda.
Ejemplo 1: rango de copia de excel vba con filtro
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
EndSub
Ejemplo 2: rango de valores de copia de excel vba a otro rango
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 =FalseEndSub
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)