Copiar rango

hola, Diego !

... alguna forma para que al copiar un rango de celdas y pegarlas en un nuevo espacio
se copie (o conserve) el tamano de las celdas de origen ?

(hasta donde se) el tamano de las celdas NO es parte de las propiedades de "la celda"
(o sea, aquellos atributos que puedes trasladar con un copiar / pegado especial... etc.)
sino que son parte de los artibutos de la columna (ancho) y de la fila (alto), es decir...

necesitaras copiar la fila/columna "entera" para que el pegado lleve las dimensiones "iguales" (p.e.)

Sub Copiar_Columna_Completa()
Worksheets("hoja1").Columns("d").EntireColumn.Copy _
Destination:=Worksheets("hoja2").Range("g1")
End Sub

saludos,
hector.

Héctor gracias por responderme, voy a probar con este procedimiento

Gracias

DEL


"Héctor Miguel" escribió:

hola, Diego !

> ... alguna forma para que al copiar un rango de celdas y pegarlas en un nuevo espacio
> se copie (o conserve) el tamano de las celdas de origen ?

(hasta donde se) el tamano de las celdas NO es parte de las propiedades de "la celda"
(o sea, aquellos atributos que puedes trasladar con un copiar / pegado especial... etc.)
sino que son parte de los artibutos de la columna (ancho) y de la fila (alto), es decir...

necesitaras copiar la fila/columna "entera" para que el pegado lleve las dimensiones "iguales" (p.e.)

Sub Copiar_Columna_Completa()
Worksheets("hoja1").Columns("d").EntireColumn.Copy _
Destination:=Worksheets("hoja2").Range("g1")
End Sub

saludos,
hector.