Excel, copiado y pegado de celdas multiples

[Pablus00]

Hola colegas, estoy necesitando copiar celdas de la siguiente manera:

supongamos que tengo 2 valores, uno en la celda A1 y otro en la celda C1.
Intento copiar estos 2 valores y pegarlos 3 filas mas abajo de una sola vez.


FORMA MANUAL: Selecciono las 2 celdas apretando Ctrl, copio, luego selecciono mas las celdas de destino con Ctrl, elijo pegar y no me lo permite: "No se puede ejecutar este comando en selecciones multiples".
pd: si elijo pegar directamente, me junta los valores de la celda A1 y C1, en A4 y B4, que no es lo que necesito.

PROBE CON UN MACRO:
Range("A1,C1").Select
Selection.Copy
Range("A4,C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


... Con el mismo resultado. Se que es posible hacer el copiado de un rango, y luego el otro, pero necesito que se haga en simultaneo. Alguien sabe si se puede? agradecido

[mrocf]

Me parece que no alcanzo a interpretar adecuadamente tu necesidad.

Sin embargo, este código realiza lo que quieres (teniendo en cuenta que solo copias valores).

Código:

Sub Copiado()
    [A4].Formula = [A1]
    [C4].Formula = [C1]
End Sub

A ver si podemos avanzar a partir de esta idea.
Saludos.

[Pablus00]

perfecto, era lo que buscaba :D agradecido PD: Para copiar formulas como seria el codigo? (manteniendo esta modalidad)

[mrocf]

¿Para copiar fórmulas?... Aquí tendremos otra "historia".

Por ejemplo, un código podría ser:

Código:

Sub CopiadoFORMULAS_0()
    [A4].Formula = [A1].Formula
    [C4].Formula = [C1].Formula
End Sub

Sin embargo notarás que si la celda a copiar (A1 ó C1 en este caso) tiene referencias a rangos, lo que se copia puede no ser siempre útil (te sugiero que hagas la prueba y lo compruebes).

De modo que la alternativa sería:

Código:

Sub CopiadoFORMULAS_1()
    [A1].Copy Destination:=[A4]
    [C1].Copy Destination:=[C4]
End Sub

que copia TODO (fórmula, formato, etc.)

Mientras que si lo que deseas es copiar SOLAMENTE las fórmulas, inevitablemente caeremos en:

Código:

Sub CopiadoFORMULAS_2()
    [A1].Copy: [A4].PasteSpecial Paste:=xlPasteFormulas
    [C1].Copy: [C4].PasteSpecial Paste:=xlPasteFormulas
End Sub

Finalmente deseo hacerte notar un detalle muy importante: en NINGUNO de los códigos que te he pasado hay una "selección efectiva" (ni del rango a copiar ni del rango donde se pegan los datos).

De modo que puedes estar seleccionando cualquier otra celda mientras que las macros trabajan con A1, A4, C1 y C4.
Cuando esto se puede hacer -simplemente- se gana en eficiencia.

Saludos.

[albertopm]

Muy interesante