Macro con autofit

12/02/2006 - 17:20 por RAUL | Informe spam

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.

Siga el debate

11 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#11 RAUL

13/02/2006 - 01:57 | Informe spam

Gracias KL,
Finalmente!!!!!!!!!!!!!!!!!!!!!!!!!! , resulta. Me es muy útil. :))))))))
Saludos

"KL" escribió:

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2 3

Busqueda sugerida