Código para copiar el valor de una celda a varias celdas no adyacentes (no contiguas)

hola, !

un error 1004 en tiempo de ejecucion, podria significar varias probables causas -?-
(p.e. cuando la hoja esta protegida y alguna/s de la/s celda/s de destino tiene/n bloqueo activado)

otra posibilidad es que hubiera conflictos con las referencias a las librerias en el proyecto de macros
(revisa desde el editor de vba, el menu herramientas / referencias... por si alguna dice "falta" o "missing")

dicho sea de paso, no es necesario "danzar" haciendo (re)selecciones de rangos, hojas, libros, etc.
para poder administrar sus metodos y propiedades (al menos, en la gran mayoria de los casos)
prueba con menos instrucciones (p.e.)
Range("r6").Copy Range("g10,k10,o10,s10")

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __

... he hecho varios intentos pero no me resulta incluso ocupando el grabador, que me da el siguiente codigo:

Range("R6").Select
Selection.Copy
Range("G10,K10,O10,S10").Select
Range("S10").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A3").Select

pero cuando lo ejecuto se detiene en ActiveSheet.Paste reclamando
error 1004 en tiempo de ejecucion problemas con el metodo Paste.

On 18 sep, 22:49, "Héctor Miguel"
wrote:

hola, !

un error 1004 en tiempo de ejecucion, podria significar varias probables causas   -?-
(p.e. cuando la hoja esta protegida y alguna/s de la/s celda/s de destino tiene/n bloqueo activado)

otra posibilidad es que hubiera conflictos con las referencias a las librerias en el proyecto de macros
(revisa desde el editor de vba, el menu herramientas / referencias... por si alguna dice "falta" o "missing")

dicho sea de paso, no es necesario "danzar" haciendo (re)selecciones de rangos, hojas, libros, etc.
para poder administrar sus metodos y propiedades (al menos, en la gran mayoria de los casos)
prueba con menos instrucciones (p.e.)
  Range("r6").Copy Range("g10,k10,o10,s10")

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __



> ... he hecho varios intentos pero no me resulta incluso ocupando el grabador, que me da el siguiente codigo:

>     Range("R6").Select
>     Selection.Copy
>     Range("G10,K10,O10,S10").Select
>     Range("S10").Activate
>     ActiveSheet.Paste
>     Application.CutCopyMode = False
>     Range("A3").Select

> pero cuando lo ejecuto se detiene en ActiveSheet.Paste reclamando
> error 1004 en tiempo de ejecucion problemas con el metodo Paste.- Ocultar texto de la cita -

- Mostrar texto de la cita -

Grande Hector


Te agradezco la solución, y no creas q "danzar" es la intención es
"ignorancia"

Nuevamente gracias

Saludos

Willy