Ocultar columnas que no deseo ver

Hola Jordi:

Sub Ocul_Col()
Dim n As Integer
n = 50 'Cambia 50 a la cantidad de columnas a valorar para su ocultación
For columna = 1 To n
Cells(1, columna).Select
If ActiveCell.Value = "NO" Then
Selection.EntireColumn.Hidden = True
End If
Next
End Sub

Como en tu ejemplo, debes poner en la primera celda de cada columna a
ocultar NO.
Saludos.-


"Jordi Bayé" escribió en el mensaje de
noticias news:

Hola a todos,

Tengo una hoja donde me interesa ocultar las columnas cuyo valor que
guardo
en una celda de la misma columna sea igual a cero.

Tengo una solución muy pareceida y que me funciona correctament pero
oculta
filas i és la siguiente:
Sub Ocultar_filas()
Range("A1").Select

Do While ActiveCell.Value <> Empty

If ActiveCell.Value = "NO" Then
Selection.EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Select
Loop


No le encuento la solución.
Os agradeceré vuestra ayuda.

Gracias por anticipado.

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Prueba con:

Sub Ocultar_columnas()
Range("A1").Select

Do While ActiveCell.Value <> Empty

If ActiveCell.Value = "NO" Then
Selection.EntireColumn.Hidden = True
End If
ActiveCell.Offset(0, 1).Select
Loop

End Sub


SALUDOS.
Julián-Valencia-España
http://www.tinyurl.com/julianvalencia


"Jordi Bayé" escribió en el mensaje
news:

Hola a todos,

Tengo una hoja donde me interesa ocultar las columnas cuyo valor que
guardo
en una celda de la misma columna sea igual a cero.

Tengo una solución muy pareceida y que me funciona correctament pero
oculta
filas i és la siguiente:
Sub Ocultar_filas()
Range("A1").Select

Do While ActiveCell.Value <> Empty

If ActiveCell.Value = "NO" Then
Selection.EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Select
Loop


No le encuento la solución.
Os agradeceré vuestra ayuda.

Gracias por anticipado.

Al releer la respuesta de Julián me he dado cuenta de que mi respuesta
anterior no vale para lo yo puedo entender releyendo la pregunta inconcreta
de Jordi.
Hemos (Julián y yo) seguido el señuelo de la muestra de código y perdimos la
liebre del primer párrafo.

en una celda de la misma columna sea igual a cero.

Para poder responder tendría que poder adivinar que celda es esa cuyo valor
puede ser cero, y ahí yo no llego.

"Juan Español" escribió en el mensaje de noticias
news:

Hola Jordi:

Sub Ocul_Col()
Dim n As Integer
n = 50 'Cambia 50 a la cantidad de columnas a valorar para su ocultación
For columna = 1 To n
Cells(1, columna).Select
If ActiveCell.Value = "NO" Then
Selection.EntireColumn.Hidden = True
End If
Next
End Sub

Como en tu ejemplo, debes poner en la primera celda de cada columna a
ocultar NO.
Saludos.-


"Jordi Bayé" escribió en el mensaje
de noticias news:

Hola a todos,

Tengo una hoja donde me interesa ocultar las columnas cuyo valor que
guardo
en una celda de la misma columna sea igual a cero.

Tengo una solución muy pareceida y que me funciona correctament pero
oculta
filas i és la siguiente:
Sub Ocultar_filas()
Range("A1").Select

Do While ActiveCell.Value <> Empty

If ActiveCell.Value = "NO" Then
Selection.EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Select
Loop


No le encuento la solución.
Os agradeceré vuestra ayuda.

Gracias por anticipado.

hola, Jordi !

- cual es el rango de columnas que necesitas (des/re)ocultar ?
- confirma si necesitas trabajar con las columnas de varias filas o solo una (in)determinada fila (y cual ?)
- (en su caso) que hacer si en la misma columna hay direrentes filas con valores 0 (cero) y distintos de 0 (cero) ?
- comenta si quieres ejecutar alguna macro para esto o prefieres que lo administre algun evento de la hoja (?)
- si es por algun evento, comenta si los valores son por resultado de formula o por entrada directa (?)

saludos,
hector.

__ OP __

Tengo una hoja donde me interesa ocultar las columnas cuyo valor que guardo en una celda de la misma columna sea igual a cero.
Tengo una solucion muy pareceida y que me funciona correctament pero oculta filas i es la siguiente:
Sub Ocultar_filas()
Range("A1").Select
Do While ActiveCell.Value <> Empty
If ActiveCell.Value = "NO" Then
Selection.EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Select
Loop