Copiar/Pegar DATOS FILTRADOS
Una vez filtrados los datos, haz clic en una de las celdas resultantes, por ejemplo en el
cabecero, y sigue los pasos siguientes:
1. Pulsa la tecla de función F5.
2. Pulsa Especial… > Región actual >
Aceptar.
3. Pulsa de nuevo la tecla de función F5.
4. Pulsa Especial… > Solo celdas visibles
> Aceptar.
5. Pulsa Control + C (Copiar).
6. Haz clic en la celda superior izquierda
del rango en que quieres pegar los datos.
7. Pulsa Control + V (Pegar).
Si el proceso anterior lo haces con la grabadora de macros en marcha, obtienes un código
VBA similar a ...
Sub CopyPaste_DatosFiltrados()
Range("B1").Select
Selection.CurrentRegion.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Hoja2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
... con el que puedes automatizar el proceso, tanto asignando el código a un botón(1),
como a una combinación de teclas(2).
También puedes automatizar el proceso, con el siguiente código VBA:
Sub CopiaPega() ' Copia/Pega un rango filtrado.
Range(Range("A1"), Range("A1").End(xlDown)).Select
Range(Selection, Selection.Offset(, 2)).Select ' el 2 es para que abarque 3 columnas.
Selection.Copy Destination:=Worksheets("Hoja2").Cells(1, 1)
End Sub
* * * * * * * 0 * * * * * * *
(1) Asignar un código (macro) a un botón:
1. Haz clic derecho en el botón (puede ser una forma de: Insertar > Ilustraciones > Formas…).
2. Elige Asignar macro… (muestra el cuadro Macro - imagen de la derecha).
3. Selecciona la macro (por ejemplo: CopyPaste_DatosFiltrados).
4. Pulsa Aceptar.
(2) Asignar un código (macro) a una combinación de teclas:
1. Programador > Código > Macros (muestra el cuadro Macro).
(en Excel 2003: Menú Herramientas > Macro > Macros...)
2. Selecciona la macro.
3. Pulsa en el botón Opciones (muestra el cuadro Opciones de la macro).
4. Escribe la tecla de método abreviado (puede ser: Mayúscula + tecla).
5. Pulsa Aceptar.
* * * * * * * 0 * * * * * * *
Volver arriba