ocultar columnas

hola, chicos !

puedes evitar el avance una a una y ocultar todo de un solo paso [p.e. desde la ventana de inmediato en el editor de vba]...

cells.entirecolumn.hidden=true

cells.entirerow.hidden=true

saludos,
hector.

Francisco Parrilla escribio en el mensaje ...
Al parecer todas :)

Sub oculto()
i = 1
Do
Columns(i).Select
Selection.EntireColumn.Hidden = True
i = i + 1
On Error GoTo salida
Loop
salida:
Exit Sub
End Sub

o incluso:

Columns.Hidden=True

Rows.Hidden=True

Saludos,
KL


"Héctor Miguel" wrote in message news:%

hola, chicos !

puedes evitar el avance una a una y ocultar todo de un solo paso [p.e. desde la ventana de inmediato en el editor de vba]...

cells.entirecolumn.hidden=true

cells.entirerow.hidden=true

saludos,
hector.

Francisco Parrilla escribio en el mensaje ...
Al parecer todas :)

Sub oculto()
i = 1
Do
Columns(i).Select
Selection.EntireColumn.Hidden = True
i = i + 1
On Error GoTo salida
Loop
salida:
Exit Sub
End Sub