Ancho columnas

[Zoé]

Hola a todos y tod@s;
En el archivo que adjunto hay una macro creada que copia datos de un rango de una hoja y los pega en la macro en cuestión.
Ese procedimiento está bien.
El inconveniente es...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Goldfinger]

ya intentaste?

range("a:g").entirecolumn.autofit
range("k:m").entire.column.autofit

 

[tentudia]

Si no, prueba a restaurar el ancho a posteriori

Option Explicit
Sub ImportarDatos(): On Error Resume Next

Dim vWb As Workbook
Dim vAddWb As Workbook
Dim vRng1 As Range
Dim vRng2 As Range...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Zoé]

Si no, prueba a restaurar el ancho a posteriori

Option Explicit
Sub ImportarDatos(): On Error Resume Next

Dim vWb As Workbook
Dim vAddWb...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Zoé]

ya intentaste?

range("a:g").entirecolumn.autofit
range("k:m").entire.column.autofit

Hola Golfinger;
He intentado y no me resultó...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Range("A:G,K:N").EntireColumn.AutoFit

 

[Zoé]

Range("A:G,K:N").EntireColumn.AutoFit

Hola Leopoldo;
Perfecto también, muchísimas gracias también por su respuesta.
Un abrazo.