copiar/pegar manteniendo el ancho/alto de columnas y filas

[Roberto]

hola,

cuando hago una plantilla en una hoja excel haciendo unas tablas con un determinado alto y ancho, tengo el problema que quiero insertar esas tablas en la misma hoja manteniendo esas dimensiones. Pero al copiar y pegar la tabla (datos incluidos) el efecto que aparece es: existe un pegado de datos pero los tamaños y dimensiones de las tablas que tenía no existe y tengo que volver a realizar y ajustar la tabla de modo manual con la consiguiente perdida de tiempo.

Existe alguna manera para poder pegar manteniendo las dimensiones???

gracias

[Roberto]

hola otra vez,

he estado haciendo pruebas y he conseguido hacer lo que os explicaba más arriba. Pero para poder copiar y pegar manteniendo las dimensiones de las celdas he tenido que copiar todas las columnas o filas para luego pegar en la hoja... pero no me permite pegar en el lugar exacto que yo quiero...

voy a seguir probando

un saludo
"Roberto" <***@XXXXyahoo.es> escribió en el mensaje news:O$cjDV$***@tk2msftngp13.phx.gbl...
hola,

cuando hago una plantilla en una hoja excel haciendo unas tablas con un determinado alto y ancho, tengo el problema que quiero insertar esas tablas en la misma hoja manteniendo esas dimensiones. Pero al copiar y pegar la tabla (datos incluidos) el efecto que aparece es: existe un pegado de datos pero los tamaños y dimensiones de las tablas que tenía no existe y tengo que volver a realizar y ajustar la tabla de modo manual con la consiguiente perdida de tiempo.

Existe alguna manera para poder pegar manteniendo las dimensiones???

gracias

[KL]

Hola Roberto,

Podrias usar un macro como el que te pongo a continuacion. Depositalo en un modulo de tu libro y llamalo pulsando Ctrl+F8 y haciendo doble clic sobre su nombre, o tambien podrias asignarlo a un boton. Par uar el macro primero selecciona la tabla a copiar y luego el codigo te pedira que selecciones el rango de destino (o solo la primera celda de ese)

Sub test()
Dim rng As Range, nrng As Range, i As Long, msg As String
On Error GoTo Salida
Set rng = Selection
Set nrng = Application.InputBox( _
prompt:="Selecciona el rango de destibo:", _
Title:="Copiar Tabla", _
Type:=8).Resize(rng.Rows.Count, rng.Columns.Count)
rng.Copy nrng
Application.ScreenUpdating = False
For i = 1 To rng.Columns.Count
nrng.Columns(i).ColumnWidth = rng.Columns(i).ColumnWidth
Next i
For i = 1 To rng.Rows.Count
nrng.Rows(i).RowHeight = rng.Rows(i).RowHeight
Next i
Application.ScreenUpdating = True
Exit Sub
Salida:
msg = msg & "No se ha podido efectuar la operacion." & Chr(10)
msg = msg & "Comprueba que:" & Chr(10)
msg = msg & "1) la tabla a copiar este seleccionada." & Chr(10)
msg = msg & "2) el rango de destino sea un rango valido." & Chr(10)
MsgBox msg
Application.ScreenUpdating = True
End Sub


Saludos,
KL


"Roberto" <***@XXXXyahoo.es> wrote in message news:O1po$i$***@TK2MSFTNGP12.phx.gbl...
hola otra vez,

he estado haciendo pruebas y he conseguido hacer lo que os explicaba más arriba. Pero para poder copiar y pegar manteniendo las dimensiones de las celdas he tenido que copiar todas las columnas o filas para luego pegar en la hoja... pero no me permite pegar en el lugar exacto que yo quiero...

voy a seguir probando

un saludo
"Roberto" <***@XXXXyahoo.es> escribió en el mensaje news:O$cjDV$***@tk2msftngp13.phx.gbl...
hola,

cuando hago una plantilla en una hoja excel haciendo unas tablas con un determinado alto y ancho, tengo el problema que quiero insertar esas tablas en la misma hoja manteniendo esas dimensiones. Pero al copiar y pegar la tabla (datos incluidos) el efecto que aparece es: existe un pegado de datos pero los tamaños y dimensiones de las tablas que tenía no existe y tengo que volver a realizar y ajustar la tabla de modo manual con la consiguiente perdida de tiempo.

Existe alguna manera para poder pegar manteniendo las dimensiones???

gracias

[Manuel Romero]

No se como se haria con la altura de filas, pero en pegado especial se encuentra anchos de columnas
"Roberto" <***@XXXXyahoo.es> escribió en el mensaje news:O$cjDV$***@tk2msftngp13.phx.gbl...
hola,

cuando hago una plantilla en una hoja excel haciendo unas tablas con un determinado alto y ancho, tengo el problema que quiero insertar esas tablas en la misma hoja manteniendo esas dimensiones. Pero al copiar y pegar la tabla (datos incluidos) el efecto que aparece es: existe un pegado de datos pero los tamaños y dimensiones de las tablas que tenía no existe y tengo que volver a realizar y ajustar la tabla de modo manual con la consiguiente perdida de tiempo.

Existe alguna manera para poder pegar manteniendo las dimensiones???

gracias