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  * * * * * * *