Macro con autofit

Columns("A:A").EntireColumn.AutoFit


"RAUL" escribió en el mensaje
news:

Hola gente.
Tengo una macro sencilla que me permite ocultar desde la celda activa en
una
fila cualquiera ciertas columnas y darles a otras un ancho determinado.
Es esta:
Columns("D:W").EntireColumn.Hidden = True
Columns("W:AI").EntireColumn.Resize.Columns.ColumnWidth = 1

Mi problema es redactar otra instrucción para que en vez de dar ancho =1
sea
autofit para esas columnas(" W:AI") en la fila de la celda activa.
Muchas gracias.

Probé esa instrucción y no produce el efecto.
Gracias.

"PEPE" escribió:

Columns("A:A").EntireColumn.AutoFit


"RAUL" escribió en el mensaje
news:
> Hola gente.
> Tengo una macro sencilla que me permite ocultar desde la celda activa en
> una
> fila cualquiera ciertas columnas y darles a otras un ancho determinado.
> Es esta:
> Columns("D:W").EntireColumn.Hidden = True
> Columns("W:AI").EntireColumn.Resize.Columns.ColumnWidth = 1
>
> Mi problema es redactar otra instrucción para que en vez de dar ancho =1
> sea
> autofit para esas columnas(" W:AI") en la fila de la celda activa.
> Muchas gracias.

Hola Raul,

Si la instruccion recomendada por PEPE no ha tenido efecto sera porque tienes celdas combinadas en la(s) columna(s) en cuestion.
Deshazte de celdas combinadas y evita usarlas en archivos que usan macros en el futuro - no crean sino problemas. Comentas si es eso
u otra cosa?

Saludos,
KL


"RAUL" wrote in message news:

Probé esa instrucción y no produce el efecto.
Gracias.

"PEPE" escribió:

Columns("A:A").EntireColumn.AutoFit


"RAUL" escribió en el mensaje
news:
> Hola gente.
> Tengo una macro sencilla que me permite ocultar desde la celda activa en
> una
> fila cualquiera ciertas columnas y darles a otras un ancho determinado.
> Es esta:
> Columns("D:W").EntireColumn.Hidden = True
> Columns("W:AI").EntireColumn.Resize.Columns.ColumnWidth = 1
>
> Mi problema es redactar otra instrucción para que en vez de dar ancho =1
> sea
> autofit para esas columnas(" W:AI") en la fila de la celda activa.
> Muchas gracias.

Gracias KL
No tengo celdas combinadas.
Tengo otra macro para ejecutar desde celdas de una determinada columna con
esta instrucción que si funciona:
ActiveCell.Offset(, 22).Resize(, 30).Columns.AutoFit
y tiene como desventaja que si la ejecutas desde celdas de otra columna
varía el "offset" .
Como ignorante pregunto si la instrucción de PEPE no necesita que se defina
que el autofit es para celdas de la fila de la celda activa desde donde
ejecuto la macro?
Gracias otra vez.

"KL" escribió:

Hola Raul,

Si la instruccion recomendada por PEPE no ha tenido efecto sera porque tienes celdas combinadas en la(s) columna(s) en cuestion.
Deshazte de celdas combinadas y evita usarlas en archivos que usan macros en el futuro - no crean sino problemas. Comentas si es eso
u otra cosa?

Saludos,
KL


"RAUL" wrote in message news:
> Probé esa instrucción y no produce el efecto.
> Gracias.
>
> "PEPE" escribió:
>
>> Columns("A:A").EntireColumn.AutoFit
>>
>>
>> "RAUL" escribió en el mensaje
>> news:
>> > Hola gente.
>> > Tengo una macro sencilla que me permite ocultar desde la celda activa en
>> > una
>> > fila cualquiera ciertas columnas y darles a otras un ancho determinado.
>> > Es esta:
>> > Columns("D:W").EntireColumn.Hidden = True
>> > Columns("W:AI").EntireColumn.Resize.Columns.ColumnWidth = 1
>> >
>> > Mi problema es redactar otra instrucción para que en vez de dar ancho =1
>> > sea
>> > autofit para esas columnas(" W:AI") en la fila de la celda activa.
>> > Muchas gracias.
>>
>>
>>

Hola Raul,

Seguramente soy yo o el hecho de que ya son las 12:00 de la madrugada, pero no consigo entender tu explicacion. Si no has usado la
instruccion propuesta por PEPE tal cual, podrias exponer la version modificada que usaste o incluso el macro completo?

Saludos,
KL


"RAUL" wrote in message news:

Gracias KL
No tengo celdas combinadas.
Tengo otra macro para ejecutar desde celdas de una determinada columna con
esta instrucción que si funciona:
ActiveCell.Offset(, 22).Resize(, 30).Columns.AutoFit
y tiene como desventaja que si la ejecutas desde celdas de otra columna
varía el "offset" .
Como ignorante pregunto si la instrucción de PEPE no necesita que se defina
que el autofit es para celdas de la fila de la celda activa desde donde
ejecuto la macro?
Gracias otra vez.

"KL" escribió:

Hola Raul,

Si la instruccion recomendada por PEPE no ha tenido efecto sera porque tienes celdas combinadas en la(s) columna(s) en cuestion.
Deshazte de celdas combinadas y evita usarlas en archivos que usan macros en el futuro - no crean sino problemas. Comentas si es
eso
u otra cosa?

Saludos,
KL


"RAUL" wrote in message news:
> Probé esa instrucción y no produce el efecto.
> Gracias.
>
> "PEPE" escribió:
>
>> Columns("A:A").EntireColumn.AutoFit
>>
>>
>> "RAUL" escribió en el mensaje
>> news:
>> > Hola gente.
>> > Tengo una macro sencilla que me permite ocultar desde la celda activa en
>> > una
>> > fila cualquiera ciertas columnas y darles a otras un ancho determinado.
>> > Es esta:
>> > Columns("D:W").EntireColumn.Hidden = True
>> > Columns("W:AI").EntireColumn.Resize.Columns.ColumnWidth = 1
>> >
>> > Mi problema es redactar otra instrucción para que en vez de dar ancho =1
>> > sea
>> > autofit para esas columnas(" W:AI") en la fila de la celda activa.
>> > Muchas gracias.
>>
>>
>>