Con regularidad oculto y descubro columnas en mis hojas de trabajo. Si tengo una gama completa de columnas ocultas, me molesta mostrar una sola columna de todas las que están ocultas. Por ejemplo, si oculto las columnas C: M y quiero mostrar la columna F, entonces necesito mostrar todo el rango y luego volver a ocultar C: E y G: M. (Hay otras formas en las que podría realizar la misma tarea, pero ninguna de ellas es particularmente entrañable).

Sin embargo, encuentro que una sola columna se puede mostrar muy fácilmente usando una macro. Considere lo siguiente:

Sub UnhideSingleColumn()

Dim Col As String     Dim rng As Range

StartHere:

Col = InputBox("Enter column to unhide.", "Unhide Column")

If Col = "" Then Exit Sub     On Error Resume Next     ' if not a valid range, an error occurs     Set rng = ActiveSheet.Columns(Col)

If Err.Number <> 0 Then         On Error GoTo 0         Err.Clear         MsgBox "Invalid input! Please input a valid column."

GoTo StartHere     End If

rng.EntireColumn.Hidden = False

MsgBox "Column " & UCase(Col) & " is now visible.", _       vbOKOnly, "Unhide Specified Column"

Set rng = Nothing     On Error GoTo 0 End Sub

La macro pregunta al usuario qué columna debe hacerse visible y luego intenta seleccionar esa columna. Si no se puede seleccionar la columna, se genera un error y se le vuelve a pedir al usuario que ingrese. Si se puede seleccionar la columna, su propiedad .Hidden se desactiva, lo que hace que la columna sea visible.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2405) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posteriores) aquí:

link: / excelribbon-Unhiding_a_Single_Column [Mostrar una sola columna].