Copiar, filtrar y pegar según la selección.

[CarlosKurt]

Buenas tardes usuarios.

De antemano agradeciendo su apoyo expongo lo siguiente.

Se solicita que a través de un código VBA para excel filtrar ciertos criterios (vacío), luego "copiar una determinada fila" y finalmente pegar los datos justo en el criterio filtrado (vacío). Mi inconveniente empieza cuando se necesita "pegar" puesto que la macro no la ejecuta.

Sub Macro1()


    [A65536].Select

    Selection.End(xlUp).Offset(2).Select

    Selection = "FINAL"


    Selection.End(xlUp).Select

    Rows("1:1").Select

    Selection.Copy


    ActiveSheet.Range("$A$1:$B$8").AutoFilter Field:=1, Criteria1:="=FINAL", _

    Operator:=xlOr, Criteria2:="="


    If ActiveSheet.FilterMode = True Then

    If Range("A2").EntireRow.Hidden = False Then

    [A2].Activate

    Else

    [A2].Activate

    Do While ActiveCell.EntireRow.Hidden = True

    ActiveCell.Offset(1, 0).Activate

    Loop

    End If

    Else

    [A2].Activate

    End If


    Range(Selection, Selection.End(xlDown)).Offset(-1).Select

   Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _

    :=False, Transpose:=False

End Sub[/CODE]

Adjunto envio archivo como prueba

Espero haberme hecho entender.

Saludos

copiar, filtrar y pegar según la selección.xls

[Armando Montes]

Hola Carlos, puedes incluir en el ejemplo algun(os) resultados esperados?

[CarlosKurt]

Hola Carlos, puedes incluir en el ejemplo algun(os) resultados esperados?

Hola Armando Montes.

Por supuesto te envío el archivo adjunto.

Saludos

copiar, filtrar y pegar según la selección.xls

[Armando Montes]

Si entendi bien puedes hacerlo con la tecla F5 - ir a-

1. Seleccionas la columna B

2. Presiona F5/Especial/Vacias

3. Inserta la formula: =B1

4. Oprime Control+Enter

Si asi es, puedes generar la macro con la grabadora de macros.

[CarlosKurt]

Si entendi bien puedes hacerlo con la tecla F5 - ir a-

1. Seleccionas la columna B

2. Presiona F5/Especial/Vacias

3. Inserta la formula: =B1

4. Oprime Control+Enter

Si asi es, puedes generar la macro con la grabadora de macros.

Hola Armando Montes.

Gracias por la intención, sin embargo no es lo que espero. Como se sabe el archivo adjunto es solo una prueba y esto se aplicaría a un código mas amplio entonces te envío otro archivo adjunto que estaría algo mas claro. Ya que el objetivo es copiar la primera fila y pegarlas en las filas vacías previo filtro.

Saludos

copiar, filtrar y pegar según la selección.xls

[Armando Montes]

Sorry, no me queda claro.

[CarlosKurt]

Sorry, no me queda claro.

Hola Armando Montes.

Muchas gracias por responder y tu interés.

He intentado aplicar tu sugerencia de la función "Ir a" pero no me resulto ya que la región de una frente a otra separadas por una fila vacía no son iguales en tamaño

Al parecer soy malo en expresar las ideas por escrito así que en el archivo adjunto espero puedas entenderme.

Saludos

copiar, filtrar y pegar según la selección (1).xls

[CarlosKurt]

Sorry, no me queda claro.

Hola Armando Montes.

Muchas gracias por tu aporte me ayudo de mucho.

Utilizo el Excel desde hace mucho tiempo pero la función "Ir a" no ha utilizaba. Ahora realizando unas modificaciones a la planilla original e intentando y aprendiendo como sacar provecho de la función "Ir a" se ejecuto el código correspondiente y he solucionado mi inconveniente.

Muchas gracias y disculpa por las molestias.

Dicho lo anterior, doy por SOLUCIONADO el tema.

Saludos