Copiar en celda actual

hola, (manuel ?) !

... codigo para copiar el contenido de un rango (lo he llamado "Reg") que esta en la hoja #1
a una celda cualquiera que debo elegir (celda actual) de la hoja # 2 ?

para poder "usar" la "celda actual" (o ActiveCell) de la hoja # 2...
debera estar como activa (precisamente) la hoja # 2

luego, puedes usar una instruccion +/- como la siguiente:

Worksheets("hoja1").Range("reg").Copy ActiveCell

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

Hola Héctor Miguel:

Si! efectivamente soy yo, Manuel.

Gracias por tu ayuda! funciona perfectamente y me ha sido de gran
ayuda.
La idea es pasar información de una hoja a otra sin riesgos de error
de digitación y se logró gracias a ti.

De nuevo gracias por tu permanente ayuda.

Saludos desde Colombia.

Manuel (ElProfe y Aprendiz)




On 7 nov, 00:49, "Héctor Miguel"
wrote:

hola, (manuel ?) !

> ... codigo para copiar el contenido de un rango (lo he llamado "Reg") que esta en la hoja #1
> a una celda cualquiera que debo elegir (celda actual) de la hoja # 2 ?

para poder "usar" la "celda actual" (o ActiveCell) de la hoja # 2...
debera estar como activa (precisamente) la hoja # 2

luego, puedes usar una instruccion +/- como la siguiente:

Worksheets("hoja1").Range("reg").Copy ActiveCell

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

Hola Héctor Miguel:

Una inquietud mas por favor:

La instrucción...
Worksheets("hoja1").Range("reg").Copy ActiveCell
...funciona perfectamente copiando todas las características de
formato que tiene el rango de origen.

Cual sería la modificación para que el resultado de la copia sea el
equivalente a "Pegar valores"?

Gracias por tu atención y por tu ayuda.

Manuel

hola, Manuel !

La instruccion...
Worksheets("hoja1").Range("reg").Copy ActiveCell
...funciona perfectamente copiando todas las caracteristicas de formato que tiene el rango de origen.
Cual seria la modificacion para que el resultado de la copia sea el equivalente a "Pegar valores"?

cambiar de una linea:
Worksheets("hoja1").Range("reg").Copy ActiveCell

a dos (o tres) lineas:
Worksheets("hoja1").Range("reg").Copy
ActiveCell.PasteSpecial xlPasteValues
Application.CutCopyMode = False

saludos,
hector.

Héctor Miguel:

Gracias de nuevo; funciona perfectamente.

Me surge una curiosidad:
Cuando pegué tu código para reemplazar al anterior no hice ninguna
modificación al archivo. sinembargo al abrir de nuevo el archivo y
tratar de ejecutar la macro, me reportaba una falla diciendo "Macro no
encontrada en este libro" (o algo así). Tuve que retornar al botón que
había creado y reasignarle la macro y se corrigió el problema.

Veo en el editor de VBA que un código se puede colocar en 4 partes, a
saber:

1) En una de las hojas del libro (Worksheet)
2) En el mismo libro de Excel (ThisWorkbook)
3) En un módulo de código (Módulo1), o
4) en el libro de macros personales (PERSONAL.XLS)

Por favor Héctor, me podrías dar luces respecto de la diferencia de
colocar el código en uno u otro lugar?
Un código colocado en uno de los 4 lugares citados tiene la
posibilidad de "moverse por si solo" a otro lugar?

Gracias Héctor por toda tu amabilidad y tu paciencia con quienes no
somos muy hábiles en estas lides.

Cordial saludo,

Manuel

cambiar de una linea:
Worksheets("hoja1").Range("reg").Copy ActiveCell

a dos (o tres) lineas:
Worksheets("hoja1").Range("reg").Copy
ActiveCell.PasteSpecial xlPasteValues
Application.CutCopyMode = False

saludos,
hector.