Macro con autofit

Gracias KL, me haces reír!!, no, no eres tu, es mi explicación.
A ver si logro aclarar: Quiero dar autofit a las celdas de ciertas columnas
(fijas y determinadas) en la fila de la celda activa (variable, cualquier
fila).
Esta macro funciona:
Sub VERINSUMOS()

ActiveCell.Offset(, 22).Resize(, 30).Columns.AutoFit

End Sub

Tiene la desventaja de que al utilar offset está hecha para ejecutarse desde
las celdas de una columna determinada.
La macro de PEPE que permitiría ejecutarse desde cualquier celda de la fila
de la celda activa y en cuestión:

Sub VERINSUMOS()

Columns("W:AD").EntireColumn.AutoFit

End Sub

Por algúnmotivo no logra el autofit.
Saludos.

"KL" escribió:

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.
>> >>
>> >>
>> >>
>>
>>

Hola Raul,

La macro de PEPE que permitiría ejecutarse desde cualquier celda de la fila
de la celda activa y en cuestión:
Sub VERINSUMOS()
Columns("W:AD").EntireColumn.AutoFit
End Sub
Por algúnmotivo no logra el autofit.

Pues eso si que es muy raro porque a mi me funciona. ?Seguro que las columnas [W:AD] tienen valores (no estan vacias)? Otra cosa (no
creo que esto pueda incidir en el funcionamiento del codigo, pero...) en la instruccion de PEPE sobra la propiedad EntireColumn, asi
que el codigo podria ser el siguiente:

Columns("W:AD").AutoFit

Saludos,
KL

Creo que donde no nos entendemos es que el autofit deseo que lo haga en las
columnas mencionadas pero para las celdas de la fila activa, es un
"autoajustar a la la selección".
Disculpa otra vez.
Gracias


"KL" escribió:

Hola Raul,

> La macro de PEPE que permitiría ejecutarse desde cualquier celda de la fila
> de la celda activa y en cuestión:
> Sub VERINSUMOS()
> Columns("W:AD").EntireColumn.AutoFit
> End Sub
> Por algúnmotivo no logra el autofit.

Pues eso si que es muy raro porque a mi me funciona. ?Seguro que las columnas [W:AD] tienen valores (no estan vacias)? Otra cosa (no
creo que esto pueda incidir en el funcionamiento del codigo, pero...) en la instruccion de PEPE sobra la propiedad EntireColumn, asi
que el codigo podria ser el siguiente:

Columns("W:AD").AutoFit

Saludos,
KL

Hola Raul,

Creo que donde no nos entendemos es que el autofit deseo que lo haga en las
columnas mencionadas pero para las celdas de la fila activa, es un
"autoajustar a la la selección".

Bingo! Como te he dicho estoy un poco espeso hoy :-).

A ver esto:

Sub test()
Intersect([W:AD], ActiveCell.EntireRow).Columns.AutoFit
End Sub

Saludos,
KL

Hola de nuevo,

Mas opciones:

Sub test()
Range("W:AD").Rows(ActiveCell.Row).Columns.AutoFit
End Sub

y si solo hay una columna:

Sub test()
Range("W:W").(ActiveCell.Row).Columns.AutoFit
End Sub

Saludos,
KL

"KL" wrote in message news:

Hola Raul,

Creo que donde no nos entendemos es que el autofit deseo que lo haga en las
columnas mencionadas pero para las celdas de la fila activa, es un
"autoajustar a la la selección".

Bingo! Como te he dicho estoy un poco espeso hoy :-).

A ver esto:

Sub test()
Intersect([W:AD], ActiveCell.EntireRow).Columns.AutoFit
End Sub

Saludos,
KL